当前位置：网站首页 > 热门文章 > 正文

MsgBox提示框函数详细讲解，VBA编程应用

bigegpt 2024-12-25 10:24 59 浏览

No.1

VBA编程，提示框有很多种格式，本节总结一下不同格式和返回值的不同应用。

通常我们在程序过程中应用到一些输入输出的界面提示，vba内置了一些信息提示模版，在编程当中直接调用就可以实现与计算机交互。

虽然，这样的交互有点机械，但是在应用程序执行过程当中必不可少。

如果，没有这些弹出框进行提示，那么程序执行到了哪一步，就真的很难知晓。

No.2

Msgbox()函数

此函数有多种样式，根据程序需要，选择不同的参数，可表现出不同的弹出提示样式，样式中有一些按钮，当按下某些按钮之后，会返回一个特定的值，根据返回值，对程序进行判断选择过程。

下图为MsgBox函数语法：

下图为参数buttons参数可选值：

下图为返回值：

返回值有上图7个值，根据不同值，可知道单击了什么类型按钮，然后根据值进行程序判断。

No.3

示例：

下图示例可将所有参数进行选择，下拉列表框内参数值选择，单击按钮可弹出相应的对话框。

单击效果如下图：

No.4

按钮代码

Private Sub CommandButton1_Click()
Dim cell As Range, xcell As Range
Set cell = Range("C3:C23")
Dim cX As Long, x As Integer
cX = Val(Me.ComboBox1.Value)
Set xcell = cell.Find(cX, LookIn:=xlValues, lookat:=xlWhole)
If VBA.Len(xcell.Value) = 0 Then Exit Sub
x = MsgBox(xcell.Offset(0, 1).Value, cX, "MsgBox对话框！")
MsgBox "你刚才单击了：" & getStr(x) & "按钮！"
End Sub

GetStr()函数

Function getStr(x) As String
    Dim scell As Range, se As Range
    Set scell = Range("G3:G10")
    Set se = scell.Find(x, LookIn:=xlValues, lookat:=xlWhole)
    If se Is Nothing Then Exit Function
    getStr = se.Offset(0, 1).Value
End Function

MsgBox对话框应用很普遍，是人机交互的一个重要组成部分，所以要学会这个函数有很重要的意义。

欢迎关注、收藏

---END---

r语言dim函数

上一篇：R语言学习笔记(七) -离散型数据的模型预测2
下一篇：VBA如何隔行设置不同的颜色，这个小技巧一定要学会

MsgBox提示框函数详细讲解，VBA编程应用

No.1

No.2

No.3

No.4

相关推荐

idea本地配置连接远程hadoop集群的一些网络问题解决汇总

无缓存不行?例行升级的入门级阿斯加特AN2 SSD装机点评

Ceph运维手册(基于P版本)

Docker 命令大全（docker命令大全记录表）

替代Docker build的Buildah简单介绍

Docker Desktop安装使用指南:零基础教程

大数据开发前要做什么准备?8台Hadoop服务器进行集群规划前配置

Tensorflow分类loss函数总结 tensorflow绘制loss曲线

R语言学习笔记(七) -离散型数据的模型预测2

iOS Runtime详解