使用Excel的Open事件及MsgBox函數(shù)制作提示對話框

1、啟動(dòng)Excel并打開工作表，打開Visual Basic編輯器，在工程資源管理器中雙擊"ThisWorkbook"選項(xiàng)打開當(dāng)前工作簿的“代碼”窗口，如圖1所示。具體程序代碼如下所示：

Private Sub workbook_open()

Dim msg As String '聲明變量

msg="歡迎使用小小公積金查詢系統(tǒng)!"&vbCrLf

msg=msg&"請?jiān)趩卧裰休斎肷矸葑C號(hào)進(jìn)行查詢!"&vbCrLf '賦值變量

msg=msg&"作者：郭剛"&vbCrLf

msg=msg&"制作日期：2013年1月"&vbCrLf

MsgBox msg,,"歡迎" '顯示歡迎對話框

End Sub

圖1　在“代碼”窗口中輸入代碼

2、切換到Excel工作表，保存當(dāng)前文檔后關(guān)閉文檔。當(dāng)再次打開該文檔時(shí)，將自動(dòng)打開提示對話框，如圖2所示。

圖2　打開文檔時(shí)顯示提示歡迎對話框