Как добавить сообщение об ошибке внутри кратных, если условия

Question

Это, вероятно, легко, но я немного новичок в программировании. Я, вероятно, сделал несколько жестких кодов, потому что я не знаю ничего лучше.

Я хотел бы добавить сообщение об ошибке, если первое утверждение If не выполнено. Я приведу вам упрощенный пример моего кода. Если вам нужен реальный код, дайте мне знать, и я отредактирую свой вопрос (но осторожно, он длинный!)

If CheckBox1.Value = True and CheckBox2.Value = False then 

(CODE number 1)

Else
MsgBox ("error")
End If

If CheckBox1.Value = False and CheckBox2.Value = True then

(CODE numer 2)

Else
MsgBox("Error")
End if

Проблема здесь в том, что операторы If продолжают поступать, и код будет выполняться построчно. Я знаю об этом. Но я просто не знаю ничего лучше. Поэтому я не могу поместить ошибку msgbox, потому что код продолжит работу и выполнит остальные.

Как фрагментировать строки этих строк, чтобы я мог разместить любое сообщение, которое я хочу, для каждого блока if?

Извините за мой английский sh.

Answer 1

Конденсировать это в оператор If...ElseIf...End If.

If CheckBox1.Value = True and CheckBox2.Value = False then 

(CODE number 1)

ElseIf CheckBox1.Value = False and CheckBox2.Value = True then

(CODE numer 2)

Else
MsgBox("Error")
End if

Это проверит первый оператор, и если он оценивается как истинный, он будет делать (CODE number 1). Если это не так, он проверит, верно ли второе утверждение. Если второе утверждение верно, оно будет делать (CODE number 2). Если второе утверждение неверно, оно подойдет MsgBox("Error")

Если у вас есть BUNCH из них, вы можете сделать обходной путь Select Case True , но обычно это не рекомендуется.