Excel VBA har IF Then Else-konstruktionen som du kan använda för att analysera flera förhållanden och utföra koder baserat på dessa villkor.
En annan liknande konstruktion som gör att du kan söka efter flera villkor är SELECT CASE-satsen.
Select Case är användbart när du har tre eller flera villkor som du vill ha att kolla. Du kan också använda detta under två förhållanden (men jag känner att If Then Else är lättare att använda i sådana fall).
Ett enkelt exempel där Select Case-uttalandet är användbart när du vill få betyget student baserat på de betyg som han / hon har fått (täckt som ett exempel senare i den här självstudien).
Obs! Alla exempelkoder som täcks i denna handledning är avsedda att placeras i en modul i VBA. / p>
Denna handledning omfattar:
Välj fallsyntax
Nedan är syntaxen för Välj fall i Excel VBA:
Select Case Test_ExpressionCase Value_1Code Block when Test_Expression = Value_1Case Value_2Code Block when Test_Expression = Value_2Case Value_3Code Block when Test_Expression = Value_3Case ElseCode Block when none of the case conditions are metEnd Select
- Test_Expression: Detta är uttrycket vars värde vi analyserar med hjälp av olika fall (förklaras bättre med exemplen nedan).
- Condition_1, Condition_2,…: Dessa är de villkor som textuttrycket testas på. Om det uppfyller villkoret körs kodblocket för det angivna villkoret.
För varje Select Case-uttalande som du använder måste du använda End Select-uttalandet.
Obs! Så snart ett villkor är uppfyllt avslutar VBA select case-konstruktionen. Så om du har fem villkor och det andra villkoret är uppfyllt skulle VBA avsluta Select Case – och resten av villkoren kommer inte att testas.
Välj Case Exempel
Nu till bättre förstå hur man använder Select Case-uttalande i VBA, låt oss gå igenom några exempel.
Observera att de flesta exemplen i denna handledning är avsedda att förklara konceptet. Det här är kanske det bästa sättet att få jobbet gjort.
Låt oss börja med ett enkelt exempel på hur Select Case tillåter oss att söka efter förhållanden.
Exempel 1 – Kontrollera siffrorna
I exemplet nedan ber koden användaren att ange valfritt nummer mellan 1 och 5 och visar sedan ett meddelandefält med det nummer som användaren angav.
Sub CheckNumber()Dim UserInput As IntegerUserInput = InputBox("Please enter a number between 1 and 5")Select Case UserInputCase 1MsgBox "You entered 1"Case 2MsgBox "You entered 2"Case 3MsgBox "You entered 3"Case 4MsgBox "You entered 4"Case
read more