Excel中使用vba控制语句的操作方法

2017-03-28

Excel中使用vba控制语句的操作步骤如下：

首先我们打开一个工作样表作为例子。按下alt+f11进入vba编辑器，并新建一个模块作为学习的例子。

接下来我们搭建模块必须的准备工作，对变量进行显性声明，并新建一个模块定义。

vba中对程序操作的流程的控制使用if函数进行控制。在excel中也有if函数公式。大家可以理解意义同样是“如果”，但是vba中的if因为嵌套的条件可以更多，所以功能更加强大，而if函数公式则只是简单的显示判断条件后的是与否的结果。

vba中if函数与if函数公式同样的，在“如果”判断后，否的结果是去执行另外的程序语句，使用的是else函数，原理等同于if函数公式的显示否的结果。用语句表现出来就如图所示。

if后接的是逻辑表达式，也可以是条件判断式，then必须有，接续的是程序语句。结尾必须以end if结尾。上张图片中，我将end if放在了else之前，这样的写法是错误的。正确的写法应该是else包含在if和end if之间，大家可以思考一下为什么。

原因很简单，end if在else之前就结束了if的逻辑判断，不会再执行else语句，这样会造成程序出错。所以我们需要在end if之前做好所有的逻辑或条件判断。大家都知道if函数公式可以做嵌套条件判断，vba中if函数也可以，并且更强大。相关的语句可以使用elseif。

这里给大家一段完整的if代码，大家可以copy下来去实际试验一下，如果有什么不懂的地方，可以再私信我进行解决。

Sub liucheng()

If [a1] = "" Then

MsgBox "A1单元格没有内容!"

ElseIf [a1] - 2 = 0 Then

MsgBox "A1单元格的数等于2!"

ElseIf [a1] - 3 = 0 Then

MsgBox "A1单元格的数等于3!"

ElseIf [a1] + 5 = 0 Then

MsgBox "A1单元格的数等于-5!"

Else

MsgBox "A1单元格的数是多少!"

End If

End Sub