Príklad 10-25. Vytvorenie prípadu #! / Bin / Bash # hrubý príklad databázovej obrazovky "ECHO zoznam -----" ECHO "Vyberte osobu, ktorú máte záujem:" Echoecho "[e] dodávky, Roland" Echo "[j] Tí, Mildred "Echo" [s] Mith, Julie "Echo" [Z] Anea, Morris "EchoEad Personase" $ osoba "v # Poznámka: Premenná sa užíva v citáciách.

Príklad 10-26. Prevádzkovateľ prípadu vám umožňuje použiť nastavenie príkazov namiesto analyzovanej premennej #! / Bin / Bash # Substitúcia príkazov v "Case" .ccase $ (ARCH) v # ARCH Príkaz vracia reťazec opisujúci hardvér APHITECUT.I386 ) ECHO "CPU 80386"; I486) ECHO "Stroj založený na

Príklad A-18. Generovanie prvoradých čísel pomocou prevádzkovateľa divízie modulu (bilancia delenia) #! / Bin / Bash # Primes.Sh: Generovanie prvočísel, bez použitia polí. # Autor: Stephane Chazels. Tento scenár nepoužíva algoritmus triedy " Devolo Eratosthen ", # + namiesto toho

Rozšírenie operátora, ak používa inde Najjednoduchší formulár Ak je operátor, ktorý sme práve používali: ak (výraz) operátor zvyčajne pod výrazom pochopiť podmienečnú expresiu, porovnávajú hodnoty dvoch hodnôt (napríklad x\u003e y

18.8.2. Ukončenie vykonávania prevádzkovateľa prípadu zváži nasledujúci príklad. V skripte sa vykonáva nekonečný cyklus, kým používateľ zadá číslo väčšie ako 5. prerušiť cyklus a vrátiť sa do príkazový riadok Tlmočník použitý tím prestávka. $ Pg

Jednoduchý príklad použitia funkcie Select teraz budeme redo kód nášho príjemcu údajov mimo pásma a namiesto signálu Sigurg použije funkciu Select. Zoznam 24.3 zobrazuje prijímací program. Odpočívajúci sa 24.3. Prijímajúci program, v ktorom (chybne)

Najviac dôležité prevádzkovatelia Podmienky používané v Excel VBA. - to sú prevádzkovatelia Ak potom. a Vyberte prípad.. Obe tieto výrazy kontrolujú jednu alebo viac podmienok av závislosti od výsledku vykonajte rôzne akcie. Ďalej budeme hovoriť o týchto dvoch prevádzkovateľoch podmienok podrobnejšie.

Operátor "Ak ... potom" v jazyku Visual Basic

Operátor Ak potom. Kontroluje stav a ak je to pravda (TRUE), vykonáva sa zadaný súbor akcií. Je možné definovať sadu akcií, ktoré sa musia vykonať, ak je stav nepravdivý (nepravdivý).

Operátor syntaxe Ak potom. Toto je:

Ak. Stav1 Potom.
Akcie v prípade podmienok1 je splnená
Ináč Ak Stav2 Potom.
Akcie v prípade podmienky2 sú splnené
Inak.
Akcie v prípade, že sa nevykonávajú žiadne podmienky
Koniec Ak

V tomto výraze Ináč Ak a Inak. Podmienky operátora sa nesmú používať, ak nie je potrebné.

Nižšie je príkladom, ktorý používa operátora Ak potom. Farba výplne aktívnej bunky sa líši v závislosti od hodnôt v ňom:

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

Upozorňujeme, že akonáhle sa stav stane pravdou, bude prerušený výkon podmieneného operátora. V dôsledku toho, ak hodnota premennej ActiveCell. Menej ako 5, potom sa prvý stav stáva pravdivý a bunka je natretá v zelenej farbe. Po tom, realizácia operátora Ak potom. Prerušené a zostávajúce podmienky nie sú kontrolované.

Operátor "Vybrať prípad" v jazyku Visual Basic

Operátor Vyberte prípad. Podobne ako operátorovi Ak potom. V tom, že tiež kontroluje pravdu stavu a v závislosti od výsledku si vyberie jednu z možností akcie.

Operátor syntaxe Vyberte prípad. Toto je:

Vyberte prípad. Vyjadrenie
Spojenie Význam1
Akcie v prípade, že výsledok výrazu zodpovedá hodnote1
Spojenie Význam2.
Akcie v prípade, že výsledok výrazu zodpovedá hodnote2
…
Inak
Akcie v prípade, že výsledok výrazu nezodpovedá niektorým z uvedených možností
END SELECT.

Element Inak Nie je to povinné, ale odporúča sa použiť na spracovanie nepredvídaných hodnôt.

V nasledujúcom príklade pomocou dizajnu Vyberte prípad. Farba odlievania súčasnej bunky sa líši v závislosti od hodnôt v ňom:

Vybrať prípad ActiveCell.Value je<= 5 ActiveCell.Interior.Color = 65280 "Ячейка окрашивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 "Ячейка окрашивается в оранжевый цвет Case 10 ActiveCell.Interior.Color = 65535 "Ячейка окрашивается в жёлтый цвет Case 11 To 20 ActiveCell.Interior.Color = 10498160 "Ячейка окрашивается в лиловый цвет Case Else ActiveCell.Interior.Color = 255 "Ячейка окрашивается в красный цвет End Select

Vyššie uvedený príklad ukazuje, ako nastaviť hodnotu pre prvku ako rôzne metódy. Spojenie V dizajne Vyberte prípad.. Toto sú tieto spôsoby:

Akonáhle sa nachádza jedna z podmienok, vykonávajú sa vhodné opatrenia a výstup je vyrobený z dizajnu. Vyberte prípad.. To znamená, že v každom prípade sa vykoná len jedna z uvedených vetiev. Spojenie.

V reálnych programoch je často potrebné vykonať zložitejšiu voľbu v postupoch, výberom medzi tromi a viacerými pobočkami. V tomto prípade môžete prevádzkovateľom dať If .. navzájom. Toto sa nazýva investícia prevádzkovateľov.

Vyššie uvedený postup používa niekoľko podmienených prechodných prevádzkovateľov. Treba povedať, že takýto postup bude fungovať len v programe Excel, pretože Používa metódu Application.inputBox (pozri Hostiteľské aplikácie). Táto metóda nedáva užívateľovi pri spustení funkcie, aby zadali niečo iné ako číslo.

Ak užívateľ vstúpi žiadne číslo, správa to dostane.

Ak užívateľ nič nevstúpi, dostane chybu chyby.

Ak používateľ používa tlačidlo "Zrušiť", potom je prijatá správa "Nepísaná".

VBA poskytuje skrátenú verziu operátora If ..ktorý je komprimovaný ekvivalentom vnoreného operátora If ..v zozname. Touto stručnou formou je operátor Ak..then..elseif

Ktorá z možností na použitie je otázkou, ktorá rozhoduje každý programátor pre seba individuálne. Predpokladá sa, že druhá možnosť je kompaktnejšia, zatiaľ čo prvá je pohodlnejšia a zrozumiteľná.

Ak chcete vybrať možnosť voľby niekoľkých možných vetiev kódu, môžete investovať prevádzkovateľov If .. Na mnohých úrovniach hlboko do, ale sledovať pokrok pobočiek sa stáva ťažšie a ťažšie.

VBA má podmienené prechodné vyhlásenie o použitie v prípadoch, keď je potrebné si vybrať z veľkého počtu rôznych odvetví kódu - Vyberte prípad.. Funguje to takmer rovnaké ako inak. Ale viac pochopené.

Kľúčové slová Select Case sa používajú s mnohými operátormi prípadov, kde každý prevádzkovateľ prípadu kontroluje vzhľad iného stavu a iba jednej z pobočiek prípadu. Pobočka prípadu môže obsahovať jeden, niekoľko alebo nie jeden operátor VBA.

Bezpodmienečný prechodový operátor

Bezpodmienečný prechodový operátor možno povedať, je rudiment z včasných programovacích jazykov, v ktorých to bolo takmer jediným prostriedkom na organizovanie cyklického vykonávania kódových blokov.

Bezpodmienečné prechodné vyhlásenie vždy mení postup vykonávania operátorov v procedúre alebo funkcii. V tomto prípade nie sú kontrolované žiadne podmienky.

Syntax:

Goto

riadok - akékoľvek povolené číslo štítku alebo riadku v rovnakom postupe alebo funkcii, ktorá obsahuje vyhlásenie GOTO.

A v dnešnom príspevku budeme diskutovať o VBA Vybrať prípad Case. VBA Vyberte prípad môže byť použitý instad komplexného programu Excel, ak sa stavy. To robí kód VBA rýchlejšie vykonať a jednoduchšie pochopiť.

Výber-case vyhlásenie (tiež volal ako spínací prípad v niektorých jazykoch) kontroluje premennú alebo výraz pre rôzne prípady (hodnoty). Ak sa niekto z puzdra stane pravdivým platným, len v tomto prípade sa vykonáva a program ignoruje všetky ostatné prípady.

Ak si spomeniete v našom poslednom príspevku sme hovorili, "Ako môžete".

Syntax VBA Vyberte položku Case Cash:

Syntax je ako pod:

Vyberte si prípad
CASE VALUE_1
Kód, ktorý sa má vykonať, keď stav \u003d hodnota_1
CASE VALUE_2
Kód, ktorý chcete vykonať, keď stav \u003d hodnota_2
CASE VALUE_3
Kód, ktorý chcete vykonať, keď stav \u003d hodnota_3
Inak
Kód, ktorý sa má vykonať, keď sú všetky ostatné prípady nepravdivé
END SELECT.

Tu "Podmienka" označuje premennú alebo výraz, ktorý sa má testovať a na základe ktorého sa bude vykonávať ktokoľvek z kódexových segmentov.

"Value_1 ',' hodnota_2 'a' hodnota_3 'sú možné výsledky" stavu ". Kedykoľvek niekto z týchto hodnôt zodpovedá "podmienke", potom bude jeho príslušný blok prípadu vykonať.

'Ine' je druh východiskovej hodnoty, ktorá sa bude vykonávať len vtedy, keď všetky vyššie uvedené prípady vyplývajú do FALSE. "Else" prípad je nepovinný, ale vo všeobecnosti sa považuje za dobrú prax, ktorá ho používa.

Príklady vybraného prípadu vo VBA:

Teraz sa poďme na niektoré praktické príklady príkazov.

Príklad 1:Vyberte príkazový príkaz s výrazom.

V nižšie uvedenom príklade sme dodali podmienku (t.j. a \u003d b) do výberu zvoleného prípadu. Ak je to pravda, potom sa vykoná "Puzdro TRUE", bude vykonaný a ak je falošný, potom sa bude vykonávať blok.

Poznámka:V tomto kóde sa používa na získanie hodnôt od užívateľa.

Príklad 2:Prípadové príkazy na kontrolu textových reťazcov

V tomto príklade porovnávame textové reťazce v prípadoch. Ak sa zistí zápas, príslušný blok prípad sa vykoná inak blok "prípad iného" vykoná.

Sub Select_case_example () "Zadajte hodnotu pre premenné Fruit_Name \u003d DOPTUALBOX (" Zadajte názov ovocia: ")" Vyhodnotenie výrazu Vybrať Case Fruit_Name Case "Apple" MsgBox "Zadali ste Apple" Case "Mango" Msgbox "ste zadali Mango" "Orange" MsgBox "Zadali ste oranžové" prípad inde msgbox "i didn" t poznal toto ovocie! "Koniec Vybrať koniec sub

Príklad 3:Príkaz na kontrolu čísel

V nižšie uvedenom príklade skontrolujeme, či číslo zadané užívateľom je menšie alebo viac ako 5.

Sub Select_case_example () "Zadajte hodnotu pre premenné Num \u003d INPUTBOX (" Zadajte ľubovoľné číslo medzi 1 až 10: ")" Vyhodnotenie výrazu Výber prípadového puzdra je< 5 MsgBox "Your Number is less than 5" Case Is = 5 MsgBox "Your Number is Equal to 5" Case Is > 5 msgbox "Vaše číslo je väčšie ako 5" END SELECT END SUB

Poznámka:Môžeš použiť JE.kľúčové slovo s príkazom na porovnávanie hodnôt.

Príklad 4:Vyberte príkaz Case, aby ste skontrolovali viac podmienok v jednom prípade.

V tomto príklade požiadame užívateľa ukončiť ľubovoľné číslo z 1-10. A číslo je dokonca alebo nepárne pomocou viacerých podmienok vo veci Case. Všimnite si tu, že som zaznamenal "," (čiarka) na porovnanie viacerých podmienok v jednom prípade.

SUB SELECT_CASE_EXEXAMPLE () "Zadajte hodnotu pre premenné Num \u003d INPUTBOX (" Zadajte ľubovoľné číslo medzi 1 až 10: ")" Vyhodnotenie výrazu Výber prípadového puzdra 2, 4, 6, 8, 10 Msgbox "Číslo YUR je dokonca." Prípad 1, 3, 5, 7, 9 Msgbox "Vaše číslo je nepárne." Prípad inde msgbox "Vaše číslo je mimo dosahu." Koncový výber Koniec Sub

Poznámka:Viem, že existujú ľahšie metódy na kontrolu, či je číslo dokonca alebo nepárne, ale tento príklad som však vyvrel len na vysvetlenie, ako môžete skontrolovať viac podmienok vo vnútri jediného príkazu.

Príklad 5:Príkaz na kontrolu nepretržitého rozsahu ako stav.

Tu budeme testovať nepretržitý rozsah ako stav. Budeme požiadať používateľa, aby zadal ľubovoľné číslo medzi 1-10, ak je číslo medzi 1 až 5 (vrátane 1 a 5), \u200b\u200bpotom, prípad 1 až 5 'bude' true ', ak je číslo používania používateľa Medzi 6 a 10 (vrátane 6 a 10), potom "vec 6 až 10" bude "true", ak sa uskutoční predchádzajúci prípad iný ".

SUB SELECT_CASE_EXEXAMPLE () "Zadajte hodnotu pre premenné Num \u003d INPUTBOX (" Zadajte ľubovoľné číslo medzi 1 až 10: ")" Vyhodnotenie výrazu Vybrať prípad Puzdro 1 až 5 Msgbox "číslo YUR medzi 1 až 5" CASE 6 až 10 Msgbox "Vaše číslo medzi 6 až 10" prípadom inde msgbox "vaše číslo je mimo dosahu." Koncový výber Koniec Sub

Takže toto bolo všetko o vyhlásení vo veci VBA. Neváhajte sa zdieľať svoje thougohts o tejto téme.

O Ankit Kaul.

Ankit je zakladateľom programu Excel. On je Tech Geek, ktorý miluje sedieť pred svojím námestí priateľka (jeho PC) celý deň. : D. Ankit má silnú vášeň pre učenie Microsoft Excel. Jeho jediným cieľom je zmeniť vás chlapcov na "Excel Geeks".

Pri vytváraní komplexných programov je jedným z kľúčových bodov možnosť poskytnúť niekoľko možností pre rozvoj udalostí. Najjednoduchším a najradikom je operátor " Ak ... potom ... inde ... koniec"To vám umožní vybrať jednu z dvoch akcií v závislosti od výsledkov kontroly akýchkoľvek hodnôt. Stáva sa to, že v dôsledku tejto kontroly musíte vybrať z rôznych možností. Jeden z výstupov: Pridať sada" ... Ináč Ak... "To trochu komplikuje syntax programu (jednoduchosť čítania). To je však veľmi silný operátor, ktorý otvára veľké príležitosti. Viac o tom možno nájsť.

Alternatíva pre operátora " Ak ... koniec."Slúži operátorovi" Vyberte prípad."(z angličtiny" Vyberte prípad."Môžete preložiť ako" výber situácie "), ktorý zjednodušuje vnímanie kódu" na oko ". A ak" Ak ... koniec."Operátor v každom z jeho" Ináč Ak"Je nútený znova a znova otočiť na overené hodnoty (napríklad výraz je rovnaký), potom" Vyberte prípad."Robí to len raz, čo umožňuje druhé na veľkých dátových poliach pracovať rýchlejšie. Tento operátor vám umožňuje pohodlne nastaviť vetvu programu z jedného miesta veľký počet pobočiek. To znamená, že sa uplatňuje najmä s viacerými kontrolnými podmienkami, keď sú podmienky podmienok kontrolované viac ako dve.

Štruktúra operátora "Vybrať prípad".

Pozrime sa, čo vyzerá všeobecná štruktúra prevádzkovateľa a čuduje sa, čo je to rôzne príklady Na konci článku sa zobrazí súkromné \u200b\u200bpoužitie kódu):

