如何使用 IF 然後 ELSE 陳述式,並在 excel,在 Visual Basic 撰寫的範例中的 SELECT CASE 陳述式

Office 2003 支援已結束

Microsoft 於 2014 年 4 月 8 日結束對 Office 2003 的支援。此變更已影響您的軟體更新和安全性選項。 瞭解這對您的意義為何且如何持續受保護。

請注意--重要:本文是以 Microsoft 機器翻譯軟體翻譯而成,且可能由 Microsoft Community 利用 Community Translation Framework技術或人工進行事後編修。翻譯過程並無專業譯者參與。Microsoft 同時提供使用者人為翻譯、機器翻譯及社群編修後的機器翻譯三種版本的文章,讓使用者可以依其使用語言使用知識庫中的所有文章。但是,所有翻譯文章都可能不盡完美,內容都可能出現詞彙、語意或文法上的錯誤。就翻譯內容之不正確或錯誤,或客戶因使用翻譯內容所產生的任何損害,微軟不負擔任何責任。Microsoft將依合理的商業努力不斷地更新機器翻譯軟體和工具,以期能為使用者提供更好的服務。

按一下這裡查看此文章的英文版本:213630
結論
在 Microsoft Visual Basic for Applications,有兩個陳述式,您可以用來執行條件式測試:如果...然後...其他陳述式或Select Case陳述式。如果...然後...其他陳述式會執行一群陳述式根據運算式的值,並在Select Case陳述式可執行數個陳述式根據運算式的值的其中一個。
其他相關資訊
Microsoft 會提供程式設計範例僅供說明,而不做任何明示或默示的保證。這包括,但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已相當熟悉使用的我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序中,功能,但它們不會修改這些範例以提供附加功能或建構程序來滿足您特定需求。 下列範例巨集顯示如何使用,If...然後...其他Select Case陳述式。

範例巨集使用 If...然後...Else 陳述式

   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				

使用 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				
参考
如需有關如何使用 Select Case 陳述式,在 Visual Basic 編輯器] 中的詳細資訊,請按一下Microsoft Visual Basic 說明說明] 功能表,[型別 使用 Select Case 陳述式 在 [Office 小幫手] 或 [解答精靈,然後按一下 [搜尋],以檢視主題。
如需有關 IF 陳述式,在 Visual Basic 編輯器] 中,按一下 [ Microsoft Visual Basic 的說明,在 [說明] 功能表,[型別上 使用 If...然後...Else 陳述式 在 [Office 小幫手] 或 [解答精靈,然後按一下 [搜尋],以檢視主題。
如需關於取得說明與 Visual Basic for Applications 的詳細資訊,請按一下的文件編號,檢視 「 Microsoft 知識庫 」 中的文件:
226118 Visual Basic for Applications 的程式設計資源
如需有關如何使用本文中的範例程式碼的詳細資訊,請按一下下面的文件編號,檢視 「 Microsoft 知識庫 」 中的文件:
212536 如何從知識庫文件中執行範例程式碼
邏輯 XL2000 XL2002 XL2003 XL2007 XL2010 如果 case else 選取

警告:本文為自動翻譯

內容

文章識別碼:213630 - 最後檢閱時間:10/29/2015 04:14:00 - 修訂: 6.0

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

  • kbdtacode kbhowto kbprogramming kbmt KB213630 KbMtzh
意見反應