Функция за превключване на VBA - Как да използвам функцията за превключване?

Функция за превключване на Excel VBA

Функцията VBA SWITCH ни позволява да тестваме множество условия, без да влагаме допълнителни функции, но можем да приложим всички логически функции в рамките на самата функция.

Логическите функции са сърцето и душата на почти всички изчисления. Овладяването им ще добави повече стойност към нашата CV набор от умения. Когато става въпрос за множество тестове за условия, логичните формули са неизбежни, за да стигнат до резултата. Ние напълно разчитаме на функцията IF в excel & VBA. Като начало самото условие за IF е трудно за усвояване, но когато казваме вложено IF, това е херкулесова формула за овладяване. За да преодолеем всички тези вложени формули, имаме формула, наречена SWITCH.

Синтаксис

  • Switch изчислява първия израз и ако стойността е true, той връща стойността за израза и ако стойността за израз 1 не е true, той продължава за същото изчисление за израз 2 и ако резултатът е true, тогава се показва стойността 2, но ако изразът се върне като false, превключвателят преминава към друг израз.

Ами ако никой от израза не е истина и всички се върнат като неверни? В такава ситуация получаваме грешка във времето на изпълнение, освен ако нямаме превантивна обработка на грешки за такива ситуации.

Как да използвам функцията за превключване във VBA?

Пример # 1

Сега вижте кода по-долу.

Код:

Sub Switch_Example1 () Dim ResultValue As String Dim FruitName As String FruitName = "Apple" ResultValue = Switch (FruitName = "Apple", "Medium", FruitName = "Orange", "Cold", FruitName = "Sapota", "Heat" , FruitName = "Диня", "Студено") MsgBox ResultValue End Sub
  • В горния код съм декларирал две променливи VBA.
Dim ResultValue As String Dim FruitName As String
  • За променливата FruitName зададох името на плода като „Apple“.
FruitName = "Apple"
  • След това, за променливата „ResultValue“, аз съм назначил SWITCH. Позволете ми да ви обясня функцията.
Превключване (FruitName = "Apple", "Medium",
  • Това е първата част от формулата. Ако променливата FruitName е Apple, резултатът трябва да бъде „Среден“.

Следващото е

FruitName = "Orange", "Cold",
  • Това е втората част на основната формула на Excel. Ако променливата FruitName е Orange, тогава резултатът трябва да бъде „Cold“.

След това писахме.

FruitName = "Sapota", "Heat",
  • Това е третата част от формулата. Ако променливата FruitName е Sapota, резултатът трябва да бъде „Heat“.
FruitName = "Диня", "Студено"

Това е последната част на формулата. Ако променливата FruitName е Диня, резултатът трябва да бъде „Студен“.

Когато стартирам този код, той ще върне резултата като „Среден“, тъй като за променливата „FruitName“ съм задал стойността като „Apple“

Тъй като Fruit Name е „Apple“, нашият логичен резултат от теста е „Medium“, така че съответно имаме резултат в полето за съобщения.

Задайте различните стойности на променливата “FruitName”, за да получите съответния резултат.

Пример # 2

Разгледайте още един пример.

Код:

Sub Switch_Example2 () Dim ResultValue As String Dim CityName As String CityName = "Delhi" ResultValue = Switch (CityName = "Delhi", "Metro", CityName = "Bangalore", "Non Metro", CityName = "Mumbai", "Metro ", CityName =" Kolkata "," Non Metro ") MsgBox ResultValue End Sub

Този път присвоих имена на градове, независимо от името на града, което предоставяме на променливата „CityName“, съответно приложих някои резултати към съответните имена на градове.

Ако приложите името на града като „Делхи или Мумбай“, получаваме резултата като „Метро“, или ако приложим името на града като „Бангалор или Колката“, получаваме резултата като „Не-метро“.

Сега в горния пример споменах името на града като „Делхи“, така че резултатът ни ще бъде „Метро“ в полето за съобщения във VBA.

Ето как работи функцията SWITCH във VBA.

Неща за запомняне

  • SWITCH се предлага както като работни листове на Excel, така и като функции на VBA.
  • Можем да използваме SWITCH като алтернатива на вложените IF условия на Excel.
  • Използвайте това в реални примери, за да получите практическо решаване на проблеми.

Интересни статии...