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

yigepure

哈哈,知道怎么隐藏了.

在"格式","工作表"里有隐藏和取消隐藏

真是不好意思

yigepure

但是什么时候用cancel as boolean(这里是不是前面省略了byref)

什么时候用byval sh as object 呢

兰色幻想

以下是引用yigepure在2004-10-15 22:23:00的发言：

但是什么时候用cancel as boolean(这里是不是前面省略了byref)

什么时候用byval sh as object 呢

这是由事件本身参加的对象决定的,比如

下面是受新增工作表影响

Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub

下面是该事件受单元格改变影响

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

本例中除工作薄本身外无工作表或单元格参与,所以无自变量,Cancel起到的作用是是否中止此事件继续发生,如设置为TRUE,则中止该事件

Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = True End Sub

上面程序可使EXCEL无法关闭

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub

这个程序可以右键单击失效,(这也是屏蔽单元格右键的一个方法)

yigepure

谢谢,兰老师讲得很清楚.我打印出来了,慢慢研究.

不知道什么时候开始第五讲呀.真是很期待呀.

[em17][em17][em17][em23][em23][em23]

兰色幻想

以下是引用yigepure在2004-10-15 23:40:00的发言：

谢谢,兰老师讲得很清楚.我打印出来了,慢慢研究.

不知道什么时候开始第五讲呀.真是很期待呀.

[em17][em17][em17][em23][em23][em23]

你的学习劲头很令我佩服!! 下一讲我准备主要谈谈单元格和单元格区域的控制,这是最常用到的

yigepure

谢谢兰老师的夸奖

你的第一讲:初识VBA

第二讲:一些简单的VBA的应用

第三讲:自定义函数

第四讲:控制工作薄和工作表

-----------------------------------------------------------------------------------

我一开始都不知道怎么学VBA,不知从何学起,真的很感谢你引导.

让我和一些像我这样的人能轻松学习VBA.呵呵,第五期什么时候开讲呀.

鲜花还是要给的哟.顺便问一下论坛上有电子版的EXCEL2002公式及函数运用宝典吗

--------------------------------------------------------------

[em23][em17][em23]

兰色幻想

以下是引用yigepure在2004-10-15 23:56:00的发言：

谢谢兰老师的夸奖

你的第一讲:初识VBA

第二讲:一些简单的VBA的应用

第三讲:自定义函数

第四讲:控制工作薄和工作表

-----------------------------------------------------------------------------------

我一开始都不知道怎么学VBA,不知从何学起,真的很感谢你引导.

让我和一些像我这样的人能轻松学习VBA.呵呵,第五期什么时候开讲呀.

鲜花还是要给的哟.顺便问一下论坛上有电子版的EXCEL2002公式及函数运用宝典吗

--------------------------------------------------------------

[em23][em17][em23]

为你的进步感到高兴,

在资源共享版有EXCEL2002公式及函数运用宝典.你去看一看

yigepure

谢谢

gvntw

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

好！

可以再简化一些

Sub 按钮1_单击() Dim a As Integer, b As Integer 应该是 d 吧 d = Application.Worksheets.Count 这一句可简化为d=sheets.count If d <> 0 Then 这一句可不要，因为工作薄中至少会有一个工作表 For a = 1 To d Sheets(a).Name = "A" & a Sheets(a).Protect password:=123 Next a End If 这一句可不要，因为工作薄中至少会有一个工作表 End Sub

再把d去掉怎么样

Private Sub CommandButton1_Click() Dim a As Integer For a = 1 To Sheets.Count Sheets(a).Name = "A" & a Sheets(a).Protect Password:=123 Next End Sub

兰色幻想

补充一点：

Application.Dialogs(5).Show是调用另存为对话框，

Application.Dialogs(1).Show是调用打开对话框

如果想了解更多对话框对应的参数

设置一个按纽运行下面的宏（看下一个时按ESC）

Sub 矩形1_单击()

on error resume next For I = 1 To 100 MsgBox "下面的对话框参数将对应参数" & I Application.Dialogs(I).Show Next End Sub

[此贴子已经被作者于2004-10-16 13:53:00编辑过]