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

兰色幻想

以下是引用lpdcd在2004-10-18 8:22:00的发言：

举个例子：填充非空单元格颜色

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Value <> "" Then Target.Interior.ColorIndex = 3 End If End Sub

上面是一个事件程序，当工作表内容改变时就运行Target.Interior.ColorIndex = 3

兰老师：为什么在我的附件中当工作表内容改变时不能运行Target.interior.Colorlndex = 3 呢？

你把工作薄事件放在工作表事件中当然不行了，应该放在THISWORKBOOK中，以后在输入事年程序的时候程序名不要手工输入，而是通过选取，就不会出现这样的错误了，如本例你只想让SHEET1中自动填充，就换成工作表事件。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Value <> "" Then Target.Interior.ColorIndex = 3 End If End Sub

lpdcd

哦!明白了：(ByVal Sh As Object, ByVal Target As Range)是工作簿事件；

(ByVal Target As Range)是工作表事件。

是这样理解吗？

wangyan

ActiveWorkbook.SaveAs Filename:="c:\" & i & ".xls" 上面这句是啥意思？？

wangyan

For i = 8 To 10 'for...next 是连续建立新工作簿 Workbooks.Add '新建工作簿 Next

兰老师：按我的理解上述用语句新建的工作簿的名字应分别为：8.xls，9.xls和10.xls。但每次新建的工作簿名都向后顺延。即用For i = 8 To 10 所新建的工作簿的名字分别为：11.xls，12.xls和13.xls。为什么不一致？

谢谢！！

yigepure

应该不会错吧

private sub 按钮1_单击()

for a=8 to 10

workbooks.add

ativeworkbook.saveas filename:="c:\"& a &".xls"

next a

end sub

yyh740225

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

用程序为一个文件加个密码：

Workbooks.Open "c:\12.xls" Workbooks("12.xls").SaveAs Filename:="C:\12.xls", Password:="123" Workbooks("12.xls").Close

请教老师：

workbooks.****与activeworkbook.****的区别。

请赐教。

谢谢

兰色幻想

以下是引用wangyan在2004-10-18 15:00:00的发言： ActiveWorkbook.SaveAs Filename:="c:\" & i & ".xls" 上面这句是啥意思？？

就是把当前工作薄保存到C盘，然后根据i的值命名文件

兰色幻想

以下是引用yyh740225在2004-10-20 9:43:00的发言：

请教老师：

workbooks.****与activeworkbook.****的区别。

请赐教。

谢谢

workbooks是工作薄集合，指当前打开的所有工作薄，workbooks（"工作薄名称"）是特指工薄,activeworkbook是指当前选定的工薄即活动工作薄

hnymlzs

老师请继续!

excel我的家

[此贴子已经被作者于2004-10-20 23:57:23编辑过]

happy91

还是继续布置作业吧，应该熟悉、巩固一下，老师还是慢点，等等大家，我觉得很多人都需要这样