Combobox

[chaplin61]

arkadaşlar merhaba,forumda comboboxları inceledim ama belkide en temel maddesini çözemedim...userform da combobox oluşturdum fakat item nasıl ekleyeceğim.10 tane sabit item eklemem lazım bunun için ilk yapmam gerekn nedir?
teşekkür ederim

 

[Seyit Tiken]

Örnek kodu inceleyiniz.

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Ali"
.AddItem "Veli"
.AddItem "Selami"
End With
End Sub

 

[abdi]

sanırım aşağıdaki kodlama bir yol gösterecektir.

Private Sub UserForm_Initialize()
ComboBox1.AddItem "ali"
ComboBox1.AddItem "vali"
ComboBox1.AddItem "kali"
ComboBox1.AddItem "sali"
ComboBox1.AddItem "fali"
ComboBox1.AddItem "dali"
ComboBox1.AddItem "tali"
ComboBox1.AddItem "yali"
ComboBox1.AddItem "rali"
ComboBox1.AddItem "gali"
End Sub

Edit: Seyit bey pardon ben gönderdikten sonra gördüm kodlarınızı

 

[chaplin61]

abdi ve seyit tiken çok teşekkür ederim...öğrenmem gerekn daha çok şey var ...

 

[Seyit Tiken]

Rica ederim Abdi Bey. Çoğu zaman bir sorunun farklı çözüm yolları olabiliyor. Çalışmalarınızda başarılar diliyorum..

 

[chaplin61]

bir de şöyle bir sorum var mesela
ComboBox1, comboBox2...ComboBox10 bunların hepsi aynı item a sahipse bunların hepsini tek bi kodda yapabilir miyim yoksa teker teker mi?

 

[Seyit Tiken]

Bildiğim bir yöntem de budur. Kod uzuyor. For-Next'ile kodlar kısalabilir mi? Onu bilmiyorm...

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Ali"
.AddItem "Veli"
.AddItem "Selami"
End With
With ComboBox2
.AddItem "Ali"
.AddItem "Veli"
.AddItem "Selami"
End With
With ComboBox3
.AddItem "Ali"
.AddItem "Veli"
.AddItem "Selami"
End With
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod ile Userform1 üzerindeki 10 adet Comboboxa sabit verilerinizi yükleyebilirsiniz.

Private Sub UserForm_Initialize()
For X = 1 To 10
UserForm1.Controls("ComboBox" & X).AddItem "AHMET"
UserForm1.Controls("ComboBox" & X).AddItem "ALİ"
UserForm1.Controls("ComboBox" & X).AddItem "HASAN"
UserForm1.Controls("ComboBox" & X).AddItem "MEHMET"
UserForm1.Controls("ComboBox" & X).AddItem "AYŞE"
UserForm1.Controls("ComboBox" & X).AddItem "ZEKİ"
UserForm1.Controls("ComboBox" & X).AddItem "SEZEN"
UserForm1.Controls("ComboBox" & X).AddItem "VELİ"
UserForm1.Controls("ComboBox" & X).AddItem "HÜSEYİN"
UserForm1.Controls("ComboBox" & X).AddItem "LEVENT"
Next
End Sub