带你入门VBA，第四讲（如何控制关于工作薄与工作表）

兰色幻想

ByVal是通常用来表示某个自变量将以传值(一种以传递自变量值给程序的方式,让程序取得变量的值,注:变量的值将不会被程序所更改)的方式传值

上例中:

Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.DisplayAlerts = False Sh.Delete Application.DisplayAlerts = True End Sub

把新增加的工作表作为变量传给程序(ByVal Sh As Object),程序中Sh.Delete才能运行,Sh即为新插入的工作表，(ByVal Sh As Object）是系统自动提供的，不能更改

[此贴子已经被作者于2004-10-14 13:12:26编辑过]

happy91

B9ixOFJW.rar (4.47 KB, 下载次数: 124)

2004-10-14 13:30 上传

点击文件名下载附件
带你入门VBA，第四讲（如何控制关于工作薄与工作表）

不是要的结果[em06]

兰色幻想

以下是引用happy91在2004-10-14 13:29:00的发言：

先锋

以下是引用兰色幻想在2004-10-14 13:12:00的发言：

Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.DisplayAlerts = False Sh.Delete Application.DisplayAlerts = True End Sub

Private在这里是什么意思?我把去掉,也正常运行.

兰色幻想

在代码框中上方有两个组合框,一个是显示对象名称,如:workbook,worksheet,以及你插入的控件名称,另一个就是事件名称,比如:open、close等，在利用工作薄或工作表事件程序时,在对象框中选取对象(本例选Workbook),在事件下拉框中选取事件名称,本例是(Newsheet),即当新增工作表时运行什么什么程序

兰色幻想

以下是引用先锋在2004-10-14 13:42:00的发言：

Private在这里是什么意思?我把去掉,也正常运行.

Private中文意思是私有的，所在在前面加个它后，表示程序只能在本内部运行，别的程序不能调用这个程序。如下面的就是调用的例子

SUB AA （）

语句

END SUB

SUB BB （）

AA

其他语句

END SUB

先锋

明白了

兰色幻想

怎么没人问这句？是不是地球人都知道？？

Application.DisplayAlerts = False

先锋

以下是引用兰色幻想在2004-10-14 13:54:00的发言：

怎么没人问这句？是不是地球人都知道？？

Application.DisplayAlerts = False

我说不清楚了,还是你来讲吧.

[此贴子已经被作者于2004-10-14 14:31:02编辑过]

黑色幽默

以下是引用兰色幻想在2004-10-14 11:36:00的发言：

Workbooks.close是关闭所有打开的工作薄

Workbooks("123,XLS").close是关闭指定的工作薄

以上讨论了工作薄的新建,保存和统计,做个练习

要求:

1、设置一个按纽,执行程序后会在D盘新建三个EXCEL文件,文件名分别为1、2、3

2、设置一个按纽,执行程序后会关闭工作薄"2.XLS",然后再统计打开工作薄的数量,

Sub 按钮1_单击() For i = 1 To 3 Workbooks.Add ActiveWorkbook.SaveAs Filename:="d:\" & i & ".xls" Next End Sub Sub 按钮2_单击() Workbooks("2.XLS").Close MsgBox Workbooks.Count End Sub 我依样画葫芦的。这样对么？

可是第二个按钮的运行结果是“4”，我当前只有3个工作簿。怎么回事？

[此贴子已经被作者于2004-10-14 14:11:34编辑过]