Кривой макрос

[Евгений К.]

Добрый вечер.
В UserForm использую 3 связанных между собой OptionButtom (т.е. при выборе одного со второго выделение уходит). Для этого написал макрос, но он явно кривой при использовании данных OptionButtom почему-то то в одном, то в другом месте выдает неправилньое значение.

Вот макрос:

Sub Get_Tip_Udoroproch()

If A1 Then
dblUdoroprochSum = (Val(Replace(txtbHeightStv, ",", ".")) / 1000) * (Val(Replace(txtbWeightStv, ",", ".")) / 1000) * 78 * Val(Replace(txtbEURO, ",", "."))
Else
If A2 Then
dblUdoroprochSum = (Val(Replace(txtbHeightStv, ",", ".")) / 1000) * (Val(Replace(txtbWeightStv, ",", ".")) / 1000) * 112 * Val(Replace(txtbEURO, ",", "."))
Else
If A3 Then
dblUdoroprochSum = (Val(Replace(txtbHeightStv, ",", ".")) / 1000) * (Val(Replace(txtbWeightStv, ",", ".")) / 1000) * 145 * Val(Replace(txtbEURO, ",", "."))
Else
dblUdoroprochSum = (Val(Replace(txtbHeightStv, ",", ".")) / 1000) * (Val(Replace(txtbWeightStv, ",", ".")) / 1000) * 0 * Val(Replace(txtbEURO, ",", "."))
End If
End If
End If
Label40 = dblUdoroprochSum

End Sub


А в каждом коде OptionButtom такая штука:

Private Sub A1_Click()
Get_Tip_Udoroproch
End Sub

или

Private Sub A2_Click()
Get_Tip_Udoroproch
End Sub

или

Private Sub A3_Click()
Get_Tip_Udoroproch
End Sub

Подскажите где ошибка? и как сделать правильно

Спасибо

P.S. наверное можно сделать как-то покрасивее, чем через кучу If Else, но я новичек в VBA и по-другому пока не научился

[EducatedFool]

наверное можно сделать как-то покрасивее, чем через кучу If Else

Попробуйте так:

Sub Get_Tip_Udoroproch()
    Select Case True
        Case A1: k = 78
        Case A2: k = 112
        Case A3: k = 145
        Case Else: k = 0
    End Select
    dblUdoroprochSum = (Val(Replace(txtbHeightStv, ",", ".")) / 1000) * _
                       (Val(Replace(txtbWeightStv, ",", ".")) / 1000) * k * Val(Replace(txtbEURO, ",", "."))
    Label40 = dblUdoroprochSum
End Sub