首先进入VBA编辑器(ALT+F11进入、或者ALT+F8选宏再点编辑),然后再打开工程资源管理器(菜单查看下选中、或者直接按CTRL+R键),在资源管理器里面的ThisWorkBook上双击鼠标,会打开工作的相关代码,粘贴下面的例子代码:
1 2 3 4
Private Sub Workbook_open()
msgbox "工作表打开了"
'call 其它宏,或者继续写其它语句
End Sub
这样每次打开工作簿就会执行Workbook_open宏的代码。
你把录制好的宏,放在一个WorkBook的open事件中,然后把这个文件保存为XLA类型。再打开Excel,在文件、选项、加载项中添加这个xla。以后你双击你的Excel文件时,这个xla就能自动执行了
首先你需要把宏代码放在workbook的open事件中,这样才能在打开时自动执行。其次,由于你的宏代码只能执行当前工作表的动作,所以你需要编写类似于For
循环语句来遍历你所有的工作表。
Private Sub Workbook_open()
【功能代码】
End Sub
或者
Private Sub Workbook_open()
Call【代码名】
End Sub
Workbook_open事件代码为工作簿代码,一定要放在Thisworkbook模块内,否则不会自动运行。
1.
首先将Excel文档(默认新建扩展名为xlsx),另存为启用宏的工作簿,扩展名为xlsm。
2.
按下组合键ALt+F11快速切换到VBA。
3.
进入VBA窗口后的界面。
4.
双击ThisWorkbook后,会弹出一个代码窗口。
5.
在代码窗口中复制粘贴以下代码:Private Sub Workbook_Open(),MsgBox ("»¶ÓÄúʹÓÃExcel2013£¡"),End Sub。
6.
保存,关闭,重新打开Excel(扩展名为xlsm)文档就可以了。