Combobox genişliği ve list fill range

[MOONROSE]

Herkese merhaba, Ekteki dosyada Combobox'lar ile ilgili 2 sorum var. Daha önce kendi bilgisayarımda sorun olduğu için dosyanın içindekiler görünmüyordu. Þimdi başka bilgisayarda yeniden hazırladım.Yardımcı olabilecek arkadaşlara teşekkürler.

 

[omerceri]

sayfa üzerinde comboboxlarla değil de formlarla çalışırsan daha iyi sonuçlar alabilirsin

 

[MOONROSE]

Aslında sadece liste görünümü vermek için değil bir çok tuşa farklı komutlar,formüller eklediğim için bunları kullanıyorum.Hem Form lardaki comboyu kullanmış olsam bile aynı ihtiyaçlarım devam ediyor olacaktı. Çünkü sorduğum sorunun çözümü formlarda da yok ya da ben bilmiyorum. O yüzden bu sorum acil cevaplanırsa çok sevinirim. Ya da farklı bir çözümünüz varsa o da olur.

 

[MOONROSE]

Bu konuda yardımcı olacak kimse yok mu? Yardım lütfen

 

[omerceri]

"karakter" değişkenini kendi fontuna göre ayarlıyabirsin
Private Sub Workbook_Open()
karakter = 5.5
bb = 0
For i = 2 To 65000
aa = Len(Sheets("Sayfa1").Range("S" & i))
If bb < aa Then
bb = aa
End If
Next
Sheets("Sayfa1").ComboBox1.Width = bb * karakter
End Sub

 

[Levent Menteşoğlu]

1.sorunuz için comboboxa aşağıdaki kodu yazın.

[vb:1:61cebe2469]Private Sub ComboBox1_DropButtonClick()
ComboBox1.ListWidth = 200
End Sub
[/vb:1:61cebe2469]

2.sorunuz içinde aşağıdaki kodu deneyin. Kodun hata vermemesi içinde comboboxun listfillrange özelliğine yazdığınız aralığı silin.

[vb:1:61cebe2469]Sub auto_open()
Set s1 = Sheets("sayfa1")
s1.ComboBox1.Clear
adres = s1.[s2:s65536].SpecialCells(xlCellTypeConstants, 2).Address
For Each hucre In s1.Range(adres)
If hucre <> 0 Then s1.ComboBox1.AddItem hucre
Next
End Sub
[/vb:1:61cebe2469]