combobox

[kasimpalas]

aynı verileri for next döngüsü kullanarak combobox lara nasıl girebilirim? şimdiden tşk.

 

[zafer]

Merhaba


Kullandığınız Sayfanının a1 ile a10 arasındaki verilerini Combobox1 e alır.

Private Sub UserForm_Initialize()
For i = 1 To 10
ComboBox1.AddItem Cells(i, 1)
Next
End Sub

 

[xxcell]

Yöntem 1 : Teker Teker Ekleme yapmak
ComboBox1.AddItem "ali"
ComboBox1.AddItem "veli"
ComboBox1.AddItem "49"
ComboBox1.AddItem "50"


Yöntem 2 : Bir dizi oluşturup onu bütün nesnelere atamak
Dim liste(3) As String
liste(0) = "ali"
liste(1) = "veli"
liste(2) = "49"
liste(3) = "50"

ComboBox1.List() = liste
ComboBox2.List() = liste
ComboBox3.List() = liste

Yöntem 3 : Sayfadan veri almak
ComboBox1.RowSource = "a1:a4"

Yöntem 4 : Başka bir comboboxun içeriğini kopyalamak
For n = 0 To ComboBox1.ListCount - 1
ComboBox2.AddItem ComboBox1.List
Next

Yöntem 5 : Bissürü combobox'umuz var. Bunları kod yardımıyla çağırmak

For n = 1 To 40
Controls("combobox" & n).rowsource="a1:a4"
Next
' Not. Bu kodun çalışabilmesi için 40 adet comboboxunuz olmalıdır.

 

[kasimpalas]

SÜpersİnİz