16招巧用MsgBox与InputBox,轻松解锁VBA人机交互密码(零基础入门)

16招巧用MsgBox与InputBox,轻松解锁VBA人机交互密码(零基础入门)"/

在VBA(Visual Basic for Applications)中,MsgBox和InputBox是两个非常常用的用户界面控件,它们可以用来显示信息、提示用户或从用户那里获取输入。下面是一个简单的示例,展示如何使用这两个函数来创建一个简单的密码验证系统。
### 使用MsgBox显示信息
```vba Sub ShowMessage() MsgBox "这是一个信息提示框。", vbInformation, "提示" End Sub ```
在这个例子中,`MsgBox`函数显示了一个信息提示框,其中包含了一条消息 "这是一个信息提示框。",`vbInformation`指定了消息框的图标,`"提示"`是消息框标题栏中显示的文本。
### 使用InputBox获取输入
```vba Sub GetInput() Dim userInput As String userInput = InputBox("请输入密码:", "密码验证") If userInput = "你的密码" Then MsgBox "密码正确!", vbInformation, "验证成功" Else MsgBox "密码错误!", vbExclamation, "验证失败" End If End Sub ```
在这个例子中,`InputBox`函数显示了一个输入框,提示用户输入密码。用户输入的值被存储在变量`userInput`中。然后,代码检查用户输入的密码是否与预设的密码(在这个例子中是 "你的密码")匹配。如果匹配,显示一个信息提示框表示密码正确;

相关内容:

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的奇妙世界。

发布于 2025-09-18 10:43
收藏
1
上一篇:3.Delphi常用组件解析,深入探讨窗体设计与应用 下一篇:别再误解了!揭秘常被人搞错的11个夏威夷文化习俗