《VBA的msgbox用法》由会员分享，可在线阅读，更多相关《VBA的msgbox用法（3页珍藏版）》请在装配图网上搜索。
1、精品文档，仅供学习与交流，如有侵权请联系网站删除
VBA的msgbox用法
显示提醒分行：
Sub testLine()
MsgBox "第一行" & vbCrLf _
& "第二行" & vbCrLf _
& "第三行" & vbNewLine _
& "第四行"
End Sub
显示带有引号的：
Sub testLine()
MsgBox "I am ""a"" boy."
End Sub
显示表中A1-D3的内容：
Sub 测试排列()
Dim msg As String
Dim r As Long, c As Long
msg =
2、 ""
For r = 1 To 4
For c = 1 To 3
msg = msg & Cells(r, c) & vbTab
Next c
msg = msg & vbCrLf
Next r
MsgBox msg, vbInformation
End Sub
vbCrLf Chr(13) + Chr(10) 回车符与换行符结合
vbCr Chr(13) 回车符
vbLf Chr(10) 换行符
得知用户按的button:
Sub 测试按()
Dim a As Long
a = MsgBox("你按一个按钮我知道哦！", vbOKCan
3、cel + vbInformation, "试一下") 作为函数调用时这里的括号不能少
If a = vbOK Then vbOK 是内部常数，这里可以用vbOK对应的数值替换写成 【 if a=1 then 】内部常数表见后面
MsgBox "你刚刚按了 确定 ！"
ElseIf a = vbCancel Then
MsgBox "你刚刚按了 取消 ！"
End If
这段代码也可以这样写:
If MsgBox("你按一个按钮我知道哦！", vbOKCancel + vbInformation, "试一下") = vbOK Then
MsgBox "你刚刚按了
4、确定 ！"
Else
MsgBox "你刚刚按了 取消 ！"
End If
End Sub
信息框中的各种图标
在MsgBox函数中为参数buttons指定常量值，可以显示相应的图标。
其中，常量vbExclamation显示“警告消息”图标，
常量vbQuestion显示“警告询问”图标，
常量vbCritical显示“关健信息”图标并伴有提示声，
常量vbInformation显示“信息”图标，
注意，这四个常量若相互组合，将不会显示任何图标。
--------------------other----------------
在sheet1中插入一个按
5、钮，然后在vba中插入一个模块，输入以下代码：
Sub 示例1_2_简单示例()
Range("A1").Value = InputBox("请输入数据：", "EH之VBA培训", "EH提示你！")
End Sub
-------------------让msg显示上午下午好，并超时关闭-----------------
Private Sub Workbook_Open()
Const Sec = "5" 过多少秒关闭
Dim t As Date
t = Time
TID = SetTimer(0, 0, Sec * 1000, AddressOf CloseMsg)
Select Case t
Case Is > "13:00:00"
MsgBox "下午好"
Case Is > "11:00:00"
MsgBox "中午好"
Case Is > "8:00:00"
MsgBox "早上好"
End Select
End Sub
【精品文档】第 3 页
VBA的msgbox用法
