Déi wichtegst Konditiounsaussoen, déi an Excel VBA benotzt ginn, sinn d'Aussoen Wann ... Dann и Wielt Fall. Béid vun dësen Ausdréck testen een oder méi Konditiounen an, ofhängeg vum Resultat, maachen verschidden Aktiounen. Mir schwätzen iwwer dës zwee bedingte Betreiber méi am Detail nächst.
"Wann ... Dann" Ausso an Visual Basic
Betreiber Wann ... Dann kontrolléiert d'Konditioun an, wann et richteg ass (TRUE), da gëtt de spezifizéierte Set vun Aktiounen ausgefouert. Et kann och eng Rei vun Aktiounen definéieren fir auszeféieren wann d'Konditioun FALSE ass.
Operator Syntax Wann ... Dann esou:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
An dësem Ausdrock, d'Elementer elseif и aneren Konditioune Bedreiwer kann ewechgelooss ginn wann se net néideg sinn.
Drënner ass e Beispill an deem de Bedreiwer benotzt Wann ... Dann D'Füllfaarf vun der aktiver Zell ännert sech ofhängeg vum Wäert an deem:
Wann ActiveCell.Value < 5 Dann ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Then ActiveCell.Interior.Color49407'255.ColorXNUMX. я в оранжевый цвет Else ActiveCell.Interior.Color = XNUMX 'Ячейка окрашивается в красный цвет Enn Wann
Bedenkt datt soubal d'Konditioun wouer gëtt, gëtt d'Ausféierung vun der bedingte Ausso ofgebrach. Dofir, wann de Wäert vun der Variabel ActiveCell manner wéi 5, da gëtt déi éischt Konditioun richteg an d'Zelle ass gréng faarweg. Duerno ass d'Ausféierung vun der Ausso Wann ... Dann gëtt ënnerbrach an déi aner Konditioune ginn net iwwerpréift.
Léiert méi iwwer d'Benotzung vum bedingte Bedreiwer an VBA Wann ... Dann kann um Microsoft Developer Network fonnt ginn.
"Auswielen Fall" Ausso an Visual Basic
Betreiber Wielt Fall ähnlech wéi Bedreiwer Wann ... Dann an datt et och d'Wourecht vun der Conditioun iwwerpréift an, jee no dem Resultat, eng vun den Optiounen wielt.
Operator Syntax Wielt Fall esou:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Element Fall anescht ass net erfuerderlech, awer ass recommandéiert fir onerwaart Wäerter ze handhaben.
Am folgende Beispill benotzt de Konstrukt Wielt Fall ännert d'Füllfaarf vun der aktueller Zell ofhängeg vum Wäert an deem:
Select Case ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 ся в оранжевый цвет Case 6 ActiveCell.Interior. Faarf = 7 'Ячейка окрашивается в жёлтый цвет Case 8 To 9 ActiveCell.Interior.Color = 49407 'Ячейка окрашиваетсявыCaeiVается в жёлтый цвет .Color = 10 'Ячейка окрашивается в красный цвет End Select
D'Beispill hei uewen weist wéi Dir e Wäert fir en Element op verschidde Manéiere setzen kënnt. Fall am Bau Wielt Fall. Dëst sinn d'Weeër:
| Fall ass <= 5 | Also benotzt d'Schlësselwuert Fall ass Dir kënnt kontrolléieren ob de Wäert entsprécht Ausdréck Zoustand vun der Form <= 5. |
| Fall 6, 7, 8, 9 | Op dës Manéier kënnt Dir kucken ob de Wäert entsprécht Ausdréck mat ee vun de opgezielt Wäerter. Déi opgelëscht Wäerter gi vu Komma getrennt. |
| Fall 10 | Dëst kontrolléiert ob de Wäert entsprécht Ausdréck mat engem bestëmmte Wäert. |
| Fall 11 Dat ass et 20 | Also kënnt Dir en Ausdrock schreiwen fir ze kontrolléieren ob de Wäert entsprécht Ausdréck Zoustand vun der Form vu 11 op 20 (entspriechend der Ongläichheet "11<=Wäert<=20"). |
| Fall anescht | Wéi dëst, mam Schlësselwuert aneren, Aktiounen sinn fir de Fall uginn wann de Wäert Ausdréck entsprécht keng vun den opgelëscht Optiounen Fall. |
Soubal ee vun de Konditioune fonnt gëtt, ginn déi entspriechend Aktiounen ausgefouert an d'Struktur geet eraus. Wielt Fall. Dat ass, op jidde Fall, gëtt nëmmen eng vun de opgezielt Filialen ausgefouert. Fall.
Méi Informatiounen iwwert d'Operatioun vun der VBA Ausso Wielt Fall kann um Microsoft Developer Network fonnt ginn.