VBA的msgbox用法

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 = For r = 1 To 4 For c = 1 To 3 msg = msg & Cells(r, c) & vbTab Next c msg =

2、msg & vbCrLf Next r MsgBox msg, vbInformationEnd SubvbCrLf Chr(13) + Chr(10) 回车符与换行符结合vbCr Chr(13) 回车符vbLf Chr(10) 换行符 得知用户按的button:Sub 测试按() Dim a As Long a = MsgBox(你按一个按钮我知道哦！, vbOKCancel + vbInformation, 试一下) 作为函数调用时这里的括号不能少 If a = vbOK Then vbOK 是内部常数，这里可以用vbOK对应的数值替换写成 【 if a=1 then 】内部常数表见后面

3、MsgBox 你刚刚按了 确定 ！ ElseIf a = vbCancel Then MsgBox 你刚刚按了 取消 ！ End If这段代码也可以这样写: If MsgBox(你按一个按钮我知道哦！, vbOKCancel + vbInformation, 试一下) = vbOK Then MsgBox 你刚刚按了 确定 ！ Else MsgBox 你刚刚按了 取消 ！ End IfEnd Sub信息框中的各种图标在MsgBox函数中为参数buttons指定常量值，可以显示相应的图标。其中，常量vbExclamation显示“警告消息”图标，常量vbQuestion显示“警告询问”图标，常量

4、vbCritical显示“关健信息”图标并伴有提示声，常量vbInformation显示“信息”图标，注意，这四个常量若相互组合，将不会显示任何图标。-other-在sheet1中插入一个按钮，然后在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 I