cfnr.net
当前位置:首页 >> 如何一打开ExCEl就运行VBA? >>

如何一打开ExCEl就运行VBA?

1.将EXCEL宏安全性改为“低”,打开有VBA代码的工作簿时,就不会提示是否启用宏2.将需要首先运行的VBA代码写在workbook_open事件里面 或许你需要的是一种,或者你要的是这两种

1、首先将Excel文档(默认新建扩展名为xlsx),另存为启用宏的工作簿,扩展名为xlsm.2、按下组合键ALt+F11快速切换到VBA窗口.3、进入VBA窗口后的界面,如图所示.4、双击ThisWorkbook后,会弹出一个代码窗口.5、在代码窗口中复制粘贴以下代码:Private Sub Workbook_Open(),MsgBox ("欢迎您使用Excel2013"),End Sub.6、保存,关闭,重新打开Excel(扩展名为xlsm)文档,效果如图所示.

open 事件 Private Sub Workbook_Open() End Sub 在VBE窗口中左边的“thisworkbook" ,双击,就出现左边(通用),把它选为workbook,再选OPEN事件 在这个事件中加入代码,就可以了!也可以用 Sub auto_open() End Sub 这个放在任何模块都可以

将:知C:\Documents and Settings\Administrator(也就是用户名)\Application Data\Microsoft\Excel\r\n \r\n里面的Excel11,删除即道可解决.如果不专行属,只有重装Office.

Private Sub Workbook_Open() UserForm1.Show '此处是你想显示的窗体 Call 宏 '此处的"宏"是你录制的宏名 End Sub

先打开这个工作薄 按ALT+F11进入VBA编辑窗口在左边的列表里找到thisworkbook 在这个名字上点右键选查看代码 粘贴下面的代码 保存 下次打开这个工作薄时你写在下面代码之间的宏名那个宏会自动运行Private Sub Workbook_Open()'这里写你的建立好的宏的名字End Sub

放在加载宏的 workbook_open 事件里面就可以呀,写加载宏必须明白以下:thisworkbook 在加载宏里面指 加载宏本身 activeworkbook 在加载宏里面指 当前打开的工作簿 (不是加载宏本身) 要检查打开的工作簿的某表的某区域 是否有你要查找的字符串 最好用 with activeworkbook.sheets("xxxx") …… end with 这样的语句

其实很简单,在这段代码前面(也就是sub的下一行)输入application.enablecancelkey = xldisabled这样就不会提示代码被中断了.

如果你想打开vba就自动运行这个代码的话 sub auto_open() Application.OnTime Now + TimeValue("00:05:00"), "按钮68_Click"'' 按钮68_Click 宏'' ActiveWorkbook.RefreshAll ActiveWorkbook.RefreshAll ActiveWorkbook.RefreshAll ActiveWorkbook.Save end sub 或者 sub auto_open() call 按钮68_Click end sub

Private Sub Workbook_Open() If Sheet1.Range("h1") = 1 Then Exit Sub'以下是你的其他代码 End Sub 这个代码在工作簿刚打开时会运行,然后它判断工作表1的H1单元格内容,如果值为1则终止代码,否则执行下面的代码.

网站首页 | 网站地图
All rights reserved Powered by www.cfnr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com