Zvoľte CASE [CHECKED] CASE [SKLADOVANÉ] [NIEKTORÉ AKCIA] CASE INLOUT

Ako kus [ValUe] Môžete vložiť akúkoľvek premennú alebo vlastnosť, ktorej hodnotu alebo môžete skontrolovať. Môžete tiež skontrolovať hodnotu konkrétnej bunky. Zároveň je možné nielen s číslami, ale aj s textami. A dokonca aj s booleovskými hodnotami Pravda lož. ("True" a "lož"), čo nie je všetko vedieť.

[Špecifická hodnota] - Toto je to, s [Overená hodnota] . A ak sa človek spokojní, potom sa vykonáva [Nejaká akcia] . Na nahrávanie bloku existuje niekoľko možností [Špecifická hodnota] . Pre textové a číselné hodnoty môžete zaznamenať rôzne hodnoty nad čiarkou:

Prípad 3, 4, 5, "áno", "nie"

Pre čísla si môžete vybrať rozsahy:

Prípad 3 až 10 "od 3 do 10, vrátane 3 a 10 sami.

Tiež pre čísla môžete použiť logické porovnávacie operátor s časticou " JE.":

Prípad je.< 2 "Меньше 2, НЕ включая 2 Case Is = 3 "Равно 3-м. Избыточная запись, достаточно Case 3 Case Is >\u003d 4 "viac ako 4 prípad je<> 0 "Nie je to nula

