X
xxrt
Misafir
TextBox Ãçine Gelindiğinde Renklendirme
Arkadaşlar,bende şu kod var,
Bununla Aktif Hücrenin içini renklendirebiliyorum..Textbox1 ve TextBox2 olduğunu varsayalım.TextBox2 tıklandığında TextBox1 Renklenecek(Açık Mavi vs..)
Yada Ãöyle düşünelim,
Text1>Text2
Text2>Text3
.....
...
devam ediyor.
Text2 ve3 İndexleri 1,2,3,... devam ediyor.Maus veya enterle aşağıdan yukarıya indikçe Her textin solundaki(Text2'in solunda Text1) Renk ile boyanacak..
Arkadaşlar,bende şu kod var,
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldRange As Range
On Error Resume Next
Target.Interior.Color = vbRed
Target.Font.Color = vbWhite
OldRange.Interior.ColorIndex = xlColorIndexNone
OldRange.Font.Color = vbBlack
Set OldRange = Target
End Sub
Yada Ãöyle düşünelim,
Text1>Text2
Text2>Text3
.....
...
devam ediyor.
Text2 ve3 İndexleri 1,2,3,... devam ediyor.Maus veya enterle aşağıdan yukarıya indikçe Her textin solundaki(Text2'in solunda Text1) Renk ile boyanacak..