1、VBA的msgbox用法顯示提醒分行：Sub testLine() MsgBox 第一行 & vbCrLf _ & 第二行 & vbCrLf _ & 第三行 & vbNewLine _ & 第四行End Sub顯示帶有引號(hào)的：Sub testLine()MsgBox I am a boy.End Sub顯示表中A1-D3的內(nèi)容：Sub 測(cè)試排列() 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) 回車(chē)符與換行符結(jié)合vbCr Chr(13) 回車(chē)符vbLf Chr(10) 換行符 得知用戶按的button:Sub 測(cè)試按() Dim a As Long a = MsgBox(你按一個(gè)按鈕我知道哦！, vbOKCancel + vbInformation, 試一下) 作為函數(shù)調(diào)用時(shí)這里的括號(hào)不能少 If a = vbOK Then vbOK 是內(nèi)部常數(shù)，這里可以用vbOK對(duì)應(yīng)的數(shù)值替換寫(xiě)成 【 if a=1 then 】?jī)?nèi)部常數(shù)表見(jiàn)后面

3、MsgBox 你剛剛按了 確定 ！ ElseIf a = vbCancel Then MsgBox 你剛剛按了 取消 ！ End If這段代碼也可以這樣寫(xiě): If MsgBox(你按一個(gè)按鈕我知道哦！, vbOKCancel + vbInformation, 試一下) = vbOK Then MsgBox 你剛剛按了 確定 ！ Else MsgBox 你剛剛按了 取消 ！ End IfEnd Sub信息框中的各種圖標(biāo)在MsgBox函數(shù)中為參數(shù)buttons指定常量值，可以顯示相應(yīng)的圖標(biāo)。其中，常量vbExclamation顯示“警告消息”圖標(biāo)，常量vbQuestion顯示“警告詢問(wèn)”圖標(biāo)，常量

4、vbCritical顯示“關(guān)健信息”圖標(biāo)并伴有提示聲，常量vbInformation顯示“信息”圖標(biāo)，注意，這四個(gè)常量若相互組合，將不會(huì)顯示任何圖標(biāo)。-other-在sheet1中插入一個(gè)按鈕，然后在vba中插入一個(gè)模塊，輸入以下代碼：Sub 示例1_2_簡(jiǎn)單示例() Range(A1).Value = InputBox(請(qǐng)輸入數(shù)據(jù)：, EH之VBA培訓(xùn), EH提示你！)End Sub-讓msg顯示上午下午好，并超時(shí)關(guān)閉-Private Sub Workbook_Open() Const Sec = 5 過(guò)多少秒關(guān)閉 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