ComboBox

[dr.dimm]

Привет!

Помогите написать ComboBox, что бы при выборе в нем количества месяцев, коэффициенту К присваивалось определенное число.

Я думал что должно быть примерно так:

Dim K As double
ComboBox1.AddItem([1],[1]) = "1 месяц"
ComboBox1.AddItem([2],[2]) = "2 месяца"
ComboBox1.AddItem([3],[3]) = "3 месяца"

If ComboBox1.Value = "1 месяц" Then
K=0.15
ElseIf ComboBox1.Value = "2 месяца" Then
K=0.20
ElseIf ComboBox1.Value = "3 месяца" Then
K=0.25
End If

Но это не работает

Как правильно будет? (Пишу в Excel на UserForm)

[doober]

Можно так

Private Sub Use()
    Dim K As Double
    If ComboBox1.ListIndex = -1 Then Exit Sub
    K = Val(ComboBox1.List(ComboBox1.ListIndex, 1))

End Sub

Private Sub UserForm_Initialize()
    ComboBox1.AddItem ("1 месяц")
    ComboBox1.List(0, 1) = 0.15
    ComboBox1.AddItem "2 месяца"
    ComboBox1.List(1, 1) = 0.2
    ComboBox1.AddItem "3 месяца"
    ComboBox1.List(1, 1) = 0.25
End Sub

[dr.dimm]

Спасибо БОЛЬШОЕ Добер!

я еще добавил кнопочку

Private Sub CommandButton1_Click()
MsgBox (ComboBox1.List(ComboBox1.ListIndex, 1))
End Sub

И тут наверное опечатка:

ComboBox1.AddItem "3 месяца"
ComboBox1.List(2, 1) = 0.25

[doober]

Ошибся,все верно.Надо по классике так делать

   ComboBox1.AddItem "3 месяца"
    ComboBox1.List(ComboBox1.Listcount-1, 1) = 0.25

[Teslenko_EA]

Здравствуйте dr.dimm.
В дополнение к варианту предложенному doober.
К контролам отображающим списки в качестве источника можно подключать массив:

Private Sub ComboBox1_GotFocus()
Dim vList()
    vList = Array("1 месяц", "2 месяца", "3 месяца")
    ComboBox1.List = vList
End Sub

и так-же из массива получать результат.

Private Sub ComboBox1_Change()
Dim vVal()
    vVal = Array(0.15, 0.2, 0.25)
    v = vVal(ComboBox1.ListIndex)
    MsgBox v
End Sub

Евгений.

[dr.dimm]

Подскажите пожалуйста, как правильно задать значение в комбо боксе по умолчанию?

[IgorGO]

Правильно?
так:
ComboBox1.Text = "Васян"
или так:
ComboBox1.ListIndex = 2

видимо вопрос в том, когда это значение должно там появиться?

[alex77755]

Как вариант, если коэффиценты пропорциональны можно привязать к листиндексу

K = ComboBox1.ListIndex*0.5 + 0.15

[kuklp]

Еще:

Private Sub ComboBox1_Change()
    Dim K#
    If ComboBox1.ListIndex = -1 Then Exit Sub
    K = Choose(ComboBox1.ListIndex + 1, 0.15, 0.2, 0.25)
    MsgBox K
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List = Array("1 месяц", "2 месяца", "3 месяца")
End Sub

[RAN.]

И чего вас всех в код тянет?
Спрашивают же - значение по умолчанию.

Properties - ComboBox1 - Value = "123"