Tilstandserklæringer i VBA

De vigtigste tilstandsudsagn brugt i Excel VBA er udsagn Hvis så и Vælg sag. Begge disse udtryk tester en eller flere betingelser og udfører forskellige handlinger afhængigt af resultatet. Vi vil tale om disse to betingede operatører mere detaljeret herefter.

"Hvis ... Så"-erklæring i Visual Basic

Operatør Hvis så kontrollerer betingelsen, og hvis den er sand (TRUE), udføres det angivne sæt handlinger. Den kan også definere et sæt handlinger, der skal udføres, hvis betingelsen er FALSK.

Operatør syntaks Hvis så sådan her:

If Условие1 Then

   Действия в случае, если выполняется Условие1

ElseIf Условие2 Then

   Действия в случае, если выполняется Условие2

Else

   Действия в случае, если не выполнено ни одно из Условий

End If

I dette udtryk er elementerne Ellers hvis и andet betingelser operatør kan udelades, hvis de ikke er nødvendige.

Nedenfor er et eksempel, hvor man bruger operatoren Hvis så Fyldfarven på den aktive celle ændres afhængigt af værdien i den:

Hvis ActiveCell.Value < 5 Then ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Then ActiveCell.Interior.Color '49407. я в оранжевый цвет Else ActiveCell.Interior.Color = 255 'Ячейка окрашивается в красный цвет Afslut hvis

Bemærk, at så snart betingelsen bliver sand, afbrydes udførelsen af ​​den betingede erklæring. Derfor, hvis værdien af ​​variablen ActiveCell mindre end 5, så bliver den første betingelse sand, og cellen farves grøn. Derefter udførelsen af ​​erklæringen Hvis så er afbrudt, og de øvrige forhold kontrolleres ikke.

Lær mere om at bruge den betingede operator i VBA Hvis så kan findes på Microsoft Developer Network.

"Vælg sag"-erklæring i Visual Basic

Operatør Vælg sag ligner operatør Hvis så ved, at den også tjekker sandheden af ​​tilstanden og, afhængigt af resultatet, vælger en af ​​mulighederne.

Operatør syntaks Vælg sag sådan her:

Select Case Выражение

Case Значение1

   Действия в случае, если результат Выражения соответствует Значению1

Case Значение2

   Действия в случае, если результат Выражения соответствует Значению2

...

Case Else

   Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения

End Select

Element Sag ellers er ikke påkrævet, men anbefales til håndtering af uventede værdier.

I det følgende eksempel, ved hjælp af konstruktionen Vælg sag ændrer fyldfarven på den aktuelle celle afhængigt af værdien i den:

Vælg Case ActiveCell.Value Case er <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Јич.49407 = 10ч.Color' ся в оранжевый цвет Case 65535 ActiveCell.Interior. Farve = 11 'Ячейка окрашивается в жёлтый цвет Case 20 To 10498160 ActiveCell.Interior.Color = 255 'Ячейка окрашиваетсявы Active Case Elektricitet Interior. .Color = XNUMX 'Ячейка окрашивается в красный цвет End Select

Eksemplet ovenfor viser, hvordan du kan indstille en værdi for et element på forskellige måder. Kasse i konstruktion Vælg sag. Disse er måderne:

Sagen er <= 5Således bruger søgeordet Sagen er du kan tjekke om værdien opfylder Definitioner og udtryk formularens tilstand <= 5.
Kasse 6, 7, 8, 9På denne måde kan du tjekke om værdien stemmer overens Definitioner og udtryk med en af ​​de anførte værdier. De anførte værdier er adskilt med kommaer.
Kasse 10Dette kontrollerer, om værdien stemmer overens Definitioner og udtryk med en given værdi.
Kasse 11 Det er det 20Således kan du skrive et udtryk for at kontrollere, om værdien opfylder Definitioner og udtryk formularens tilstand fra 11 til 20 (svarende til uligheden "11<=værdi<=20").
Sag ellersSådan ved at bruge søgeordet andet, handlinger er angivet for sagen, hvis værdien Definitioner og udtryk matcher ikke nogen af ​​de angivne muligheder Kasse .

Så snart en af ​​betingelserne er fundet, udføres de tilsvarende handlinger, og strukturen forlader. Vælg sag. Det vil sige, at under alle omstændigheder kun en af ​​de anførte filialer vil blive udført. Kasse .

Mere information om driften af ​​VBA-erklæringen Vælg sag kan findes på Microsoft Developer Network.

Giv en kommentar