Je prípustné používať logické operátory, ktoré umožnia poskytnúť najťažšie prípady a vykonávať paralelné porovnania s inými premennými. Okrem operátora " Alebo.", Ktorý je nahradený obvyklým čiarkami.

Prípad ... a ... Prípad nie ...

[Nejaká akcia] Môže byť absolútne. Ak vám chýba - pre tento prípad bude program nečinný. " Spojenie [Špecifická hodnota] "Spolu s časťou [Nejaká akcia] Zložte v jednom bloku:

Prípad [Špecifická hodnota] [nejaká akcia]

Takéto bloky môžu byť akékoľvek množstvo, ktoré sa bude vložiť do limitných rozmerov postupu (by mala vážiť viac ako 64 kilobajtov). Je užitočné vedieť, že dodržiavanie pravidiel prehliadania VBA [Špecifická hodnota] a [Hodnota hodnoty] Pozdĺž blokov zhora nadol. To znamená, že môžete mať dva bloky s rovnakým " Spojenie"Ale len ten, ktorý program bude predtým zistený pri prezeraní kódu zhora nadol.

Inak - Toto sú všetky ostatné prípady, ktoré sa nikdy nepribližovali [Špecifická hodnota] vo všetkých blokoch operátora " Vyberte prípad."Ak blok" Inak"Žiadny a žiadny iný blok sa blížil, program robí logické" nič ". Inak Musí byť posledným inšpekovaným prípadom všetkých blokov overovania v prevádzkovateí. Po ňom by iné bloky nemali byť, inak dostaneme syntaktickú chybu " Prípad SOT Select Case".

