Vba: як використовувати if not (з прикладами)


Ви можете використовувати такий базовий синтаксис, щоб використовувати логіку IF NOT у VBA, щоб перевірити, чи не виконується умова:

 SubIfNot ()
    Dim i As Integer
    
    For i = 2 To 11
        If Not Range(" B " & i) = " West " Then
        Result = “ Not WestElse
        Result = " West "
        End If
    Range(" C " & i) = Result
    Next i

End Sub

У цьому конкретному прикладі перевіряється, чи кожна клітинка в діапазоні B2:B12 не дорівнює “Захід”, а потім призначається “Не Захід” або “Захід” кожній відповідній клітинці в діапазоні C2:C12 .

У наступному прикладі показано, як використовувати цей синтаксис на практиці.

Приклад: як використовувати IF NOT у VBA

Припустімо, що в Excel є такий набір даних, який показує назву команди та дивізіон різних баскетбольних команд:

Припустімо, ми хочемо призначити значення «Захід» або «Не Захід» кожній клітинці в стовпці C залежно від того, чи кожна команда належить до Західного дивізіону.

Для цього ми можемо створити такий макрос:

 SubIfNot ()
    Dim i As Integer
    
    For i = 2 To 11
        If Not Range(" B " & i) = " West " Then
        Result = “ Not WestElse
        Result = " West "
        End If
    Range(" C " & i) = Result
    Next i

End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Значення в стовпці C говорять нам, чи дорівнює кожен підрозділ у стовпці B «Заходу».

Наприклад:

  • Команда A належить до «Заходу», тому в колонці C вказано «Захід»
  • Команда B належить до «Сходу», тому в колонці C показано «Не Захід»
  • Команда C належить до «Сходу», тому в колонці C вказано «Не Захід»
  • Команда D належить до «Півночі», тому в колонці C вказано «Не до Заходу»

І так далі.

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: Як використовувати IF OR для перевірки кількох умов
VBA: Як використовувати IF AND для перевірки кількох умов
VBA: як перевірити, чи містить рядок інший рядок

Додати коментар

Ваша e-mail адреса не оприлюднюватиметься. Обов’язкові поля позначені *