Deklaratat më të rëndësishme të kushteve të përdorura në Excel VBA janë deklaratat Nese atehere и Zgjidhni Rastin. Të dyja këto shprehje testojnë një ose më shumë kushte dhe, në varësi të rezultatit, kryejnë veprime të ndryshme. Për këta dy operatorë të kushtëzuar do të flasim më në detaje në vijim.
Deklarata "Nëse ... Atëherë" në Visual Basic
operator Nese atehere kontrollon gjendjen dhe nëse është e vërtetë (TRUE), atëherë kryhet grupi i veprimeve të specifikuara. Mund të përcaktojë gjithashtu një grup veprimesh që duhen kryer nëse kushti është FALSE.
Sintaksa e operatorit Nese atehere si kjo:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
Në këtë shprehje, elementet Tjeter nese и tjetër operatori i kushteve mund të hiqet nëse nuk nevojiten.
Më poshtë është një shembull në të cilin, duke përdorur operatorin Nese atehere Ngjyra e mbushjes së qelizës aktive ndryshon në varësi të vlerës në të:
Nëse ActiveCell.Value < 5 Pastaj ActiveCell.Interior.Color = 65280 'ElseIf ActiveCell.Value < 10 Pastaj ActiveCell.Interior.Color = 49407 'Krajo elastike.Interior.Color = 255 окрашивается в красный цвет Fundi Nëse
Vini re se sapo kushti të bëhet i vërtetë, ekzekutimi i deklaratës së kushtëzuar ndërpritet. Prandaj, nëse vlera e ndryshores ActiveCell më pak se 5, atëherë kushti i parë bëhet i vërtetë dhe qeliza ngjyroset jeshile. Pas kësaj, ekzekutimi i deklaratës Nese atehere ndërpritet dhe kushtet e tjera nuk kontrollohen.
Mësoni më shumë rreth përdorimit të operatorit të kushtëzuar në VBA Nese atehere mund të gjendet në Rrjetin e Zhvilluesve të Microsoft.
Deklarata "Select Case" në Visual Basic
operator Zgjidhni Rastin të ngjashme me operatorin Nese atehere në atë që kontrollon edhe vërtetësinë e kushtit dhe, në varësi të rezultatit, zgjedh një nga opsionet.
Sintaksa e operatorit Zgjidhni Rastin si kjo:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Element Rasti tjetër nuk kërkohet, por rekomandohet për trajtimin e vlerave të papritura.
Në shembullin e mëposhtëm, duke përdorur konstruktin Zgjidhni Rastin ndryshon ngjyrën e mbushjes së qelizës aktuale në varësi të vlerës në të:
Zgjidh Case ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окрашивается во зелёный Case 6, 7, 8, 9 ActiveCell.Interior.Ngjyrë = 49407 'Касата ActiveCell.Interior.Interior. Ngjyrë = 10 'Kasa e zbehtë në ngjyrën e ngjyrës Case 65535 deri në 11 ActiveCell.Interior.Ngjyrë = 20 'Çështje e zbehtë në lilovыy ngjyrë Case Else ActiveCell.Interior.Ngjyrë ' =
Shembulli i mësipërm tregon se si mund të vendosni një vlerë për një element në mënyra të ndryshme. Rast në ndërtimtari Zgjidhni Rastin. Këto janë mënyrat:
| Rasti është <= 5 | Kështu, duke përdorur fjalën kyçe Rasti është mund të kontrolloni nëse vlera është e kënaqshme shprehjet gjendjen e formularit <= 5. |
| Rast 6, 7, 8, 9 | Në këtë mënyrë mund të kontrolloni nëse vlera përputhet shprehjet me një nga vlerat e listuara. Vlerat e listuara ndahen me presje. |
| Rast 10 | Kjo kontrollon nëse vlera përputhet shprehjet me një vlerë të caktuar. |
| Rast 11 Kjo eshte 20 | Kështu, mund të shkruani një shprehje për të kontrolluar nëse vlera plotëson shprehjet gjendjen e formularit nga 11 të 20 (ekuivalente me pabarazinë "11<=vlera<=20"). |
| Rasti tjetër | Si kjo, duke përdorur fjalën kyçe tjetër, veprimet tregohen për rastin nëse vlera shprehjet nuk përputhet me asnjë nga opsionet e listuara Rast. |
Sapo gjendet një nga kushtet, kryhen veprimet përkatëse dhe struktura del. Zgjidhni Rastin. Kjo do të thotë, në çdo rast, vetëm një nga degët e listuara do të ekzekutohet. Rast.
Më shumë informacion rreth funksionimit të deklaratës VBA Zgjidhni Rastin mund të gjendet në Rrjetin e Zhvilluesve të Microsoft.