有人說她最近收到的 Excel 文件打開文件對話框時出錯,打開總是會自動彈出一個對話框,每次收到的文件不同,對話框中的內容也隨之變化,挺有意思,仿佛在進行人機對話。
這是怎么做的呢?其實再容易不過了,就是 VBA 入門學習的第一個語句,有些同學學會了以后就用來暗戳戳表白,也是 666 了。
案例:
下圖 1 是班級同學的各科考試成績表,打開這個文件時,會自動彈出一個求饒對話框,必須點擊“確定”以后才能正常對文件進行編輯。
效果如下圖 2 所示。
解決方案:
1. 按 Alt+F11--> 在彈出的 VBE 窗體的導航欄中點擊
2. 在右側窗體的上方分別選擇 和 Open --> 輸入以下代碼:
Private Sub Workbook_Open()
MsgBox "沒考好,求放過!"
End Sub
* 起始和結束語句會自動出現打開文件對話框時出錯,我們其實只需要輸入 語句;引號內的內容就是彈出的對話框中所顯示的內容。
3. 關閉 VBE --> 將 Excel 保存為 .xlsm 格式的文件
現在打開這個文件,就會自動彈出我們剛才設置的對話框內容。