单击工具--宏--录制新宏--设置快捷键.
然后将你的代码放在这个模块中即可了.
晕,要代码里面设置啊.给你举个例子:
本示例为 Ctrl+ 加号分配"Macro"过程。
Application.OnKey "^{+}", "Macro" .
^表求CTRL
+表示SHIFT '此+不带{}.
%表求ALT
当按特定键或特定的组合键时运行指定的过程。 expression.OnKey(Key, Procedure) expression 必需。该表达式返回一个 Application 对象。 Key String 类型,必需。用于表示要按的键的字符串。 Procedure Variant 类型,可选。表示要运行的过程名称的字符串。如果 Procedure 参数为空文本 (""),则按 Key 时不发生任何操作。OnKey 方式将更改击键在 Microsoft Excel 中产生的正常结果。如果省略 Procedure 参数,则 Key 产生 Microsoft Excel 中的正常结果,同时清除先前使用 OnKey 方法所做的特殊击键设置。