DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d11").Value = ("tugay")
For i = 1 To Len([D11])
With [D11].Characters(Start:=i, Length:=1).Font
.ColorIndex = Int(Rnd * 20) + 1
End With
Next i
End Sub
Option Base 1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("d11").Value = ("turgay")
For i = 1 To 5
renk = Array(10, 3, 6, 8, 18, 20) 'Renk kodları burda tanımlanıyor....
With [D11].Characters(Start:=i, Length:=1).Font
.ColorIndex = renk(i)
End With
Next i
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
For i = 1 To Len(Target)
Target.Characters(Start:=i, Length:=1).Font.ColorIndex = i + 2
Next
End Sub