电脑教程
位置：首页>> 电脑教程>> office教程>> excel vba if判断语句的使用方法，在最后以一个实例来剖析vba if语句的具体应用

excel vba if判断语句的使用方法，在最后以一个实例来剖析vba if语句的具体应用

　　发布时间：2022-11-12 09:30:38　

标签：exact,if判断语句

vba if语句为判断语句。根据条件的值，可使用 If...Then...Else 语句运行指定的语句或一个语句块。If...Then...Else 语句可根据需要嵌套多级。

但是，为了代码的可读性，建议使用其余的语句，比如 Select Case 语句而不使用多层嵌套的vba中的 If...Then...Else 语句。

vba if语句用法解释：

当条件为 True 时，若只要执行一个语句，则可以使用单行的 If...Then...Else 语法。

使用 If...Then...Else 语句可以定义两个可执行的语句块：其中一个块会在条件为True 时执行；而另一个块会在条件为 False 时执行。

vba if语句执行流程如下：

excel vba if判断语句的使用方法，在最后以一个实例来剖析vba if语句的具体应用

vba if语句实例剖析

vba if语句练习题以论坛的练习题《VBA IF语句答题练习》来加以解释。

此题共两段代码：第一段：

Sub 随机数()
   [a1].Value = Int(Rnd * 20)
   [c1].Value = Int(Rnd * 20)
End Sub

解释：A1、C1单元格的值为随时生成的20以内的整数。Rnd是VBA中的随机函数，也可以使用excel工作表中的公式来取代上一段代码，如下：
Sub 随机数()
Range("A1,c1").Formula = "=Int(Rand() * 20)"
End Sub

第二段：
Sub 答题()
   If [e1].Value = "" Then
      MsgBox "还没有输入答案"
   Else
     End If
   If [e1].Value = [a1].Value + [c1].Value Then
      MsgBox "答对了，你真棒！"
   Else
      MsgBox "答错了，继续努力！"
   End If
   Call 随机数
End Sub

代码解释：第一个IF语句：如果E1单元格为空，提示消息框：还没有输入答案。
第二个IF语句：如果E1的值等于A1+C1，提示消息框：答对了，你真棒！，否则返回答错了，继续努力。最后用call关键字调用第一段代码。

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com