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