Функція вибору випадку VBA - Як використовувати Excel VBA Select Case?

Зміст:

Anonim

VBA Select Case

Вибір випадку VBA - це одна з подібних умов, яку ми використовуємо для тестування декількох умов замість традиційних умов IF у VBA. Select Case працює точно так само, як працює умова IF.

Як, наприклад, ми перевіряємо декілька умов і отримуємо результати за умови IF аналогічно, використовуючи SELECT CASE, ми перевіряємо умову та отримуємо результати. У цій статті я проведу вас через ідеологію твердження SELECT CASE.

Формула VBA Select Case

Як використовувати Excel VBA Select Case ?

Давайте розберемося, як використовувати функцію VBA Select Case Excel з кількома прикладами.

Ви можете завантажити шаблон VBA Select Case Function тут - VBA Select Case Function Template

Функція вибору випадку VBA - Приклад №1

Припустимо, у вас є значення в комірці A1, і ви хочете перевірити, чи є це значення більше 100 чи ні.

Якщо значення більше 100, нам потрібен результат як "Більше 100" у комірці B1, або нам потрібен результат як "Менше 100". Нижче код зробить нам роботу.

 Sub SelectCase_Ex () Виберіть Діапазон випадків ("A1"). Значення випадку становить> 100 Діапазон ("B1"). Значення = "Більше 100" Діапазон інших випадків ("B1"). Значення = "Менше 100" Кінець Виберіть Кінець Під

Запустіть цей код за допомогою клавіші F5 або вручну, як показано, щоб отримати результати в комірці B1.

Функція вибору випадку VBA - Приклад №2

Тепер ми розглянемо вкладені оператори Select Case. Припустимо, у вас є таблиця повернення позики з січня по грудень.

У розділі статусу даних нам потрібно отримати результат наступним чином.

  • Якщо значення відновлення перевищує 45000, результат повинен бути «Відмінним»
  • Якщо значення відновлення перевищує 40000, результат повинен бути "Дуже хорошим"
  • Якщо значення відновлення перевищує 30000, результат повинен бути «хорошим»
  • Якщо значення відновлення перевищує 20000, результат повинен бути "Непогано"
  • Якщо всі результати ЛІЖНІ, то результат повинен бути "поганим"

Оскільки нам потрібно перевірити декілька випадків, нам потрібно використовувати вкладені оператори Select Case, подібні до вкладених операторів IF.

 Sub IF_Results () Dim i As Integer i = 2 For i = 2 to 13 Виберіть клітинки регістру (i, 2). Case case> 45000 Cell (i, 3) .Value = "Відмінний" випадок> 40000 Cell (i, 3) .Value = "Дуже хороший" випадок> 30000 клітин (i, 3) .Value = "Хороший" випадок> 20000 клітин (i, 3) .Value = "Не погано" Випадкові інші клітини (i, 3 ) .Value = "Bad" End Виберіть Next i End Sub

Скопіюйте цей код і вставте у свій модуль.

Тепер запустіть цей код за допомогою клавіші F5 або вручну, щоб отримати бажані результати у стовпці Статус.

Функція вибору випадку VBA - Приклад №3

Тепер ми побачимо Select Case з власним вхідним значенням. Ми побачимо, як подати значення в поле введення та на основі введеного значення визначимо результат.

 Sub SelectCase_InputBox () Dim MyValue As Integer MyValue = Application.InputBox ("Введіть лише числове значення", "Введіть число") Виберіть "Case Case MyValue"> 1000 MsgBox "Введене значення більше 1000" Випадок> 500 MsgBox "Введене значення більше 500 "Введене значення" Case Else MsgBox "менше 500" End Select End Sub

Скопіюйте та вставте цей код у свій модуль.

Крок 1: Після копіювання коду на ваш модуль запустіть код, який ви побачите в цьому полі введення.

Крок 2: Тут нам потрібно ввести лише числові значення.

Крок 3: Тепер натисніть кнопку ОК, ми побачимо вікно повідомлень, що показує результат результату оператора Select Case.

Функція вибору VBA у випадку VBA - приклад №4

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

Скопіюйте та вставте наведений нижче код у свій модуль для запуску та запуску.

 Sub SelectCase () Dim Mynumber As Integer Mynumber = Application.InputBox ("Введіть номер", "Будь ласка, введіть цифри від 100 до 200") Виберіть регістр Case Mynumber від 100 до 140 MsgBox "Кількість, яку ви ввели менше 140" Випадок 141 До 180 MsgBox "Кількість, яку ви ввели менше 180" Case Else MsgBox "Введене вами число становить> 180 & <200" Кінець Виберіть Кінець Sub

Крок 1. Запустіть цей код, ви побачите поле введення .

Крок 2: Як підказує запит, нам потрібно ввести числа від 100 до 200. Отже, введіть числа від 100 до 200.

Крок 3: Натисніть кнопку ОК. Результат ми побачимо на основі результату тестування обраного випадку.

Що потрібно пам’ятати

  • На відміну від IF умови тест не пройде через усі умови у Select Case. Щойно умова буде виконана, вона припинить інші умови.
  • Як і всі інші умови, тут також усі текстові значення повинні бути в подвійних лапках.
  • Це працює точно так само, як твердження IF у VBA. Це своєрідна альтернатива твердженню IF.

Рекомендовані статті

Це було керівництвом щодо функції VBA Select Case. Тут ми обговорили VBA Select Case і як використовувати функцію вибору випадку Excel VBA Select skupaj з деякими практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете ознайомитися з іншими запропонованими нами статтями -

  1. Керівництво по циклу Excel VBA
  2. Як використовувати функцію VBA в Excel?
  3. Як використовувати функцію VBA VLOOKUP?
  4. Як створити поле Excel List?