Подскажите пожалуйста, как задать подусловие в условии?
Есть макрос, который меняет название кнопки в зависимости от того, какая цифра стоит в контрольной ячейке
Код
Private Sub Worksheet_Change(ByVal Target As Range)
'
' Цвета http://www.endprod.com/colors/
'
' Оранжевый: 2200045, Красный: 5245579, Зелёный: 2263842, Чёрный: 0, Жёлтый: 9434879
If Range("H3").Value = 1 Then
CommandButton3.Caption = "1"
ElseIf Range("H3").Value = 2 Then
CommandButton3.Caption = "2"
ElseIf Range("H3").Value = 3 Then
CommandButton3.Caption = "3"
ElseIf Range("H3").Value = 4 Then
CommandButton3.Caption = "4"
ElseIf Range("H3").Value = 5 Then
CommandButton3.Caption = "5"
Else: CommandButton1.Caption = "000"
End If
If Range("H5").Value = 1 Then
CommandButton1.Caption = "1"
ElseIf Range("H5").Value = 2 Then
CommandButton1.Caption = "2"
ElseIf Range("H5").Value = 3 Then
CommandButton1.Caption = "3"
ElseIf Range("H5").Value = 4 Then
CommandButton1.Caption = "4"
ElseIf Range("H5").Value = 5 Then
CommandButton1.Caption = "5"
Else: CommandButton1.Caption = "000"
CommandButton1.ForeColor = 0
End If
End Sub
Сейчас это работает так: Шаг 1: ЕСЛИ H3 равно 1, то CommandButton1.Caption = "1" Шаг 2: ЕСЛИ H3 равно 2, то CommandButton1.Caption = "2" Шаг 3: ЕСЛИ H3 равно 3, то CommandButton1.Caption = "3"
Подскажите пожалуйста, как сделать так, чтобы работало вот так: Шаг 1: ЕСЛИ H3 равно 1 И ЕСЛИ I4 равно 1, то CommandButton1.Caption = "1" ЕСЛИ H3 равно 1 И ЕСЛИ I4 не равно 1, то CommandButton1.Caption = "1.5" Шаг 2: ЕСЛИ H3 равно 2 И ЕСЛИ I4 равно 2, то CommandButton1.Caption = "2" ЕСЛИ H3 равно 2 И ЕСЛИ I4 не равно 2, то CommandButton1.Caption = "2.5"