vba if语句解释和实例

   2020-11-20 IP属地 浙江2060
核心提示:本文介绍vba if判断语句的使用方法,在最后以一个实例来剖析vba if语句的具体应用。
内容提要:本文介绍vba if判断语句的使用方法,在最后以一个实例来剖析vba if语句的具体应用。

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

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

vbaif语句用法解释:

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

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

vbaif语句执行流程如下:

vbaif语句实例剖析

vbaif语句练习题以论坛的练习题《VBAIF语句答题练习》来加以解释。

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

Sub随机数()
  [a1].Value=http://www.ittribalwo.com/article/Int(Rnd*20)
  [c1].Value=http://www.ittribalwo.com/article/Int(Rnd*20)
EndSub

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

第二段:
Sub答题()
  If[e1].Valuehttp://www.ittribalwo.com/article/=""Then
     MsgBox"还没有输入答案"
  Else
    EndIf
  If[e1].Value=http://www.ittribalwo.com/article/[a1].Value+[c1].ValueThen
     MsgBox"答对了,你真棒!"
  Else
     MsgBox"答错了,继续努力!"
  EndIf
  Call随机数
EndSub

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

本文相关文章链接:《vb随机函数用法和实例》
《ExcelVBAMsgBox用法介绍》
《privatesub私有过程使用介绍》

 
反对 0举报收藏 0打赏 0评论 0
更多>相关评论
暂时没有评论,来说点什么吧
更多>同类办公
推荐图文
推荐办公
点击排行