第一章 Excel中用自動運行宏提高工作效率
在日常工作中，我們經常需要在每次打開同一個Excel文件時都進行一些例行的操作，如改變表格的格式、更新報表日期、打印文件、對工作表進行保護或取消保護等等。Excel的自動運行宏"Auto＿Open"可在文件打開後立即完成這些例行的操作任務，既快速又準確。
假設我們在Excel文件的工作表Sheet1中有一個《銷售日報表》， 下麵我們在這個文件中建立一個Auto＿Open宏，讓它在文件打開後自動完成下麵任務：
1. 取消工作表保護；
2. 把"當日銷售"列裏的數據值複製到"上日銷售"一列；3. 將日期增加一天；
4. 恢複工作表保護。
具體做法如下：
1. 在"工具"菜單上選擇"宏"子菜單，打開"宏"對話框，在"宏名"一欄裏鍵入"Auto＿Open"再點擊下麵的"新建"鈕，進入宏編輯狀態。注意不要把宏名字輸錯了，否則宏不會自動執行。
2. 在宏編輯狀態下，把下麵VBA Visual Basic for Application 語句輸入到Auto＿Open下麵： Sub Auto＿Open Sheets"Sheet1".Activate '取消工作表保護 ActiveSheet.Unprotect '將當日銷售值拷貝到上日銷售一欄 x = MsgBox"把當日銷售值拷貝到上日銷售欄嗎？" vbYesNo If x = vbYes Then Range"B5B8".Copy Range"C5".Select Selection.PasteSpecial Paste=xlValues Application.CutCopyMode = False End If '將日期增加一天 x = MsgBox"把日期增加一天嗎？" vbYesNo If x = vbYes Then Range"C2" = Range"C2" + 1 End If '重新保護工作表 ActiveSheet.Protect End Sub 將文件保存並關閉。
重新打開此文件，體驗一下Auto＿Open宏是如何為你工作的吧。 如果你想用Auto＿Open完成其它的操作而又不知道如何用VBA語句直接建立宏，Excel的錄製宏的功能可以幫助你，但是別忘了把所錄製的宏取名為Auto＿Open。關於錄製宏的方法請參閱一般的Excel功能手冊。