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

wuaza

Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False For Each aa In Range("d1:d100") If aa = 0 Then aa.EntireRow.Hidden = True End If Next Application.ScreenUpdating = True End Sub

以上代码中为什么没有出现系统给定的target变量，For Each aa In Range("d1:d100")改成For Each target In Range("d1:d100")行吗？为什么？

兰色幻想

以下是引用wuaza在2004-10-17 8:41:00的发言：

Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False For Each aa In Range("d1:d100") If aa = 0 Then aa.EntireRow.Hidden = True End If Next Application.ScreenUpdating = True End Sub

以上代码中为什么没有出现系统给定的target变量，For Each aa In Range("d1:d100")改成For Each target In Range("d1:d100")行吗？为什么？

For Each target In Range("d1:d100")可以

target 是系统提供的单元格变量，AA是自定义的单元格变量，二者没有冲突，都可以用。

wuaza

明白了，谢谢老师指教。

whwin98

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

而OPEN属性则是打开工作薄

比如：

workbooks.open filename:="c:\2.xls"

请问兰老师：

打开工作薄是否支持中文路径？

兰色幻想

以下是引用whwin98在2004-10-17 11:34:00的发言：

请问兰老师：

打开工作薄是否支持中文路径？

支持！

wuaza

下一讲讲range,cell的话估计会更热闹，时间也会持续更长，期待中。

yigepure

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub 兰老师.这段代码只对SHEET内的单元格事件起作用呀.那对于双击列标右边调整列宽,还是不起作用.那怎么才能屏蔽SHEET内所有的双击事件呢.

兰色幻想

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

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub 兰老师.这段代码只对SHEET内的单元格事件起作用呀.那对于双击列标右边调整列宽,还是不起作用.那怎么才能屏蔽SHEET内所有的双击事件呢.

SheetBeforeDoubleClick是针对工作表中的单元格的，应该对列标的双击事件不起作用，怎样屏蔽所有双击事件，没用过，有待研究[em06]

yigepure

谢谢,兰老师的回复,真是期待这个课题的实现呀.

lpdcd

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

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

96nWbmrx.rar (4.38 KB, 下载次数: 50)

2004-10-18 08:22 上传

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

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