Excel中的許多命令都可以使用快捷鍵來完成,但仍然有一些命令沒有指定快捷鍵。例如在“常用”工具欄中的“顯示比例”命令。我們可以用下面的VBA代碼來實現用快捷鍵調整工作表顯示比例,將下列代碼輸入到標準模塊中:
Sub ZoomIn()
Dim ZP As Integer
ZP = Int(ActiveWindow.Zoom * 1.1)
If ZP > 400 Then ZP = 400
ActiveWindow.Zoom = ZP
End Sub
Sub ZoomOut()
Dim ZP As Integer
ZP = Int(ActiveWindow.Zoom * 0.9)
If ZP < 10 Then ZP = 10
ActiveWindow.Zoom = ZP
End Sub
每執行一次上述代碼,ZoomIn()可以將當前工作表的顯示比例放大10%,ZoomOut()可以將當前工作表的顯示比例縮小10%,需要說明的是Excel只允許將顯示比例最大調整到400%,最小到10%,超過這個比例將停止放大或縮小。
下面給這兩個宏指定快捷鍵,方法如下:
1.單擊菜單“工具→宏→宏”,或按Alt+F8,打開“宏”對話框。
2.選擇宏“ZoomIn”,單擊“選項”按鈕,在“Ctrl+”右側的文本框中輸入指定的英文字母,如“i”,單擊“確定”按鈕,然后關閉“宏”對話框。這樣,當按快捷鍵“Ctrl+i”時將放大工作表,注意指定快捷鍵時最好不要與系統快捷鍵相沖突,如Ctrl+O為系統給定的顯示“打開”對話框,指定快捷鍵時就不用“Ctrl+O”。
3.用同樣的方法給宏“ZoomOut”也指定一個快捷鍵,如“Ctrl+j”,這樣,當按快捷鍵“Ctrl+j”時將縮小工作表。