Combobox un üzerine gelince seçim listesi açılsın ama comboboxa elle değer girilemesi

[hsayar]

Combobox un üzerine gelince seçim listesi açılsın ama comboboxa elle değer girilemesin?

Mümkünmü?

 

[hsayar]

Tam olarak istediğim şudur arkadaşlar

Private Sub UserForm_Initialize()
Dim wkb As Workbook
    For Each wkb In Application.Workbooks
    ComboBox1.AddItem wkb.Name
    ListBox3.AddItem wkb.Name
    Next
ComboBox1.AddItem "(Yeni)"
ComboBox1.Value = ThisWorkbook.Name
End Sub

kodları ile comboboxa eklediğim değerler değiştirilemesin

comboboboxu kilitledim aşağı ok da kayboldu
listbox kullandım onda da açılır liste yok spin buton ile geziyorsun ortası yomkmu bunun
değerler listelensin ama sadece mouse ve aşağı yukarı okla seçilsin

 

[Ferhat Pazarçevirdi]

Combobox'ın Style özelliğini List olarak ayarlamalısınız. Userfoma, bir Combo koyduğunuzda, default olarak Style, Combo olur ve elle girişe izin verir.

Bu özelliği List olarak ayarlarsanız, elle müdahaleye izin verilmez.

Kodlarla şu şekilde ayarlayabilirsiniz.

ComboBox1.Style = fmStyleDropDownList

 

[Orion1]

Ekli dosyayı inceleyiniz istediğiniz böyle bir şeymi?
Yalnızca Yukarı ve aşağı ok tuşları aktif.

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode <> vbKeyDown And KeyCode <> vbKeyUp And _
KeyCode <> 33 And KeyCode <> 34 Then KeyCode = False
End Sub

 

[hsayar]

Combobox'ın Style özelliğini List olarak ayarlamalısınız. Userfoma, bir Combo koyduğunuzda, default olarak Style, Combo olur ve elle girişe izin verir.

Bu özelliği List olarak ayarlarsanız, elle müdahaleye izin verilmez.

Kodlarla şu şekilde ayarlayabilirsiniz.

ComboBox1.Style = fmStyleDropDownList

Private Sub UserForm_Initialize()
[B]ComboBox1.Style = fmStyleDropDownList[/B]
Dim wkb As Workbook
    For Each wkb In Application.Workbooks
    ComboBox1.AddItem wkb.Name
    ListBox3.AddItem wkb.Name
    Next
ComboBox1.AddItem "(Yeni)"
ComboBox1.Value = ThisWorkbook.Name
End Sub

çok teşekkür ederim hocam

Sn orion sizeda alakanızdan dolayı teşekkür ederim.

 

[mekuka]

Sn. Ferhat Pazarçevirdi

ComboBox1.Style = fmStyleDropDownList seçildikten sonra

combobox value tanımlayamıyorum.
yani otomatik olarak ilk değeri getirtemiyorum.
onu nasıl yaparım acaba....
Teşekkürler

 

[Orion1]

Sn. Ferhat Pazarçevirdi

ComboBox1.Style = fmStyleDropDownList seçildikten sonra

combobox value tanımlayamıyorum.
yani otomatik olarak ilk değeri getirtemiyorum.
onu nasıl yaparım acaba....
Teşekkürler

ComboBox1.ListIndex = 0

 

[mekuka]

combobox1.listındex = 0

tşk sayın evren gizlen