combobox yazı stili

[alicanxy58]

Sayın arkadaşlar ekte gönderdiğim dosyada bir sorum var yardımcı olursanız sevinirim
teşekkür ederim...

 

[Kemal Demir]

Merhaba aşagıdaki kod zannedersem aradıgınız şey.

Private Sub ComboBox1_Change()
If Mid(ComboBox1, 1, 1) = 0 Then
ComboBox1.BackColor = 14211288
With ComboBox1
.Font.Bold = False
.Font.Name = "Arial"
.Font.Size = 8
End With
Else
With ComboBox1
.Font.Bold = True
.Font.Name = "Arial"
.Font.Size = 12
End With
ComboBox1.BackColor = 16777215

End If
End Sub

 

[alicanxy58]

sayın demir cevabınıza teşekkür ederim.
userformdaki bütün comboboxlar için ayrı ayrı bu kodu yazacam mı? aynı kodda bütün comboboxları düzenleyebilirmiyim?

 

[alicanxy58]

userformdaki bütün comboboxlar için ayrı ayrı bu kodu yazacam mı? aynı kodda bütün comboboxları düzenleyebilirmiyim?