Příklad 10-25. Vytvoření případu #! / Bin / bash # hrubý příklad DatabaseClear čištění obrazovky "echo list -------" echo "Vyberte osobu, o kterou máte zájem o:" Echoecho "[E] dodávky, Roland" Echo "[J] Ty, Mildred "Echo" [S] Mith, Julie "Echo" [Z] ANEA, Morris "Echoead Osobní" $ osoba "v # Upozornění: proměnná je pořízena v uvozovkách.

Příklad 10-26. Operátor případu umožňuje používat nastavení příkazů namísto analyzované proměnné #! / Bin / bash # nahrazení příkazů v části "Case" .case $ (arch) v # příkaz oblouk vrátí řetězec popisující hardware aphitecut.i386 ) Echo "cpu 80386"; i486) echo "stroj na základě

Příklad A-18. Generování prvotřídních čísel pomocí operátora divize modulu (bilance divize) #! / Bin / bash # primes.sh: generace prvotřídních čísel, bez použití polí. # Autor: Stephane Chazelas. Tento scénář nepoužívá algoritmus třídy " Devolo eratosthene ", # + místo něj

Rozšíření operátora, pokud jiného operátora Nejjednodušší forma Operátor Pokud je operátor, který jsme právě použili: IF (výraz) Provozovatel obvykle pod výrazem rozumí podmíněným výrazem, hodnoty dvou hodnot jsou porovnány (například x\u003e Y

18.8.2. Ukončení provedení provozovatele případu zvážit následující příklad. Ve skriptu se provádí nekonečný cyklus, dokud uživatel nezadá číslo větší než 5. Pro přerušení cyklu a návratu příkazový řádek Interpreter Použitý Team Break. $ Pg

Jednoduchý příklad použití funkce SELECT Nyní znovu se domníváme kód našeho příjemce dat mimo pásma a místo Sigurského signálu použije funkci SELECT. Seznam 24.3 zobrazuje přijímací program. Odpočinek 24.3. Přijímacího programu, ve kterém (chybně)

Většina důležité operátory Použité podmínky Excel VBA. - Jedná se o operátory Pokud ... Pak. a Vyberte případ.. Obě tyto výrazy zkontrolují jedno nebo více podmínek a v závislosti na výsledku provádět různé akce. Dále budeme mluví o těchto dvou provozovatelích podmínek podrobněji.

Operátor ", pokud ... pak" v jazyce jazyka

Operátor Pokud ... Pak. Kontroluje stav a pokud je to pravda (true), provede se zadaná sada akcí. Sada akcí, které musí být provedeny, pokud je možné definovat podmínka (false).

Operátor syntaxe Pokud ... Pak. Tohle je:

Li. Podmínka1. Pak.
Akce v případě, že podmínka) je splněna
Jinde Podmínka2. Pak.
Akce v případě, že podmínka 2 jsou splněny
JINÝ.
Akce v případě provedení podmínek
Konec, pokud.

V tomto výrazu Jinde a JINÝ. Podmínky obsluhy nemusí být použity, pokud není potřeba.

Níže je uveden příklad, ve kterém používáte operátora Pokud ... Pak. Barva výplně aktivní buňky se liší v závislosti na hodnotách v něm:

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

Vezměte prosím na vědomí, že jakmile bude podmínka pravdivá, je přerušeno provádění podmíněného provozovatele. V důsledku toho, pokud hodnota proměnné ActiveCell. Méně než 5, pak první stav je pravdivý a buňka je malovaná v zelené barvě. Po provedení operátora Pokud ... Pak. Přerušeno a zbývající podmínky nejsou kontrolovány.

Operátor "Vybrat případ" v jazyce jazyka

Operátor Vyberte případ. podobný operátorovi Pokud ... Pak. V tom, že také kontroluje pravdu stavu a v závislosti na výsledku vybere jeden z možností akce.

Operátor syntaxe Vyberte případ. Tohle je:

Vyberte případ. Výraz
Případ Význam1.
Akce v případě, že výsledek výrazu odpovídá hodnoty1
Případ Význam2.
Akce v případě, že výsledek výrazu odpovídá hodnotě2
…
Případ jiný
Akce V případě, že výsledek výrazu neodpovídá žádnému z uvedených možností
Konec Select.

Živel Případ jiný Není povinné, ale doporučuje se jej použít pro zpracování nepředvídaných hodnot.

V následujícím příkladu pomocí návrhu Vyberte případ. Barva odlévání aktuální buňky se liší v závislosti na hodnotách v něm:

Vyberte Case ActiveCell.Value Case 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

