comboboxun bilgilerini vba koduyla girmek mümkünmü

[orcunerkek54]

arkadaşlar herkeze iyi tatiller benim problemim comboboxa T,D,İ,E, B C harflerini veri olarak girmek istiyorum ama bunu vba koduna yazmak istiyorum.Yardımcı olabilirseniz sevinirim teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki gibi yapabilirsiniz.

[vb:1:b2c3b5d17a]Combobox1.additem "T"
combobox1.additem "D"
.
.
.
[/vb:1:b2c3b5d17a]

 

[byexcel]

veya
Private Sub UserForm_Initialize()
With UserForm1.ComboBox1
.AddItem "T"
.AddItem "D"
End With
End Sub

 

[orcunerkek54]

syn leventm ve byexcel her ikinizede teşekkür ederimbende 20 tanecik combo var bunların herbirine tek tek mi girmem gerekiyor bu kodu.bu arada byexcel sizin fotoğrafınıza hasta oluyorum çok yakışıklısın :hiho: :hiho: :hiho:

 

[Levent Menteşoğlu]

Sn orcunerkek54

Bilgileri parça parça veriyorsunuz, bu durumda cevapta parça parça oluyor, baştan 20 adet combobox olduğunu belirtseydiniz ona göre bir kod önerirdik. Þimdi konuyu netleştirmek için bir kaç sorunun daha cevaplanmasına ihtiyaç var.

1-Bu comboboxlar userformun yada sayfanın üzerindemi?

2-Bu comboboxların hepsindede aynı harflermi yüklenecek?

3-Combobox isimleri ardışık olarakmı gidiyor? (combobox1,combobox2,.....)

 

[orcunerkek54]

evet hepsi userformun üzerinde ve hepsine aynı harfler girecek ve değişmeyecek
(harfler T,D,Y,O,İ) hepsi ardışık combo2 den başlıyor 19a kadar gidiyor
acemilik için pardon k::

 

[Levent Menteşoğlu]

Aşağıdaki kodu userforma kopyalayarak deneyin.

[vb:1:1664a16d72]Private Sub UserForm_Initialize()
deg=array("T","D","Y","O","İ")
for a=2 to 19
for b=0 to 4
controls("combobox" & a).additem deg(b)
next
next
End Sub
[/vb:1:1664a16d72]

 

[Haluk]

Bir alternatif de aşağıdadır.

Bunda sevgili dostum Levent bey'in kodu esas alınmış ancak, ikinci For-Next döngüsü kullanılmamış olup ComBobox nesnesinin "List" özelliğinden yararlanılmıştır.

Private Sub UserForm_Initialize()
    deg = Array("T", "D", "Y", "O", "I")
        For a = 2 To 19
            Controls("combobox" & a).List = deg
        Next
End Sub

 

[Levent Menteşoğlu]

Değerli dostun teşekkür ederim. list kullanımı aklıma gelmemişti, çok iyi alternatif oldu.

 

[orcunerkek54]

teşekkürler k::