1、首先将Excel文档(默认新建扩展名为xlsx),另存为启用宏的工作簿,扩展名为xlsm。
2、按下组合键ALt+F11快速切换到VBA窗口。
3、进入VBA窗口后的界面,如图所示。
4、双击ThisWorkbook后,会弹出一个代码窗口。
5、在代码窗口中复制粘贴以下代码:Private Sub Workbook_Open(),MsgBox ("欢迎您使用Excel2013"),End Sub。
6、保存,关闭,重新打开Excel(扩展名为xlsm)文档,效果如图所示。
步骤如下:
1.sheet1中有个名为main的宏,需要Excel启动时自动运行
2.双击Thisworkbook,选择workbook,选择Open事件,会自动出现2段代码
3.在代码中间添加如下代码:
4.关闭保存,再打开Excel表格式,就会自动运行sheet1中的main宏了
Private Sub Workbook_open()
……【功能代码】
End Sub
Workbook_open事件代码为工作簿代码,一定要放在Thisworkbook模块内,否则不会自动运行。
Workbook_Open()事件里面调用宏,该事件在thisworkbook 里面
Private Sub Workbook_open()
call 宏名称()
End Sub