如何在自己的Excel中运行宏代码

sub kkk()
dim i
for i = 1 to 10 '循环10次
call 宏1 '宏1 需要执行的 宏
next
end if

工具：office excel

步骤：

1、打开office excel，执行菜单操作“工具”→zd“宏”→“宏”。

2、创建一个原来就没有的宏。输入宏专的名字，点击“创建”。

3、输入自己的宏代码即可。

4、关闭VBA窗口，执行菜单操作属“工具”→“宏”→“宏”，弹出如下图对话框。

5、点击“选项”即可看到。在操作Excel的时候，按下相应的组合键，该宏的代码马上就运行，效果立马就出来了。

单击工具--宏--录制新宏--设置快捷键.
然后将你的代码放在这个模块中即可了.

晕,要代码里知面设置啊.给你举个例子:
本示例为 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 方法所做的特殊击键设置。

工具：office excel
步骤：
1、打开office excel，执行菜单操作知“工具”→“宏”→“宏”。

2、创建一个原来就没有的宏道。输入宏的名字，点击“创建”。

3、输入自己的宏代码即可。

4、关闭VBA窗口，执行菜单操作“工具”→“宏”→“宏”，弹出如下回图对话框。

5、点击“选项”即可看到。在操作Excel的时候答，按下相应的组合键，该宏的代码马上就运行，效果立马就出来了。