Na konci operátora by mal stáť " END SELECT.", ktorá slúži ako" bod "v" ponuke "operátora.

Príklady použitia.

Zvážte niekoľko príkladov použitia kódu a začnite s najjednoduchším. V prvom príklade V závislosti od hodnoty sa zobrazí správa.

Sub Seleccase_example_1 () DIM X AKO LONG X \u003d 1 "Môžete zmeniť túto číslicu a zistiť, čo sa stane. Zvoľte Case X Case 1 MsgBox" One "Case 2 Msgbox" Two "Case 3 Msgbox" Three "Case Inak Msgbox" je vybrané. To je iný "END SELECT END SUB

Druhý príklad Zobrazuje niektoré typy hodnôt nahrávania. V závislosti od počtu listov v knihe s makrom sa zobrazí iná správa. Upozorňujeme, že ak sú listy v knihe 7, potom prvá bude fungovať " Prípad 7.", Hoci stav" Prípad 5 až 12"Vhodné, ale je to neskôr.

SUB Seleccase_example_2 () "Predstavujeme premennú a vypočítame počet listov v aktuálnej knihe: DIM X AKO LONG X \u003d THEROWORKKOUTY.SHEETS.Cont Select Case X" V závislosti od počtu listov v knihe, stiahneme správu . Prípad 1 "Ak 1 list, potom ... Msgbox" Jeden list v knihe "Case 2, 3, 4" If Sheets 2 alebo 3 alebo 4 msgbox "Niekoľko listov v knihe" Case 7 "If Sheets 7 Msgbox" Krásna Počet listov "Prípad 5 až 12", ak sú kópie od 5 do 12 msgbox "takmer brožúra", je\u003e \u003d 14 "Ak sú listy viac alebo rovné 14 msgbox" plechy, ako je napríklad v oblasti foliantu "všetky ostatné prípady, konkrétne 13 MsgBox "Chestesov Dozen Listy" Koniec Zvoľte End Sub

