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

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

Private Sub workbook_open()

Dim msg As String '聲明變量

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

msg=msg&"請在單元格中輸入身份證號進行查詢!"&vbCrLf '賦值變量

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

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

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

End Sub

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

2、切換到Excel工作表，保存當前文檔后關閉文檔。當再次打開該文檔時，將自動打開提示對話框，如圖2所示。

圖2　打開文檔時顯示提示歡迎對話框