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

Question

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

Answer 1

Обычно вы используете логический флаг для этого

1. Инициализировать флаг (по умолчанию это False, но лучше установить его явно, если область действия переменной больше, чем процедура)
2. Установите флаг в True, когда происходит определенное событие (т. Е. Ячейка не пуста)

3. Проверьте флаг во время вашего кода, чтобы проверить ранний выход, выполнение различных подпрограмм и т. Д. (Например, выход из логики IF)

   Sub SampleFlag()
   Dim bFlag As Boolean
   Dim lngCnt As Long
   bFlag = False
   For lngCnt = 1 To 10
   ' If any cell from A1 to A10 has a value then set flag to true
       If Len(Cells(lngCnt, 1)) > 0 Then bFlag = True
   ' Test for a true flag, then exit  
       If bFlag Then
           MsgBox "Cell " & Cells(lngCnt, 1).Address(0, 0) & " was not empty"
           Exit For
       End If
   Next
   ' if flag is false (ie not true) then no cell values were found
   If Not bFlag Then MsgBox "All cells were empty"
   End Sub