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

时间:2022-10-04 22:32:05 

excel中vba的程序控制语句使用详解,该如何去进行操作的呢?今天,小编就教大家在Excel中使用vba控制语句的操作方法。

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

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

标签:公式,函数,的是,语句,Excel函数
0
投稿

猜你喜欢

  • 怎样在word画图?word文档画图形方法

    2023-10-12 12:07:37
  • Win10专业版麦克风显示未插入无法使用怎么办?

    2023-11-21 20:53:34
  • word保存后不见了

    2023-11-12 13:23:03
  • 通吃WPS与Word 三招轻松搞定文档排版

    2023-04-25 15:58:53
  • 用Excel随机抽彩 只需两步就能轻松完成

    2023-04-08 07:24:32
  • Win10专业版更新失败代码0xc0000005怎么解决?

    2023-11-22 07:16:33
  • excel中计算百分比的简便方法教程

    2023-12-05 18:30:05
  • word文档如何制作背景?

    2022-02-15 15:23:28
  • WPS表格打不出0是什么原因

    2023-09-08 05:15:15
  • excel如何删除重复的数值?

    2022-11-16 16:08:39
  • Word九宫格图片怎么做?Word制作九宫格图片的方法

    2022-08-21 22:55:49
  • 如何excel文档加密的方法

    2022-08-12 04:21:55
  • Word 2007技巧:设置文字方向

    2023-12-13 22:53:12
  • excel删除空白页面

    2023-09-13 17:59:39
  • excel表格批量替换数据的方法

    2022-05-15 21:31:53
  • 批量修改Excel表格中批注的方法

    2022-01-15 07:00:59
  • 怎样在打开Excel工作簿时禁止Auto_Open宏的运行

    2022-12-30 17:28:51
  • 如何快速查找最近的苹果官方授权维修点?

    2023-08-19 18:18:40
  • excel表格怎么设置生成曲线图

    2022-09-19 05:13:39
  • word2003的页眉页脚怎么设置

    2022-04-04 02:56:41
  • asp之家 电脑教程 m.aspxhome.com