TextBox İçine Gelindiğinde Renklendirme

[xxrt]

TextBox Ýçine Gelindiğinde Renklendirme

Arkadaşlar,bende şu kod var,

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

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..

 

[ALPEN]

bir örnek dosya gönderebilir misin. şekillendiremedim.

 

[Haluk]

@xxrt:
Çok matah bir şey değil ama, aşağıdakiler şimdilik işini görür.

Private Sub TextBox2_Enter()
    TextBox1.BackColor = &HFFFF00
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.BackColor = vbWhite
End Sub
'
Private Sub TextBox4_Enter()
    TextBox3.BackColor = &HFFFF00
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox3.BackColor = vbWhite
End Sub
'
Private Sub TextBox6_Enter()
    TextBox5.BackColor = &HFFFF00
End Sub
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox5.BackColor = vbWhite
End Sub
'
Private Sub TextBox8_Enter()
    TextBox7.BackColor = &HFFFF00
End Sub
Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox7.BackColor = vbWhite
End Sub

 

[xxrt]

Benim İşimi Hayhayda gördü.Bana yeterlidir.Sağol..Hocam :hey:

 

[cavci]

Arkadaslar benimde bir sorum var enter ile textboxlarda ilerledikce textboxlarin sari renkte olmasini nasil yapabilirim.Tesekkürler

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

 

[cavci]

Sayin Seyit Tiken cok Tesekkür ederim .Istedigim buydu

 

[cavci]

Sayin Seyit Tekin Bende 200 e yakin textbox var bunlari toplu olarak yazabilecegimiz bir kod varmi

 

[cavci]

Bir tane class modula buldum bunu Formdaki textboxlari nasil ekleyebilirim

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[cavci]

Sayin Korhan Aydin Emegin icin cok Tesekkür ederim

 

[İsmail Küçükşengün]

Sayın Seyit Tiken ve Korhan Ayhan;

Paylaşımlarınıza çok teşekkürler.

 

[Erdem Akdemir]

Korhan bey merhaba, eklediğiniz dosya mevcutsa tekrar ekleyebilir misiniz.

 

[Korhan Ayhan]

Eski dosya arşivimde yoktu.

Yeni örnek dosya hazırladım. Üstteki mesajımdan indirebilirsiniz.

 

[Murat OSMA]

Bu konu ile ilgili arşivden birkaç ClassModule örneği eklemek istiyorum.

İyi günler.

 

[Erdem Akdemir]

Korhan bey ve Murat kardeşim bu güzel örnekler için ikinize de teşekkür ederim.