Výše uvedený příklad ukazuje, jak nastavit hodnotu prvku jako různé metody. Případ V designu Vyberte případ.. To jsou tyto způsoby:

Jakmile je zjištěno, že jedna z podmínek se provádějí vhodné akce a výstup je vyroben z designu. Vyberte případ.. To je v každém případě proveden pouze jeden z uvedených poboček. Případ.

V reálných programech je často nutné provést složitější volbu v postupech, výběrem mezi třemi a více pobočkami. V tomto případě můžete ovládat operátory Jestliže pak jinak navzájem. To se nazývá investice operátorů.

Výše uvedený postup používá v sobě několik podmíněných provozovatelů přechodů. Je třeba říci, že takový postup bude fungovat pouze v aplikaci Excel, protože Používá metodu Application.InputBox (viz Hostitelské aplikace). Tato metoda nedává uživateli při spuštění funkce pro zadání cokoliv jiného než číslo.

Pokud uživatel zadá žádné číslo, zobrazí se zpráva.

Pokud uživatel nezadá nic, dostane chybu chyby.

Pokud uživatel používá tlačítko "Zrušit", bude přijata zpráva "NOT zadaná".

VBA poskytuje zkrácenou verzi operátora Jestliže pak jinakkterý je komprimovaný ekvivalent vnořeného operátora Jestliže pak jinakpoužívá se při výpisu. Taková krátká forma je operátor Pokud.........elseif.

Která z možností použití je otázkou, která rozhoduje o každém programátoru pro sebe individuálně. Předpokládá se, že druhá možnost je kompaktnější, zatímco první je pohodlnější a srozumitelnější.

Chcete-li vybrat výběr několika možných větví kódu, můžete provozovat operátory Jestliže pak jinak Na mnoha úrovních hluboko do, ale sledovat průběh větví je těžší a obtížnější.

VBA má podmíněné přechodné prohlášení pro použití v případech, kdy je nutné vybrat z velkého počtu různých odvětví kódu - Vyberte případ.. Funguje téměř stejně jako jinak, ale více pochopil.

Klíčová slova Select Case se používají s mnoha operátory případu, kde každý provozní operátor kontroluje vzhled jiné podmínky a pouze jeden z věcí případu. Větě může obsahovat jeden, několik nebo nikoliv jeden operátor VBA.

Bezpodmínečný transformační operátor

Může být uveden bezpodmínečný transformační operátor, je rudiment z časných programovacích jazyků, ve kterých byl téměř jediný prostředek organizování cyklického provádění kódových bloků.

Bezpodmínečný příkaz přechod mění vždy postup pro provádění operátorů v postupu nebo funkci. V tomto případě nejsou kontrolovány žádné podmínky.

Syntax:

Goto Line.

Čára - jakékoli přípustné číslo štítku nebo řádku ve stejném postupu nebo funkci, která obsahuje prohlášení GOTO.

A v dnešním příspěvku se budeme diskutovat o výkazu případu VBA. VBA Select Case lze použít Instale of Complex Excel vnořené, pokud stavy. To činí kód VBA rychleji provádět a snazší pochopit.

Výběr výběru (také volal jako spínací pouzdro v nějakém languazám) kontroluje proměnnou nebo výraz pro různé případy (hodnoty). Pokud se někdo z pouzdra stane pravdou, je proveden pouze tento případ a program ignoruje všechny ostatní případy.

Pokud si pamatujete v našem posledním příspěvku, o kterém jsme mluvili, "jak můžete".

Syntaxe VBA Select Case Prohlášení:

Syntaxe je jako pod:

Vyberte CASE Condition.
Případová hodnota_1.
Kód pro provedení, pokud je stav \u003d hodnota_1
Případová hodnota_2.
Kód pro spuštění při stavu \u003d hodnota_2
Případová hodnota_3.
Kód pro provedení při stavu \u003d hodnota_3
Případ jiný
Kódu, kdy jsou všechny ostatní případy false
Konec Select.

Zde se "podmínka" označuje proměnnou nebo výraz, který má být testován a na základě kterého bude proveden každý z kódových segmentů.

'Value_1', 'Value_2' a 'Value_3' jsou možné výsledky "stavu". Kdykoliv někdo z těchto hodnot odpovídá 'stav', pak se jeho odpovídající blokový blok provede.

"Else" je druh výchozího pouzdra, která bude prováděna pouze tehdy, když všechny výše uvedené případové příkazy mají za následek false. "Else" případ je volitelný, ale obecně je považován za dobré postupy.

Příklady výběru v VBA:

Nyní se přejdeme na některé praktické příklady případových příkazů.