Tretí príklad Zameranie sa na Booleovu hodnotu Pravda.alebo Falošný. Skontrolované, viditeľné alebo skryté najnovšie hárok v aktuálnej knihe s makrom. Pomocou hrubého čreva môže byť prenos reťazca nahradený, aby sa získal elegantný kód.

SUB SELECTCASE_EXAMPLE_3 () "Predstavujeme premennú a dajte mu posledný list v knihe: DIM SHTX as Worksheet: SETX \u003d TOTOWORKOĽKOKOĽVEKOKOĽVEKOKOOKOUKOUTÍU nie je pravda: msgbox "Posledný zoznam v knihe k dispozícii" "Ak je posledný list viditeľný prípad False: Msgbox" Posledný zoznam v knihe je skrytý "" Ak je posledný list skrytý koncový výber

Štvrtý príklad ukazuje to " Spojenie»Môže byť zameraný na iné premenné. V tento prípad Skontrolujeme rovnosť troch premenných pomocou logického operátora " A.»:

SUB Seleccase_example_4 () "Predstavujeme niekoľko premenných: DIM X%, Y%, Z%" REGATE VŠETKO NA TROJE TROJE: X \u003d 3: Y \u003d 3: Z \u003d 3 Vybrať Puzdro True "Skontrolujeme rovnosť všetkých premenných prípadov Z \u003d X a Y \u003d X: Msgbox "Všetci sú rovnaké" "Ak sú všetky rovnaké ako prípad inde: Msgbox" Niekto je iný "" Ak aspoň niekto je iný koniec Vyberte koniec sub

