UserForm, ComboBox ve TextBox

[yazboz]

merhaba

"UserForma" 1adet "ComboBox" ve 1adet "TextBox" ekledim
Private Sub UserForm_Initialize()
ComboBox1.AddItem "a"
ComboBox1.AddItem "b"


ComboBox1' de "a" harfini seçtiğimde TextBox1'de 12 görünsün, veya "b" harfini seçtiğimde TextBox1'de 13 görünsün.

 

[TheGreatest]

Private Sub ComboBox1_Change()
    If ComboBox1.Text = "a" Then
    TextBox1.Value = "12"
    ElseIf ComboBox1.Text = "b" Then
    TextBox1.Value = "13"
    End If
End Sub

 

[Levent Menteşoğlu]

Alternatif;

[vb:1:c94e414924]Private Sub ComboBox1_Change()
Textbox1=Combobox1.listindex+12
End Sub
[/vb:1:c94e414924]

 

[yazboz]

teşekkür ederim

çözüm olarak bu formülü elde ettim bunun daha kısa bir formülü varmıdır?
Private Sub UserForm_Initialize()
ComboBox1.AddItem "a"
ComboBox1.AddItem "b"
End Sub

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.ListIndex + 12
TextBox1 = ComboBox1.ListIndex + 13
End Sub
--------------------------------------------------------------------


soru: bu formülün anlamı ve açıklaması nedir ?

=Pisteet/Pistemäärä*Arvosana

 

[yazboz]

=Pisteet/Pistemäärä*Arvosana ..bu denklemin anlamını buldum.

A1 hücresinin adını "ali" ,A2 hücresinin adını "kerem" diye değiştirdikten sonra
B1 hücresi için " =ali / kerem ".. diye yazabiliriz

 

[Levent Menteşoğlu]

Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.ListIndex + 12
TextBox1 = ComboBox1.ListIndex + 13
End Sub

Yukarıdaki gibi yazmaya gerek yoktur. Benim yukarıda önerdiğim şekilde yeterlidir.