- Katılım
- 23 Ağustos 2005
- Mesajlar
- 4,651
- Excel Vers. ve Dili
- Excel : 2010
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bul As Long
say = Len(Target) - Len(WorksheetFunction.Substitute(Target, ":", ""))
If say > 0 Then
Bul = WorksheetFunction.Find(":", Target.Text)
Target.Characters(Start:=1, Length:=Bul).Font.ColorIndex = 3
End If
End Sub
Sub Test()
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:=":"
If myRange.Find.Found = True Then
ActiveDocument.Range(Start:=0, End:=myRange.Start).Font.ColorIndex = wdRed
End If
End Sub
Sub Test2()
Set myRange = Selection
xStart = Selection.Start
myRange.Find.Execute FindText:=":"
If myRange.Find.Found = True Then
yEnd = myRange.Start
ActiveDocument.Range(Start:=xStart, End:=yEnd).Font.ColorIndex = wdRed
End If
End Sub
With ActiveSheet.Shapes("TextBox 8").TextFrame2.TextRange
For x = 1 To .Characters.Count
If .Characters(x).Text = ":" Then
.Characters(1, x).Font.Fill.ForeColor.RGB = RGB(192, 0, 0)
Exit Sub
End If
Next
End With
ActiveDocument.Range(Start:=0, End:=myRange.Start + 1).Font.ColorIndex = wdRed
ActiveDocument.Range(Start:=xStart, End:=yEnd + 1).Font.ColorIndex = wdRed
Sub Makro2()
For i = 1 To ActiveDocument.Words.Count
If ActiveDocument.Words(i) = ": " Then
ActiveDocument.Words(i).Font.ColorIndex = wdRed
ActiveDocument.Words(i - 1).Font.ColorIndex = wdRed
End If
Next
End Sub