Kõige olulisemad Excel VBA-s kasutatavad tingimuslaused on laused Kui siis и Valige Case. Mõlemad avaldised testivad ühte või mitut tingimust ja sooritavad olenevalt tulemusest erinevaid toiminguid. Nendest kahest tingimuslikust operaatorist räägime järgnevalt lähemalt.
„Kui...siis” avaldus Visual Basicus
operaator Kui siis kontrollib tingimust ja kui see on tõene (TRUE), siis sooritatakse määratud toimingute komplekt. Samuti võib see määratleda toimingute komplekti, mida tuleb teha, kui tingimus on VÄÄR.
Operaatori süntaks Kui siis nagu nii:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
Selles väljendis elemendid Muidu Kui и teine tingimuste operaatori võib ära jätta, kui neid pole vaja.
Allpool on näide, milles operaatorit kasutades Kui siis Aktiivse lahtri täitevärv muutub sõltuvalt selles olevast väärtusest:
Kui ActiveCell.Value < 5, siis ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет ElseIf ActiveCell.Value < 10 Siis ActiveCell.Interior.Color = 49407 оранжевый цвет Else ActiveCell.Interior.Color = 255 'Ячейка окрашивается в красный цвет Lõpp Kui
Pange tähele, et niipea, kui tingimus muutub tõeseks, tingimuslause täitmine katkestatakse. Seega, kui muutuja väärtus ActiveCell vähem kui 5, siis esimene tingimus muutub tõeseks ja lahter on roheliseks värvitud. Pärast seda avalduse täitmine Kui siis katkeb ja muid tingimusi ei kontrollita.
Lisateave tingimusliku operaatori kasutamise kohta VBA-s Kui siis leiate Microsofti arendajavõrgust.
"Select Case" avaldus Visual Basicus
operaator Valige Case sarnane operaatoriga Kui siis selles osas, et kontrollib ka tingimuse õigsust ja valib tulemusest olenevalt ühe variandi.
Operaatori süntaks Valige Case nagu nii:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Element Juhtum muu ei ole nõutav, kuid on soovitatav ootamatute väärtuste käsitlemiseks.
Järgmises näites konstruktsiooni kasutades Valige Case muudab praeguse lahtri täitevärvi sõltuvalt selles olevast väärtusest:
Select Case ActiveCell.Value Juhtum on <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается в зелёный цвет Juhtum 6, 7, 8, 9 ActiveCell.Interior.Color = '49407Якрачейкакрачей 10 в оранжевый цвет Case 65535 ActiveCell.Interior. Värv = 11 'Ячейка окрашивается в жёлтый цвет Juhtum 20 kuni 10498160 ActiveCell.Interior.Color = 255 'Ячейка окрашитывается окрашитыйлцвется. või.Värv = XNUMX 'Ячейка окрашивается в красный цвет Lõpp Vali
Ülaltoodud näide näitab, kuidas saate elemendile väärtuse mitmel viisil määrata. juhtum ehituses Valige Case. Need on viisid:
Juhtum on <= Xnumx | Seega kasutades märksõna Juhtum on saate kontrollida, kas väärtus rahuldab Väljendid vormi seisund <= Xnumx. |
juhtum 6, 7, 8, 9 | Nii saate kontrollida, kas väärtus vastab Väljendid ühe loetletud väärtustega. Loetletud väärtused on eraldatud komadega. |
juhtum 10 | See kontrollib, kas väärtus vastab Väljendid etteantud väärtusega. |
juhtum 11 See on kõik 20 | Seega saate kirjutada avaldise, et kontrollida, kas väärtus vastab Väljendid vormi seisund alates 11 et 20 (võrdne ebavõrdsusega "11<=väärtus<=20"). |
Juhtum muu | Niimoodi, kasutades märksõna teine, näidatakse toimingud juhul, kui väärtus Väljendid ei vasta ühelegi loetletud valikule juhtum. |
Niipea kui üks tingimustest leitakse, tehakse vastavad toimingud ja struktuur väljub. Valige Case. See tähendab, et igal juhul teostatakse ainult üks loetletud harudest. juhtum.
Lisateave VBA avalduse toimimise kohta Valige Case leiate Microsofti arendajavõrgust.