怎样让宏自动运行

分类: 薄表文档 |
点击…>1或…>2就可以进入江海明子的博文1或江海明子的博文2
点击页面上的:江海明子的博客或http://blog.sina.com.cn/jshmxyming,
就可以进入我的博客首页.
在百度中搜索“江海明子的博客”,就能搜索到“江海明子_新浪博客”
在百度中搜索:怎样让宏自动运行
就能搜索到:怎样让宏自动运行_江海明子_新浪博客
一、为什么在excel中没有自动运行宏的设置?
微软可能是从防病毒的角度考虑,没有这项设置。
二、宏的建立:
新建或打开excel薄,
1、录制新宏:
<1、快捷键:在工作薄中,Alt+T,M,,R。
<2、菜单法:在工作薄中,工具-宏-录制新宏(输入宏名和快捷键的字母<如:h>,以后需要运行宏时,只要用快捷键即可)-确定(接下来就像平时一样操作一下就行,最后只要别忘记结束录制就是了)。
2、建立新宏:
<1、快捷键:在工作薄中,Alt+F11。
<2、菜单法:在工作薄中,工具-宏-Visual Basic编辑器。
3、宏的形式:
在方法2后,会弹出一个“工程-VBAProject”对话框,
<1、双击“Sheet1(Sheet1)”,会弹出一个“Sheet1(代码)”输入框,在框内输入代码就行,如:
Sub 秒表()
ActiveSheet.Range("B4").Value = Time
Application.OnTime Time + TimeSerial(0, 0, 1),
"sheet1.秒表", , True
End Sub
<2、在“Sheet1(Sheet1)”上右击,“插入-模块”,或用快捷键:Alt+I,M,会弹出一个“模块X(代码)输入框,在框内输入代码就行
代码输入完后,只要回到工作薄运行宏就可以啦。
4、让宏随工作薄的打开而自动运行:
在有的时候需要在打开工作薄时运行宏,如:在excel中的倒计时牌(制作方法:http://blog.sina.com.cn/s/blog_48462a890102e4u5.html )、在excel中的电子钟(制作方法:http://blog.sina.com.cn/s/blog_48462a890102e4vb.html )等
在“工程-VBAProject”的窗口中, 双击“ThWokbook”,在“ThWokbook(代码)”窗口中,输入如下代码:
Private Sub Workbook_Open()
Sheet1.秒表
End Sub
(代码中红色部分是您先前建立的宏名<在宏代码的倒数第二行的双引号中>)
当然在关闭前要先运行一下所有的宏