Použití příkazu IF pak ELSE příkazu a příkazu SELECT CASE v příklady napsané v jazyce Visual Basic pro aplikace Excel

Podpora Office 2003 byla ukončena.

Společnost Microsoft ukončila dne 8. dubna 2014 podporu Office 2003. Tato změna ovlivnila aktualizace softwaru a možnosti zabezpečení. Další informace o tom, co to pro vás znamená a jak zajistit ochranu

DŮLEŽITÉ: Tento článek je přeložen pomocí softwaru na strojový překlad Microsoft. Nepřesný či chybný překlad lze opravit prostřednictvím technologie Community Translation Framework (CTF). Microsoft nabízí strojově přeložené, komunitou dodatečně upravované články, a články přeložené lidmi s cílem zajistit přístup ke všem článkům v naší znalostní bázi ve více jazycích. Strojově přeložené a dodatečně upravované články mohou obsahovat chyby ve slovníku, syntaxi a gramatice. Společnost Microsoft není odpovědná za jakékoliv nepřesnosti, chyby nebo škody způsobené nesprávným překladem obsahu nebo jeho použitím našimi zákazníky. Více o CTF naleznete na http://support.microsoft.com/gp/machine-translation-corrections/cs.

Projděte si také anglickou verzi článku: 213630
Souhrn
V aplikaci Microsoft Visual Basic for Applications, existují dva příkazy, které lze použít k provedení testu podmíněné: -li... Potom... Else příkaz nebo příkaz Select Case . Pokud... Potom... Else skupiny příkazů na základě hodnoty výrazu spustí příkaz a příkazu Select Case provede jednu z několika příkazy, které jsou založené na hodnotě výrazu.
Další informace
Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci bez žádné záruky výslovně uvedené nebo odvozené. To zahrnuje, ale není omezen pouze na předpokládané záruky obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předmětem ukázky a s nástroji, které slouží k vytvoření a ladění skriptu. Pracovníci podpory společnosti Microsoft mohou pomoci vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo vytvářet postupy podle vašich konkrétních požadavků. Následující ukázková makra ukazují, jak použít ... Potom... Jinak a příkazů Select Case .

Ukázkové makro pomocí v případě... Potom... Jiný příkaz.

   Sub Using_IF()      ' Dimension the variable.      Dim x As Integer      ' Place a value in x.      x = Int(Rnd * 100)      ' Display the value of x.      MsgBox "The value of x is " & x & "."      ' Test to see if x less than or equal to 10.      If x <= 10 Then         ' Display a message box.         MsgBox "X is <=10"      ' Test to see if x less than or equal to 40 and greater than 10.      ElseIf x <= 40 And x > 10 Then         MsgBox "X is <=40 and > 10"      ' Test to see if x less than or equal to 70 and greater than 40.      ElseIf x <= 70 And x > 40 Then         MsgBox "X is <=70 and > 40"      ' Test to see if x less than or equal to 100 and greater than 70.      ElseIf x <= 100 And x > 70 Then         MsgBox "X is <= 100 and > 70"      ' If none of the above tests returned true.      Else         MsgBox "X does not fall within the range"      End If   End Sub				

Ukázkové makro pomocí příkazu Select Case

   Sub Using_Case()      ' Dimension the variable.      Dim x As Integer      ' Place a value in x.      x = Int(Rnd * 100)      ' Display the value of x.      MsgBox "The value of x is " & x & "."      ' Start the Select Case structure.      Select Case x         ' Test to see if x less than or equal to 10.         Case Is <= 10            ' Display a message box.            MsgBox "X is <=10"         ' Test to see if x less than or equal to 40 and greater than 10.         Case 11 To 40            MsgBox "X is <=40 and > 10"         ' Test to see if x less than or equal to 70 and greater than 40.         Case 41 To 70            MsgBox "X is <=70 and > 40"         ' Test to see if x less than or equal to 100 and greater than 70.         Case 71 To 100            MsgBox "X is <= 100 and > 70"         ' If none of the above tests returned true.         Case Else            MsgBox "X does not fall within the range"      End Select   End Sub				
Odkazy
Další informace o použití příkazů Select Case v jazyce Visual Basic Editor klepněte na příkaz Nápověda pro Microsoft Visual Basic v nabídce Nápověda , typ Pomocí příkazu Select Case v Pomocníkovi Office nebo v Průvodci odpověďmi a klepnutím na tlačítko Hledat zobrazíte příslušné téma.
Další informace o příkazu IF v jazyce Visual Basic Editor klepněte na příkaz Nápověda pro Microsoft Visual Basic v nabídce Nápověda , typ Použití, pokud... Potom... Ostatní příkazy v Pomocníkovi Office nebo v Průvodci odpověďmi a klepnutím na tlačítko Hledat zobrazíte příslušné téma.
Další informace o získání nápovědy pomocí jazyka Visual Basic for Applications klepněte na následující číslo článku znalostní báze Microsoft Knowledge Base:
226118 Prostředky pro programování v jazyce Visual Basic for Applications
Další informace o způsobu použití ukázkového kódu v tomto článku klepněte na následující číslo článku znalostní báze Microsoft Knowledge Base:
212536 Jak spustit ukázkový kód z článků znalostní báze Knowledge Base
jinak vyberte logiku XL2000 XL2002 XL2003 XL2007 XL2010 v případě

Upozornění: Tento článek je přeložený automaticky

Vlastnosti

ID článku: 213630 - Poslední kontrola: 10/29/2015 03:19:00 - Revize: 11.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007, Excel 2016, Microsoft Excel 2013

  • kbdtacode kbhowto kbprogramming kbmt KB213630 KbMtcs
Váš názor