Příklad 1:Vyberte příkaz Příkaz s výrazem.

V níže uvedeném příkladu jsme dodali podmínku (tj. A \u003d b) k výpisu pro výběrové případy. Pokud je to pravda, pak bude proveden blok true true ', bude proveden a pokud je nepravdivá, pak "case false" blok bude spuštěn.

Poznámka:V tomto kódu se používá pro získání hodnot od uživatele.

Příklad 2:Případový příkaz ke kontrole textových řetězců

V tomto příkladu budeme porovnávat textové řetězce v případě států. Pokud je shoda nalezena, odpovídající blokový blok bude spuštěn jinak blok "all e-line" spustí.

SUB SELECT_CASE_EXAMLE () "Zadejte hodnotu proměnných Fruit_name \u003d InputBox (" Zadejte název ovoce: ")" Vyhodnocení výrazu Select Case Fruit_name Case "Apple" msgbox "Zadali jste Apple" Case "Mango" msgbox "Zadali jste mango" "Orange" msgbox "Zadali jste oranžovou" kase jinde msgbox "I didn" t "t" t to ovoce! "

Příklad 3:Případový příkaz ke kontrole čísel

V níže uvedeném příkladu zkontrolujeme, zda číslo zadané uživatelem je menší nebo vyšší než 5.

SUB SELECT_CASE_EXAMLE () "Zadejte hodnotu pro proměnné num \u003d Intingbox (" Zadejte libovolné číslo mezi 1 až 10: ")" Vyhodnocení výrazu Výběr případu num 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ětší než 5" End Select End Sub

Poznámka:Můžeš použít JE.klíčové slovo s příkazem pro případ porovnání hodnot.

Příklad 4:Vyberte příkaz Příkaz pro kontrolu více podmínek uvnitř jednoho případu.

V tomto příkladu požádáme uživatele, aby ukončil libovolné číslo od 1-10. A číslo je dokonce nebo liché pomocí více podmínek v případě případu. Upozornění Zde jsem haval jsem "," (čárka) porovnat více podmínek v jednom případě.

SUB SELECT_CASE_EXAMLE () "Zadejte hodnotu pro proměnné num \u003d Intingbox (" Zadejte libovolné číslo mezi 1 až 10: ")" Vyhodnocení výrazu Select Case Num Case 2, 4, 6, 8, 10 msgbox "Číslo Yur je dokonce." Případ 1, 3, 5, 7, 9 msgbox "Vaše číslo je zvláštní." Případ jiný msgbox "Vaše číslo je mimo rozsah." Konec Select End Sub

Poznámka:Vím, že existují jednodušší metody zkontrolovat, zda je číslo dokonce nebo liché, ale tento příklad jsem dostal pouze pro vysvětlení, jak můžete zkontrolovat více podmínek uvnitř jednoho případu.

Příklad 5:Případový příkaz ke kontrole nepřetržitého rozsahu jako podmínka.

Zde testujeme nepřetržitý rozsah jako podmínku. Zeptejte se uživatele, který zadá libovolné číslo mezi 1-10, pokud je číslo mezi 1 až 5 (včetně 1 a 5), \u200b\u200bpak "případ 1 až 5" bude "true", pokud je číslo napájeno uživatelem Mezi 6 a 10 (včetně 6 a 10), pak "případ 6 až 10" bude "true", pokud budou provedeny jak předchozí případ jiný ".

SUB SELECT_CASE_EXAMLE () "Zadejte hodnotu pro proměnné num \u003d Intingbox (" Zadejte libovolné číslo mezi 1 až 10: ")" Vyhodnocení výrazu Zvolení případu num 01 až 5 msgbox "yur číslo mezi 1 až 5" pouzdro 6 na 10 msgbox "Vaše číslo mezi 6 až 10" MSGBox "Vaše číslo je mimo rozsah." Konec Select End Sub

Tak to bylo vše o VBA Select Case Prohlášení. Neváhejte sdílet své thougohts o tomto tématu.

O ankit kaul.

Ankit je zakladatelem triky Excel. On je tech geek, který miluje sedět před jeho náměstí zamířil přítelkyni (jeho PC) celý den dlouho. : D. Ankit má silnou vášeň pro učení aplikace Microsoft Excel. Jeho jediným cílem je obrátit vás kluci do "Excel Geeks".

