1、打开百一个Excel文件,鼠标右击下面的工作表(如sheet1)。选择“查看代码”,就可以打开VBA编辑界面;" />
乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何一打开<em>Excel</em>就运行<em>VBA</em>?-

如何一打开<em>Excel</em>就运行<em>VBA</em>?-

作者:乔山办公网日期:

返回目录:excel表格制作




1、打开一个Excel文件,鼠标右击下面的工作表(如sheet1)。选择“查看代码”,就可以打开VBA编辑界面;

2、选择搜索框的下拉菜单,选择“worksheet”选项功能;

3、选择BeforeDoubleClick,也就是在本工作表鼠标双击之前),将触发下面的代码程序;

4、选择完成后,这样会看到下面出现了两条代码;这俩条代码其实是在声明一个函数;

5、将鼠标放置在这两行代码之间,这时写上执行语句:Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2);

6、然后点击保存,回到Excel的原始界面。在cells(1,1)和cells(1,2)中输入两个数值;

7、在sheet1的工作表中,双击鼠标会发现,cells(1,3)的值变成了cells(1,1)和cells(1,2)的和。


注意 c:\a 目录下的文件不要太多,免得死机

Sub 打开excel表格()
Dim myPath$, myFile$, AK As Workbook
Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动
myPath = "c:\a\" '把文件路径定义给变量
myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件
Do While myFile <> "" '当指定路径中有文件时进行循环
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
End If
myFile = Dir '找寻下一个*.xls文件
Loop
Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
End Sub

不知道这样符不zhidao符合你的要求(一个打开,一个恢复显示):

Sub 后台打开()
Application.ScreenUpdating = False
Workbooks.Open Filename:="D:\excel.xls"
ActiveWindow.Visible = False
Application.ScreenUpdating = True
End Sub

Sub 取消隐藏()
Windows("excel.xls").Visible = True
End Sub

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网