V programování VBA (Visual Basic for Applications) pro Excel jsou široce používány operátory vzorkování, které umožňují různé akce v závislosti na daných podmínkách. Jedním z těchto operátorů je Case Select Else.
Příkaz Case Select Else umožňuje vzorkovat podle mnoha podmínek a provádět určité akce v závislosti na výsledku vzorku. Umožňuje nastavit více možností výběru a specifikovat akce, které mají být splněny, pokud je splněna jedna z daných podmínek.
Syntaxe operátora Case Select Else je následující:
Select Case Výraz
Case Význam1
.
Case Významn
Case Else
Postup
End Select
Při použití příkazu Case Select Else je nejprve zadán výraz, podle kterého bude vzorek proveden. Pak jsou v blokech Case uvedeny hodnoty, které lze podle tohoto výrazu získat. Pokud se hodnota výrazu shoduje s jednou z daných hodnot, jsou prováděny akce uvedené za Case.
Definice Case Select Else
Design Select. Případ umožňuje porovnat hodnotu proměnné s řadou různých možností a provést příslušnou akci v případě, že se hodnota shoduje s jednou z těchto možností. Příkaz Case Select Else přidává další výchozí možnost, která bude provedena, pokud žádná z ostatních možností neodpovídá hodnotě proměnné.
Syntaxe operátora Case Select Else je následující:
Select Case variableCase value1' действия в случае, когда значение равно value1Case value2' действия в случае, когда значение равно value2. Case Else' действия в случае, когда значение не соответствует ни одному из предыдущих вариантовEnd Select
Příkaz Case Else je volitelný a může být vynechán, pokud není nutné provádět akce v případě, že hodnota proměnné neodpovídá žádné z předchozích možností. V takovém případě, pokud všechny možnosti nesplňují hodnotu proměnné, bude provádění programu pokračovat po příkazu end Select.
Syntaxe použití Case Select Else
Syntaxe vzorkování podle podmínek Case Select Else v programovacím jazyce VBA vám Excel umožňuje použít různé akce v závislosti na shodě hodnoty proměnné s danými podmínkami.
Obecná struktura syntaxe Case Select Else vypadá následovně:
- Select Case je klíčové slovo pro zahájení vzorku.
- Proměnná je proměnná, jejíž hodnota bude ověřena.
- Case hodnota 1 je podmínka, která musí odpovídat hodnotě proměnné.
- Akce1 je akce, která bude splněna, pokud podmínka odpovídá hodnotě proměnné.
- Case hodnota 2 je další podmínkou, která musí odpovídat hodnotě proměnné.
- Čin2 je akce, která bude splněna, pokud podmínka odpovídá hodnotě proměnné.
- . - sled podmínek a jejich příslušných akcí.
- Else je klíčové slovo pro zadání akce, která bude provedena, pokud žádná z podmínek nesplňuje hodnotu proměnné.
- Akce, která bude provedena, pokud žádná z podmínek nesplňuje hodnotu proměnné.
- End Select je klíčové slovo pro konec vzorku.
Příklad použití syntaxe Case Select Else:
Dim barva As String
Select Case barva
MsgBox " vybrali jste červenou barvu!"
MsgBox " vybrali jste modrou barvu!"
MsgBox " vybrali jste žlutou barvu!"
MsgBox " Vyberte barvu z nabízených možností!"
V tomto příkladu je hodnota proměnné Barva Zelená, takže se provede blok kódu spojený s klíčovým slovem Else . V důsledku spuštění makra se zobrazí zpráva " vyberte barvu z nabízených možností!".
Syntaxe Case Select Else umožňuje snadno a pohodlně zpracovávat různé hodnoty proměnných a aplikovat příslušné kroky v závislosti na splněných podmínkách.
Příklady použití Case Select Else
V aplikaci VBA Excel vám operátor Case Select Else umožňuje spustit blok kódu v závislosti na hodnotě proměnné. Tento operátor je zvláště užitečný při práci s více podmínkami, protože umožňuje zjednodušit kód a učinit jej čitelnějším.
Zde je několik příkladů použití příkazu Case Select Else :
Function GetStatusText(status As String) As StringDim statusText As StringSelect Case statusCase "Open"statusText = "Заявка открыта"Case "In Progress"statusText = "Заявка в процессе выполнения"Case "Closed"statusText = "Заявка закрыта"Case ElsestatusText = "Статус неизвестен"End SelectGetStatusText = statusTextEnd FunctionSub PrintGrade(grade As Integer)Select Case gradeCase 1 To 3Debug.Print "Ваша оценка: Недостаточно"Case 4 To 6Debug.Print "Ваша оценка: Удовлетворительно"Case 7 To 8Debug.Print "Ваша оценка: Хорошо"Case 9 To 10Debug.Print "Ваша оценка: Отлично"Case ElseDebug.Print "Некорректная оценка"End SelectEnd SubFunction GetDiscountCode(customerType As String) As StringDim discountCode As StringSelect Case customerTypeCase "Regular"discountCode = "REG10"Case "Premium"discountCode = "PREM20"Case "VIP"discountCode = "VIP30"Case ElsediscountCode = "NOCODE"End SelectGetDiscountCode = discountCodeEnd FunctionOperátor Case Select Else je důležitý nástroj v aplikaci VBA Excel, který pomáhá učinit kód kompaktnějším a čitelnějším při práci s mnoha podmínkami.