怎么為Excel中宏的啟動(dòng)指定快捷鍵？

1、啟動(dòng)Excel并打開(kāi)工作表，在Visual Basic編輯器“模塊1”的“代碼”窗口中添加程序代碼，如圖1所示。具體的代碼如下所示：

Private Sub dingyi()

Application.OnKey"^{left}","隱藏"

Application.OnKey"^{right}","顯示"

End Sub

圖1　在“代碼”窗口中添加程序代碼

提示

在Excel VBA中，Application對(duì)象的OnKey方法能夠設(shè)定單個(gè)快捷鍵或組合鍵按下時(shí)，運(yùn)行指定的過(guò)程。該方法的語(yǔ)法格式如下所示。

表達(dá)式.OnKey(Key，Procedure)

其中，Key參數(shù)指定要按的鍵的字符串，Procedure參數(shù)指定要運(yùn)行的過(guò)程名稱字符串。如果該參數(shù)為空文本，則按Key參數(shù)指定的鍵時(shí)不會(huì)發(fā)生任何操作;如果省略該參數(shù)，則將恢復(fù)為Excel中正常的結(jié)果同時(shí)清除以前使用OnKey方法設(shè)置的快捷鍵。

2、將插入點(diǎn)光標(biāo)放置到dingyi過(guò)程中，按F5鍵運(yùn)行該過(guò)程定義快捷鍵。切換到Excel窗口，按Ctrl+←鍵將運(yùn)行名為“隱藏”的Sub過(guò)程，彈出提示對(duì)話框，提示隱藏圖表，如圖2所示;按Ctrl+→鍵將運(yùn)行名為“顯示”的Sub過(guò)程，彈出提示對(duì)話框，提示顯示圖表，如圖3所示。

圖2　提示顯示圖表