Při vytváření komplexních programů je jeden z klíčových bodů schopnost poskytovat několik možností pro rozvoj událostí. Nejjednodušší a nejzákladnější příklad je operátor " Jestli ... Pak ... jinde ... konec"To vám umožní vybrat jednu ze dvou akcí v závislosti na výsledcích kontroly všech hodnot. To se stane, že v důsledku této kontroly musíte vybrat z různých možností. Jeden z výstupů: Přidat sada" ... Jinde... "že poněkud komplikuje syntaxi programu (snadnost čtení). To je však velmi silný operátor, který otevírá velké příležitosti. Více o tom lze nalézt.

Alternativa k operátorovi " Pokud ... konec."Slouží operátorovi" Vyberte případ."(z angličtiny" Vyberte případ."Můžete překládat jako" volbu situace "), což zjednodušuje vnímání kódu" na oku ". A pokud" Pokud ... konec."Provozovatel v každém z jeho" Jinde"Je nuceno znovu otočit na ověřené hodnoty znovu a znovu (například výraz je stejný pokaždé), pak" Vyberte případ."Má to jen jednou, což umožní, aby druhý na velkých datových polích pracovat rychleji. Tento operátor vám umožní pohodlně nastavit pobočku programu z jednoho bodu velký počet větve. To znamená, že se používá především s více kontrolními podmínkami, kdy jsou podmínky podmínek kontrolovány více než dvě.

Struktura obsluhy "Vybrat případ".

Podívejme se, co zobecněná struktura operátora vypadá a zajímá se, co je to ( různé příklady Soukromé použití kódu bude zobrazeno na konci článku):

Zvolte Case [Zkontrolováno] Případ [Spected] [Některá akce] Případ [Některé x] Konec Select

Jako kus [Hodnota] Můžete vložit libovolnou proměnnou nebo vlastnost, jejíž hodnotu nebo můžete zkontrolovat. Můžete také zkontrolovat hodnotu konkrétní buňky. Současně je možné nejen s čísly, ale také s texty. A dokonce s booleovskými hodnotami True / false. ("TRUE" A "LIE"), o čem ne všichni vědí.

[Specifická hodnota] - To je to, co je srovnáno [Ověřená hodnota] . A pokud člověk uspokojí druhý, pak se provádí [Nějaká akce] . Existuje několik možností pro nahrávání pro blok [Specifická hodnota] . Pro textové a číselné hodnoty můžete zaznamenávat různé hodnoty přes čárku:

Případ 3, 4, 5, "ano", "ne"

Pro čísla si můžete vybrat rozsahy:

Případ 3 až 10 "od 3 do 10, včetně 3 a 10 samotných.

Také pro čísla můžete použít logický srovnávací operátor s částicem " JE.":

Případ je.< 2 "Меньше 2, НЕ включая 2 Case Is = 3 "Равно 3-м. Избыточная запись, достаточно Case 3 Case Is >\u003d 4 "Více se rovná 4 případu je<> 0 "není rovna nule

Je přípustné používat logické operátory, které umožní poskytnout nejtěžší případy a provádět paralelní srovnání s jinými proměnnými. Kromě operátora " Nebo.", Který je nahrazen obvyklým čárkou.

Případ ... a ... případ ne ...

[Nějaká akce] Může být naprosto. Pokud vám chybí - pro tento případ bude program neaktivní. " Případ [Specifická hodnota] "Spolu s částí [Nějaká akce] Skládejte v jednom bloku:

Případ [specifická hodnota] [nějaká akce]

Takové bloky mohou být jakékoli množství, které budou vloženy do mezních rozměrů postupu (mělo by to vážit více než 64 kilobajtů). Je užitečné vědět, že VBA prohlížení [Specifická hodnota] a [Hodnota hodnota] Podél bloků shora dolů. To znamená, že můžete mít dva bloky se stejným " Případ"Ale pouze ten, který byl dříve nalezen programem při prohlížení kódu shora dolů.

Případ jiný - to jsou všechny ostatní případy, které se nikdy nepřiblížily [Specifická hodnota] ve všech blokech operátora " Vyberte případ."Pokud blok" Případ jiný"Žádný a žádný jiný blok se přiblížil, program dělá logický" nic. " Případ jiný Musí být posledním kontrolovaným případem mezi všemi bloky ověření v provozovateli. Po něm by jiné bloky neměly být, jinak dostaneme syntaktickou chybu " Případ s výběru případu".

Na konci provozovatele by měl stát " Konec Select.", který slouží jako" bod "v" nabídce "operátora.

Příklady použití.

Zvažte několik příkladů používání kódu a začněte nejjednodušší. V prvním příkladu V závislosti na hodnotě se zobrazí zpráva.

