Подтвердить что ты не робот

Если выражение с несколькими строками

У меня есть оператор if с несколькими условиями. Я не вижу их всех в одном окне. Есть ли способ разделить их на разные строки или их нужно записать в одну строку?

4b9b3361

Ответ 1

Символ продолжения строки VBA является символом подчеркивания _

if ( _
    (something) _
    or (somethingelse) _
) 

Ответ 2

Вы можете использовать символ продолжения строки _

Все они одинаковы:

If Something Or  SomethingElse Or AnotherThing Then

If Something Or SomethingElse _
   Or AnotherThing Then

If Something Or _
   SomethingElse Or _
   AnotherThing Then

Ответ 3

Как и выше, вы можете разбить длинный набор условий в одном выражении "IF", ​​используя знак подчеркивания.

Если слишком много условий, и мне сложно читать, я использую BOOLEANS для представления условий. Кажется, что есть больше кода, но мне легче читать.

Если у меня есть сценарий, где мне нужно сделать следующее:

IF (X = something1) OR (X = something2) OR (X = something2) OR (X = something2) OR (X = something2) OR (X = something2) OR (X = something2) OR (X = something2) THEN
END IF

Я мог бы сделать это:

IF _
    (X = something1) _
    OR (X = something2) _
    OR (X = something3) _
    OR (X = something4) _
    OR (X = something5) _
    OR (X = something6) _
    OR (X = something7) _
    OR (X = something8) _
THEN
END IF

... или я мог бы это сделать...

blnCondition1 = (X = something1)
blnCondition2 = (X = something2)
blnCondition3 = (X = something3)
blnCondition4 = (X = something4)
blnCondition5 = (X = something5)
blnCondition6 = (X = something6)
blnCondition7 = (X = something7)
blnCondition8 = (X = something8)

IF blnCondition1 OR blnCondition2 OR blnCondition3 OR blnCondition4 OR blnCondition5 OR blnCondition6 OR blnCondition7 OR blnCondition8 THEN
END IF

Конечно, указаны переменные BOOLEAN, и вместо имен, таких как blnCondition1, я буду использовать значащие имена.

Опять же, это просто предпочтение, которое у меня есть.

Ответ 4

сломать их под балл _?

Библиотека Microsoft

по ссылке выше

If ActiveSheet.ChartObjects(1).Chart.ChartTitle = _
      ActiveSheet.Range("a2").Value Then
   MsgBox "They are equal."
End If

Ответ 5

im довольно уверен, что вы можете использовать символ подчеркивания _ для разрыва строк.