1、首先我们打开一个工作样表作为例子。按下alt+f11进入vba编辑器,并新建一个模块作为学习的例子。
2、接下来我们搭建模块必须的准备工作,对变量进行显性声明,并新建一个模块定义。
3、vba中对程序操作的流程的控制使用if函数进行控制。在excel中也有if函数公式。大家可以理解意义同样是“如果”,但是vba中的if因为嵌套的条件可以更多,所以功能更加强大,而if函数公式则只是简单的显示判断条件后的是与否的结果。
4、vba中if函数与if函数公式同样的,在“如果”判断后,否的结果是去执行另外的程序语句,使用的是else函数,原理等同于if函数公式的显示否的结果。用语句表现出来就如图所示。
5、if后接的是逻辑表达式,也可以是条件判断式,then必须有,接续的是程序语句。结尾必须以end if结尾。上张图片中,我将end if放在了else之前,这样的写法是错误的。正确的写法应该是else包含在if和end if之间,大家可以思考一下为什么。
6、原因很简单,end if在else之前就结束了if的逻辑判断,不会再执行else语句,这样会造成旯皱镢涛程序出错。所以我们需要在end if之前做好所有的逻辑或条件判断。大家都知道if函数公式可以做嵌套条件判断,vba中if函数也可以,并且更强大。相关的语句可以使用elseif。
7、这里给大家一段完整的坡纠课柩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 IfEnd Sub
8、先写到这里了,谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看,如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。