Подскажите пожалуйста, как задать подусловие в условии?
Есть макрос, который меняет название кнопки в зависимости от того, какая цифра стоит в контрольной ячейке
Сейчас это работает так:
Шаг 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"
Есть макрос, который меняет название кнопки в зависимости от того, какая цифра стоит в контрольной ячейке
| Код |
|---|
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"
Изменено: - 23.08.2017 16:07:18