Piaty príklad Ukazuje, ako prostredníctvom čiarky v platnej hodnote " Spojenie»Môžete zadať celý súbor čísel. Predpokladajme, že existuje nejaká funkcia a skontrolujeme, či naše číslo môže byť použité v tejto funkcii. Podmienkou sme spokojní s číslami v rozsahu od 5 (okrem 5) na mínus nekonečno, od 12 do 15, vrátane koncov a od 20 (vrátane 20) plus nekonečno.

SUB Seleccase_example_5 () "Predstavujeme premennú a uvedieme hodnotu manuálne stlmenie x ako dvojitého x \u003d vstupného pochodu (" Zadajte číselnú hodnotu premennej X ") Vyberte Case X" Skontrolujte, či je určitá imaginárna funkcia vhodná pre prípad< 5, Is >\u003d 20, 12 až 15 "Rozsah vhodných hodnôt Msgbox" Aktuálna hodnota pre niektoré "Case inde" Nie je vhodné MsgBox Hodnoty "Hodnota nie je možné použiť v niektorých funkciách" END SELECT END SUB

Zhrnutie, všimnem si, že operátor " Vyberte prípad."Štruktúra je pomerne jednoduché a ľahko sa používa. Je menej flexibilný v porovnaní s " Ak ... koniec."Ak sú kontroly potrebné na zmenu overiteľnej hodnoty, ale výrazne vyhrá s rôznymi kontrolmi rovnakého výrazu. Čo je vlastne vytvorené.

Ďakujem za pozornosť.

Článok s príkladmi predstavoval Roman "Rioran" Voronov pre www.syt.