使用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í)顯示提示歡迎對話框
繼續(xù)查找其他問題的答案?
-
Excel 2019如何使用復(fù)制、粘貼命令插入Word數(shù)據(jù)?(視頻講解)
2021-01-257次播放
-
Excel 2019如何制作數(shù)據(jù)透視表?(視頻講解)
2021-01-2227次播放
-
Excel 2019如何設(shè)置相對引用?(視頻講解)
2021-01-2210次播放
-
2021-01-2212次播放
-
Excel 2019如何使用命令復(fù)制公式?(視頻講解)
2021-01-226次播放
-
2021-01-223次播放
-
2021-01-222次播放
-
Excel 2019如何利用開始選項(xiàng)卡進(jìn)入篩選模式?(視頻講解)
2021-01-223次播放
-
Excel 2019如何設(shè)置指定數(shù)據(jù)的篩選?(視頻講解)
2021-01-223次播放
-
Excel 2019如何設(shè)置自定義排序?(視頻講解)
2021-01-222次播放
點(diǎn)擊加載更多評論>>