Sub SelectCase_Example_1 () DIM X AS DLOUHÁ X \u003d 1 "Tuto číslici můžete změnit a zjistit, co se stane. Zvolte Case X Případ 1 MsgBox" Jeden "Případ 2 MsgBox" Dva "pouzdro 3 msgbox" Tři "MSGBOX" MSGBOX "je vybrán. To je jiný "Konec Select End Sub

Druhý příklad Zobrazuje některé typy hodnot záznamu. V závislosti na počtu listů v knize s makrorem se zobrazí jiná zpráva. Upozorňujeme, že pokud jsou listy v knize 7, pak první bude fungovat " Případ 7.", I když stav" Případ 5 až 12"Také vhodný, ale je později.

Sub SelectCase_Example_2 () "Představujeme proměnnou a vypočítáme počet listů v aktuální knize: DIM X jako dlouhá X \u003d Thisworkbook.Sheets.count Select Case X" v závislosti na počtu listů v knize, budeme stáhnout zprávu . Případ 1 "IF 1 list, pak ... Msgbox" Jeden list v knize "Case 2, 3, 4", pokud listy 2 nebo 3 nebo 4 msgbox "několik listů v knize" Case 7 ", pokud listy 7 msgbox" překrásná Počet listů "pouzdro 5 až 12", pokud listy od 5 do 12 msgbox "téměř brožura" je to\u003e \u003d 14 ", pokud jsou listy více nebo rovny 14 msgbox" listy jako v folight "kase jinde" všechny ostatní případy, konkrétně 13 Msgbox "Chestov tucet listů" End Select End Sub

Třetí příklad Zaměření na Booleovskou hodnotu Skutečný.nebo Nepravdivé. Zkontrolováno, viditelné nebo skryty nejnovější list v aktuální knize s makrorem. Použití tlustého střeva, přenos řetězce může být nahrazen tak, aby získal elegantnější kód.

Sub SelectCase_Example_3 () "Zavedeme proměnnou a dám to poslednímu listu v knize: Dim Shtx jako list: Setx \u003d ThisSworkbook.Sheets (Thisworkbook.Sheets.Count) Zvolte Case Shtx.Visible" Zkontrolujte, zda je list skrytý nebo Není to pravda: Msgbox "Poslední seznam v knize Dostupné" "Pokud je poslední list viditelný případ FALSE: MSGBOX" Poslední seznam v knize je skryta "" Pokud je poslední list skrytý konec, vyberte koncový sub

Čtvrtý příklad ukázat to " Případ»To může být zaměřeno na jiné proměnné. V tento případ Zkontrolujeme rovnost tří proměnných pomocí logického operátora " A.»:

Sub SelectCase_Example_4 () "Představujeme několik proměnných: DIM X%, Y%, Z%" srovnává všechny až tři tři: X \u003d 3: Y \u003d 3: Z \u003d 3 Zvolte Case TRUE "Zkontrolujeme rovnost všech případů proměnných Z \u003d x a y \u003d x: msgbox "všechny jsou stejné" ", pokud jsou všechny stejné k tomu, jinde: msgbox" někdo je jiný "", pokud alespoň někdo jiný je jiný konec, zvolte koncový sub

Pátý příklad Ukazuje, jak přes čárku v platné hodnotě pro " Případ»Můžete určit celou sadu čísel. Předpokládejme, že existuje nějaká funkce a zkontrolujeme, zda lze v této funkci použít náš číslo. Podmínkou jsme spokojeni s čísly v rozmezí od 5 (bez 5) na mínus nekonečno, od 12 do 15, včetně konců a od 20 (včetně 20) k plus nekonečno.

Sub SelectCase_Example_5 () "Představujeme proměnnou a poskytneme ji hodnotu ručně ztvrdnout x jako dvojnásobný x \u003d InputBox (" Zadejte číselnou hodnotu proměnné x ") Vybrat Case X" Zkontrolujte, zda je pro případ vhodná některá imaginární funkce vhodná< 5, Is >\u003d 20, 12 až 15 "sortiment vhodnými hodnotami MSGBOX" Skutečná hodnota pro některé "Případ" není vhodné hodnoty MSGBOX "Hodnota nemůže být použita v některé funkce" Konec Select End Sub

Sčítání, jsem si všiml, že operátor " Vyberte případ."Struktura je poměrně jednoduchá a snadno použitelná. Je méně flexibilní ve srovnání s " Pokud ... konec."Pokud jsou kontroly vyžadovány ke změně ověřitelné hodnoty, ale významně vyhrává s různými kontrolami stejného výrazu. To, co je vlastně vytvořeno.

Děkuji za pozornost.

Článek s příklady činil římskému "Rioran" Voronov pro www.syt.