1、在VBA编程中,MsgBox和IinputBox是实现人机交互的核心工具,对程序的交互体验起到至关重要的作用。Msgbox能够弹窗形式向用户传递信息,有效引导用户理解程序状态。InputBox则允许程序接收用户输入的数据,将用户需求无缝融入程序运行逻辑。二者相辅相成,构建起程序与用户之间畅通无阻的沟通桥梁。
2、MsgBOX是这样的
MsgBox "只显示“确定”按钮(缺省值)", 0 'Buttons:=vbOKOnly
MsgBox "显示“确定”和“取消”按钮", 1 'Buttons:=vbOKCancel
MsgBox "显示“终止”、“重试”和“忽略” 按钮", 2 'Buttons:=VbAbortRetryIgnore
MsgBox "显示“是”、“否”和“取消”按钮” 按钮", 3 'Buttons:=VbYesNoCancel
MsgBox "显示“问号”图标", 32 'Buttons:=VbQuestion
MsgBox "显示“警告”图标", 48 'Buttons:= Vbexclamation
MsgBox "显示“通知消息”图标", 64 'Buttons:=VbInformation
(还是一头雾水吧?不要紧,举个例:制作一个录入框,内容录入后提示,代码图解如下)
3、MsgBox还有返回值(就是说你按了那个按钮,会返回一个不同的值)
vbok 1 确定
Vbcance l2 取消
vbabort 3 放弃
vbretry 4 重试
vblgnore 5 忽略
vbyes 6 是
vbno 7 否
(什么意思?看下面代码就明白了)
Sub 问答()
Dim i%
i = MsgBox("你是男生吗?,请选择 是/否", Buttons:=4 + 32)
选择是与否将会返回一个值,对照上表就是6和7,然后储存在变量i中。
If i = 6 Then
MsgBox "你是最帅的!"
I=6说明你选择了“是”,所以判断你是男生。
ElseIf i = 7 Then
MsgBox "你是我们村的村花!"
End If
End Sub
4、什么是InputBOX
它是一个系统提供的输入框,一些要求不高的场景,用户不用自己制作窗体。它可以录入文本、数字等等,主要看程序需要用户提供什么信息。
(例:一个系统登录窗口的设计)
Sub 登录()
Dim str$
str = InputBox("请输入密码", "人员信息系统")
If str = "123456" Then
MsgBox "密码正确!"
Else
MsgBox "抱歉,您没有权限进入系统"
Exit Sub
End If
End Sub
(本章完)有任何批评或疑问,可以在评论区讨论,谢谢!!
不论你是求知若渴的在校学生,还是在职场摸爬滚打多年的上班族,只要怀揣着提升自我的决心,别犹豫,快点赞、关注、收藏!我会始终站在零基础小白的视角,循序渐进,带你一步步踏入VBA的奇妙世界。