Вместо нескольких операторов If Then в Excel VBA, вы можете использовать Выберите структуру дела.
Ситуация:
Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
1. Сначала объявите две переменные. Одна переменная типа Integer с именем score и одна переменная типа String с именем result.
Тусклый счет как целое число, результат как строка
2. Мы инициализируем переменную score значением ячейки A1.
оценка = Диапазон ("A1"). Значение
3. Добавьте структуру Select Case.
Выберите Оценка обращения
Случай> = 80
результат = "очень хорошо"
Случай> = 70
результат = "хорошо"
Случай> = 60
результат = "достаточно"
Case Else
результат = "недостаточно"
Конец Выбрать
Объяснение: Excel VBA использует значение переменной score для проверки каждого последующего оператора Case, чтобы увидеть, должен ли выполняться код под оператором Case.
4. Запишите значение переменной result в ячейку B1.
Диапазон ("B1"). Значение = результат
5. Протестируйте программу.
Результат при нажатии кнопки команды на листе:
Примечание. Excel VBA выполняет код под вторым оператором Case для всех значений больше или равных 70 и меньше 80.