De viktigaste villkorssatserna som används i Excel VBA är satserna Om då и Välj Fall. Båda dessa uttryck testar ett eller flera villkor och utför olika åtgärder beroende på resultatet. Vi kommer att prata om dessa två villkorade operatörer mer i detalj härnäst.
"Om...Då" uttalande i Visual Basic
Operatör Om då kontrollerar villkoret och, om det är sant (TRUE), utförs den angivna uppsättningen åtgärder. Den kan också definiera en uppsättning åtgärder som ska utföras om villkoret är FALSK.
Operatörssyntax Om då så här:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
I detta uttryck, elementen elseif и annars villkorsoperatör kan utelämnas om de inte behövs.
Nedan är ett exempel där man använder operatorn Om då Fyllningsfärgen för den aktiva cellen ändras beroende på värdet i den:
Om ActiveCell.Value < 5 Then ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Then ActiveCell.Interior.Color 49407.Color' 255 я в оранжевый цвет Else ActiveCell.Interior.Color = XNUMX 'Ячейка окрашивается в красный цвет Sluta om
Observera att så snart villkoret blir sant avbryts exekveringen av det villkorliga uttalandet. Därför, om värdet på variabeln ActiveCell mindre än 5, då blir det första villkoret sant och cellen färgas grön. Efter det, utförandet av uttalandet Om då avbryts och övriga villkor kontrolleras inte.
Läs mer om hur du använder den villkorliga operatorn i VBA Om då finns på Microsoft Developer Network.
"Välj fall"-uttalande i Visual Basic
Operatör Välj Fall liknande operatören Om då genom att den också kontrollerar sanningen av tillståndet och, beroende på resultatet, väljer ett av alternativen.
Operatörssyntax Välj Fall så här:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Elementet Case Else krävs inte, men rekommenderas för att hantera oväntade värden.
I följande exempel använder du konstruktionen Välj Fall ändrar fyllningsfärgen för den aktuella cellen beroende på värdet i den:
Välj Case ActiveCell.Value Case är <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior.Color 'Ячейка окрашивается в зелёный цвет ся в оранжевый цвет Case 49407 ActiveCell.Interior. Färg = 10 'Ячейка окрашивается в жёлтый цвет Fodral 65535 Till 11 ActiveCell.Interior.Color = 20 'Ячейка окрашивается Ячейка окрашивается Ячейка окрашивается в жёлтый цвет Interior. .Color = 10498160 'Ячейка окрашивается в красный цвет End Select
Exemplet ovan visar hur du kan ställa in ett värde för ett element på olika sätt. Fall under konstruktion Välj Fall. Dessa är sätten:
| Fall är <= 5 | Alltså att använda nyckelordet Fall är du kan kontrollera om värdet överensstämmer uttryck formulärets skick <= 5. |
| Fall 6, 7, 8, 9 | På så sätt kan du kontrollera om värdet matchar uttryck med ett av de listade värdena. De listade värdena separeras med kommatecken. |
| Fall 10 | Detta kontrollerar om värdet matchar uttryck med ett givet värde. |
| Fall 11 Det är allt 20 | Således kan du skriva ett uttryck för att kontrollera om värdet stämmer uttryck formulärets skick från 11 till 20 (motsvarande olikheten "11<=värde<=20"). |
| Case Else | Så här med nyckelordet annars, indikeras åtgärder för fallet om värdet uttryck matchar inte något av de listade alternativen Fall. |
Så snart ett av tillstånden hittas utförs motsvarande åtgärder och strukturen går ut. Välj Fall. Det vill säga, i alla fall kommer endast en av de listade filialerna att exekveras. Fall.
Mer information om hur VBA-utlåtandet fungerar Välj Fall finns på Microsoft Developer Network.