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 = 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("你按一个按钮我知道哦！", vbOKCancel + 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 "你刚刚按了 确定 ！"

    Else

        MsgBox "你刚刚按了 取消 ！"

    End If

End Sub

信息框中的各种图标

在MsgBox函数中为参数buttons指定常量值，可以显示相应的图标。

其中，常量vbExclamation显示“警告消息”图标，

常量vbQuestion显示“警告询问”图标，

常量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 Is > "11:00:00"

            MsgBox "中午好"

        Case Is > "8:00:00"

            MsgBox "早上好"

    End Select

End Sub

'----------------------------------------------------