如何使用 IF THEN ELSE 语句和 excel 在 Visual Basic 编写的示例中的 SELECT CASE 语句

针对 Office 2003 的支持已终止

Microsoft 已于 2014 年 4 月 8 日终止了针对 Office 2003 的支持。该更改已影响到您的软件更新和安全选项。 了解这一措施对于您的含义以及如何继续保持受保护状态。

重要说明:本文是由 Microsoft 机器翻译软件进行的翻译并可能由 Microsoft 社区通过社区翻译机构(CTF)技术进行后期编辑,或可能是由人工进行的翻译。Microsoft 同时向您提供机器翻译、人工翻译及社区后期编辑的文章,以便对我们知识库中的所有文章以多种语言提供访问。翻译的文章可能存在词汇、句法和/或语法方面的错误。Microsoft 对由于内容的误译或客户对内容的使用所导致的任何不准确、错误或损失不承担责任。

点击这里察看该文章的英文版: 213630
概要
在 Microsoft Visual Basic for Applications,有两个可用于执行条件测试的语句:如果...然后...其他语句或Select Case语句。如果...然后...其他语句执行一组语句根据表达式的值和Select Case语句执行多个语句根据表达式的值之一。
更多信息
Microsoft 提供的编程示例仅用于说明,没有任何明示或暗示的担保。这包括但不限于适销性或特定用途适用性的暗示担保。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能,但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特定要求。 下面的宏示例演示如何使用,如果...然后...其他Select Case语句。

如果使用宏的示例...然后...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				
参考
有关使用 Visual Basic 编辑器中的 Select Case 语句的详细信息,请单击Microsoft Visual Basic 帮助上的帮助菜单上,类型 使用 Select Case 语句 在 Office 助手或应答向导,然后单击搜索以查看相关主题。
有关 IF 语句中,在 Visual Basic 编辑器中,详细信息请单击Microsoft Visual Basic 帮助类型的帮助菜单上 如果使用...然后...Else 语句 在 Office 助手或应答向导,然后单击搜索以查看相关主题。
有关获取帮助 Visual Basic for Applications 的其他信息,请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
226118 Visual Basic for Applications 的编程资源
有关如何使用本文中示例代码的详细信息,请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
212536 如何运行知识库文章中的示例代码
其他选择逻辑 XL2000 XL2002 XL2003 XL2007 XL2010 如果案例

警告:本文已自动翻译

属性

文章 ID:213630 - 上次审阅时间:01/03/2016 06:33: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
反馈