Если в противном случае три кнопки выбора

Question

Я могу написать оператор «If» «Else» при использовании 2 переключателей, но при попытке преобразовать его в оператор «ElseIf» с добавлением третьей кнопки в коде не работает.

Я попробовал Google и YouTube и темы для решения здесь, и я не могу найти ответ, который мне нужен.

If OPButton1.Value = True Then
    ws.Range("G" & emptyRow).Value = OPButton1.Caption
ElseIf 
    OPButton2.Value = True
    ws.Range("G" & emptyRow).Value = OPButton2.Caption
Else
    OPButton3.Value = True
    ws.Range("G" & emptyRow).Value = OPButton3.Caption

End If

Answer 1

При использовании Elseif, который считается как новый IF...Then, и вам не хватает части Then.

If OPButton1.Value = True Then
    ws.Range("G" & emptyRow).Value = OPButton1.Caption
ElseIf OPButton2.Value = True Then
    ws.Range("G" & emptyRow).Value = OPButton2.Caption
ElseIf OPButton3.Value = True Then
    ws.Range("G" & emptyRow).Value = OPButton3.Caption
Else
    'what do you want to do in this case?
End If

Попробуйте

Answer 2

Почему вы не можете просто написать три отдельных IF заявления. Едва ли это самое элегантное решение, но оно бы работало

ИЛИ

   If button1= true then,
   Do this,
   Else,
   If button2 = true then,
   Do this,
   Else,
   If button2 = true then,
   Do this,
   End if,
   End if,
   End if,

Извините за плохой формат, на мобильном устройстве он не выглядит как код. Новая строка везде есть запятая