kod kısaltma

[mahmutbeyli]

9 adet combobox da aşağıdaki kodları kullanıyorum acaba tek kodla yapmak mümkünmü


Private Sub ComboBox1_Enter()
ComboBox1.BackColor = &HFFC0FF
End Sub
..............
Private Sub ComboBox9_Enter()
ComboBox9.BackColor = &HFFC0FF
End Sub
*****************************************************
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.BackColor = &HC0FFFF
End Sub
..........
Private Sub ComboBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox9.BackColor = &HC0FFFF
End Sub
*****************************************************
Private Sub ComboBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.DropDown
End Sub
...............
Private Sub ComboBox9_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox9.DropDown
End Sub
****************************************************
Private Sub ComboBox1_Enter()
ComboBox1.BackColor = &HFFC0FF
TextBox1.BackColor = &HFFC0FF
TextBox2.BackColor = &HFFC0FF
TextBox3.BackColor = &HFFC0FF
TextBox4.BackColor = &HFFC0FF
TextBox5.BackColor = &HFFC0FF
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.BackColor = &HC0FFFF
ComboBox2.BackColor = &HC0FFFF
TextBox1.BackColor = &HC0FFFF
TextBox2.BackColor = &HC0FFFF
TextBox3.BackColor = &HC0FFFF
TextBox4.BackColor = &HC0FFFF
TextBox5.BackColor = &HC0FFFF
End Sub
Private Sub ComboBox2_Enter()
ComboBox1.BackColor = &HFFC0FF
ComboBox2.BackColor = &HFFC0FF
TextBox1.BackColor = &HFFC0FF
TextBox2.BackColor = &HFFC0FF
TextBox3.BackColor = &HFFC0FF
TextBox4.BackColor = &HFFC0FF
TextBox5.BackColor = &HFFC0FF
End Sub
Private Sub ComboBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
ComboBox1.BackColor = &HC0FFFF
ComboBox2.BackColor = &HC0FFFF
TextBox1.BackColor = &HC0FFFF
TextBox2.BackColor = &HC0FFFF
TextBox3.BackColor = &HC0FFFF
TextBox4.BackColor = &HC0FFFF
TextBox5.BackColor = &HC0FFFF
End Sub

 

[ECYavuz]

Merhabalar,

For I = 1 To 9
Controls("ComboBox" & I).BackColor= &HFFC0FF
if I=1 then
For J=1 to 5
Controls("TextBox" & J).BackColor = &HFFC0FF
Next
endif
Next

Şeklinde deneyin....

 

[mahmutbeyli]

Sn;ECYavuz Teşekkür ederi,
Yalnız Bu kodları nereye clas modülemi yazacaz

 

[ECYavuz]

Sn;ECYavuz Teşekkür ederi,
Yalnız Bu kodları nereye clas modülemi yazacaz

Hayır UserForm'da ComboBoxları silme olayını nerede yapıyorsanız o bölüme yazabilirisniz. Veya tek bir Command Butona atayabilirsiniz.

İyi geceler

 

[ECYavuz]

Şimdi aklıma geldi veya Sub Sil()...end Sub içine yazıp istediğiniz zaman Call sil ve ya sadece Sil diye çağırabilirsiniz.

 

[mahmutbeyli]

Sn;ECYavuz,
İlk önce vakit ayırdığınız için teşekkür ederim,Yalnız
Kendimi ifade edemediğim düşüncesiyle tekrar hatırlatmak istedim
ilk gönderdiğim kodlar ComboBox enter ve exit kodları idi yani imleç le veya tabla hücreye geldiğimde renk değişiyor "exit"da yani hücreden çıkınca eski rengine dönüyor şimdi bunu şimdi "sil"e uygularsam istediğm olmuyor

 

[ECYavuz]

Sub Temizle()
For I = 1 To 9
Controls("ComboBox" & I).BackColor= &HFFC0FF
if I=1 then
For J=1 to 5
Controls("TextBox" & J).BackColor = &HFFC0FF
Next
endif
Next
End Sub

şeklinde bir modüle kaydedin ve aşağıdaki gibi uygulayın...

Private Sub ComboBox1_Enter()
Call Temizle
End Sub

 

[mahmutbeyli]

Sn;ECYavuz,
Cevap verme nezaketiniz için teşekkür edrim şu an denemeyedim sizi bilgilendireceğim sanırım yine yardımınıza ihtiyacım olacak