Y datganiadau cyflwr pwysicaf a ddefnyddir yn Excel VBA yw'r datganiadau Os … Yna и Dewiswch Achos. Mae'r ddau ymadrodd hyn yn profi un neu fwy o amodau ac, yn dibynnu ar y canlyniad, yn perfformio gwahanol gamau gweithredu. Byddwn yn siarad am y ddau weithredwr amodol hyn yn fanylach nesaf.
Datganiad “Os…Yna” yn Visual Basic
Gweithredwr Os … Yna yn gwirio'r cyflwr ac, os yw'n wir (TRUE), yna cyflawnir y set benodol o gamau gweithredu. Gall hefyd ddiffinio set o gamau gweithredu i'w cyflawni os yw'r cyflwr yn ANGHYWIR.
Cystrawen gweithredwr Os … Yna fel hyn:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
Yn y mynegiant hwn, yr elfennau ArallIf и arall gellir hepgor gweithredwr amodau os nad oes eu hangen.
Isod mae enghraifft lle, gan ddefnyddio'r gweithredwr Os … Yna Mae lliw llenwi'r gell weithredol yn newid yn dibynnu ar y gwerth sydd ynddi:
Os acTam ActionCell.Value <5 yna ActiveCell.interior.color = 65280 'ячейка окрашиваетс зелёный цвет ElseIf ActiveCell.ClouteCter wedyn ActiveCell яOutOnTortionOr я яOutOr цOutOr цOutS окрашивается в красный цвет Diwedd Os
Sylwch, cyn gynted ag y daw'r amod yn wir, y rhoddir y gorau i weithredu'r datganiad amodol. Felly, os yw gwerth y newidyn ActiveCell llai na 5, yna mae'r cyflwr cyntaf yn dod yn wir ac mae'r gell wedi'i lliwio'n wyrdd. Wedi hyny, gweithrediad y gosodiad Os … Yna yn cael ei dorri ac nid yw'r amodau eraill yn cael eu gwirio.
Dysgwch fwy am ddefnyddio'r gweithredwr amodol yn VBA Os … Yna i'w gweld ar y Rhwydwaith Datblygwyr Microsoft.
Datganiad "Dewis Achos" yn Visual Basic
Gweithredwr Dewiswch Achos tebyg i'r gweithredwr Os … Yna yn yr ystyr ei fod hefyd yn gwirio gwirionedd y cyflwr ac, yn dibynnu ar y canlyniad, yn dewis un o'r opsiynau.
Cystrawen gweithredwr Dewiswch Achos fel hyn:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Elfen Achos Arall nid oes ei angen, ond fe'i argymhellir ar gyfer trin gwerthoedd annisgwyl.
Yn yr enghraifft ganlynol, gan ddefnyddio'r lluniad Dewiswch Achos yn newid lliw llenwi'r gell gyfredol yn dibynnu ar y gwerth ynddi:
Dewiswch achos ActiveCell.Value yw <= 5 ActiveCell.Interior.Color = 65280 'ячейка окрашиваетс зелёный цвет achos 6, 7, 8, 9 ActiveCell. Lliw = 49407 'ячейка окрашивается жёлтый цвет achos 10 i 65535 activeCell.Interior.color = 11' ячейка окраOut яCOutCOutCOutCOut вCOut вOutC
Mae'r enghraifft uchod yn dangos sut y gallwch chi osod gwerth ar gyfer elfen mewn gwahanol ffyrdd. achos mewn adeiladu Dewiswch Achos. Dyma'r ffyrdd:
| Achos Is <= Xnumx | Felly, gan ddefnyddio'r allweddair Achos Is gallwch wirio a yw'r gwerth yn bodloni Mynegiadau cyflwr y ffurflen <= Xnumx. |
| achos 6, 7, 8, 9 | Fel hyn gallwch wirio a yw'r gwerth yn cyfateb Mynegiadau gydag un o'r gwerthoedd a restrir. Mae'r gwerthoedd a restrir yn cael eu gwahanu gan atalnodau. |
| achos 10 | Mae hyn yn gwirio a yw'r gwerth yn cyfateb Mynegiadau gyda gwerth penodol. |
| achos 11 Dyna fe 20 | Felly, gallwch chi ysgrifennu mynegiant i wirio a yw'r gwerth yn bodloni Mynegiadau cyflwr y ffurflen o 11 20 i (cyfwerth â'r anhafaledd "11<=gwerth<=20"). |
| Achos Arall | Fel hyn, gan ddefnyddio'r allweddair arall, nodir camau gweithredu ar gyfer yr achos os yw'r gwerth Mynegiadau ddim yn cyfateb i unrhyw un o'r opsiynau a restrir achos. |
Cyn gynted ag y canfyddir un o'r amodau, cyflawnir y gweithredoedd cyfatebol ac mae'r strwythur yn gadael. Dewiswch Achos. Hynny yw, beth bynnag, dim ond un o'r canghennau rhestredig fydd yn cael ei gweithredu. achos.
Mwy o wybodaeth am weithrediad y datganiad VBA Dewiswch Achos i'w gweld ar y Rhwydwaith Datblygwyr Microsoft.