Die belangrikste toestandstellings wat in Excel VBA gebruik word, is die state As … Dan и Kies Geval. Beide hierdie uitdrukkings toets een of meer toestande en, afhangende van die resultaat, voer verskillende aksies uit. Ons sal volgende in meer besonderhede oor hierdie twee voorwaardelike operateurs praat.
"As ... Dan" Verklaring in Visual Basic
operateur As … Dan kontroleer die toestand en, indien dit waar is (WAAR), dan word die gespesifiseerde stel aksies uitgevoer. Dit kan ook 'n stel aksies definieer wat uitgevoer moet word as die toestand ONWAAR is.
Operator sintaksis As … Dan soos hierdie:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
In hierdie uitdrukking, die elemente Anders as и anders voorwaardes operateur kan weggelaat word as dit nie nodig is nie.
Hieronder is 'n voorbeeld waarin, met behulp van die operateur As … Dan Die vulkleur van die aktiewe sel verander na gelang van die waarde daarin:
If ActiveCell.Value < 5 Then ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Then ActiveCell.Interior.Color 49407 Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 255 Then ActiveCell.Interior.ColorXNUMX Cell.Interior.Color = XNUMX 'Ячейка окрашивается в красный цвет End If
Let daarop dat sodra die voorwaarde waar word, die uitvoering van die voorwaardelike stelling gestaak word. Daarom, as die waarde van die veranderlike ActiveCell minder as 5, dan word die eerste voorwaarde waar en die sel word groen gekleur. Daarna is die uitvoering van die verklaring As … Dan word onderbreek en die ander toestande word nie nagegaan nie.
Kom meer te wete oor die gebruik van die voorwaardelike operateur in VBA As … Dan kan gevind word op die Microsoft Developer Network.
"Kies saak"-verklaring in Visual Basic
operateur Kies Geval soortgelyk aan operateur As … Dan deurdat dit ook die waarheid van die toestand nagaan en, afhangend van die resultaat, een van die opsies kies.
Operator sintaksis Kies Geval soos hierdie:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Element Ander geval word nie vereis nie, maar word aanbeveel vir die hantering van onverwagte waardes.
In die volgende voorbeeld, gebruik die konstruk Kies Geval verander die vulkleur van die huidige sel na gelang van die waarde daarin:
Kies Case ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 = Ячейка окрашивается в зелёный цвет Case 10, 65535, 11, 20 ActiveCell.Interior.Color ' 10498160 ActiveCell.Interior. Kleur = 255 'Ячейка окрашивается в жёлтый цвет Case XNUMX To XNUMX ActiveCell.Interior.Color = XNUMX 'Ячейка окрашивается в жёлтый цвет Case XNUMX To XNUMX ActiveCell.Interior.Color = XNUMX 'Ячейка окрашиваетсякайка окрашиваетсякайка окрашиваетсяк XNUMX. ивается в красный цвет Einde Kies
Die voorbeeld hierbo wys hoe jy 'n waarde vir 'n element op verskeie maniere kan stel. geval in konstruksie Kies Geval. Dit is die maniere:
| Geval is <= 5 | Gebruik dus die sleutelwoord Geval is jy kan kyk of die waarde bevredig uitdrukkings toestand van die vorm <= 5. |
| geval 6, 7, 8, 9 | Op hierdie manier kan jy kyk of die waarde ooreenstem uitdrukkings met een van die gelyste waardes. Die gelyste waardes word deur kommas geskei. |
| geval 10 | Dit kyk of die waarde ooreenstem uitdrukkings met 'n gegewe waarde. |
| geval 11 Dis dit 20 | U kan dus 'n uitdrukking skryf om te kyk of die waarde bevredig uitdrukkings toestand van die vorm van 11 na 20 (gelykstaande aan die ongelykheid "11<=waarde<=20"). |
| Ander geval | Soos hierdie, met behulp van die sleutelwoord anders, aksies word vir die geval aangedui as die waarde uitdrukkings pas nie by enige van die opsies gelys nie geval. |
Sodra een van die toestande gevind word, word die ooreenstemmende aksies uitgevoer en die struktuur verlaat. Kies Geval. Dit wil sê, in elk geval sal slegs een van die gelyste takke uitgevoer word. geval.
Meer inligting oor die werking van die VBA-verklaring Kies Geval kan gevind word op die Microsoft Developer Network.