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