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

yigepure · 发表于 2004-10-16 20:57

哦.老师布个作业来做吧.综合一下前几讲的

兰色幻想 · 发表于 2004-10-16 20:59

以下是引用yigepure在2004-10-16 20:57:00的发言：

哦.老师布个作业来做吧.综合一下前几讲的

好的

yigepure · 发表于 2004-10-16 21:01

我想检验一下我这几天的学习成绩

兰色幻想 · 发表于 2004-10-16 21:21

我刚在程序版回答了个问题，就是如何自动隐藏D列为0的行，这里要求自动隐藏D1：D100中为0的行。

tingming · 发表于 2004-10-16 21:56

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

请大侠详解一下红字的地方，谢谢！！

yigepure · 发表于 2004-10-16 22:02

兰老师是已经存在的数据,还是随自已输入的数而发生的呢

yigepure · 发表于 2004-10-16 22:15

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) For Each a In Range(Cells(1, 4), Cells(100, 4)) If a = 0 And a <> "" Then a.EntireRow.Hidden = True End If Next End Sub

终于做出来了

yigepure · 发表于 2004-10-16 22:21

这是我一开始编的代码

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) For Each a In Range(Cells(1, 4), Cells(100, 4)) If a = 0 And a <> "" Then a.EntireRow.Select Selection.Visible = False End If Next End Sub

谈谈我的两点误区

1\我的事件声明错误.这与我开始的想法有关.我总认为这是单元格选定事件的改变

2\与声明的对象不符.visible不适用于单元格.

看来我还是差的太远了.还是要多多学习呀

yigepure · 发表于 2004-10-16 22:25

后来利用录制宏才找到隐藏单元格的代码.真是一个字"差"呀

兰老师关于你那段代码;这个是什么意思呀

Application.ScreenUpdating = False

yigepure · 发表于 2004-10-16 22:30

找到了说明

ScreenUpdating 属性

请参阅应用于示例特性

如果屏幕更新功能是打开的，则该值为 True。Boolean 类型，可读写。

说明

关闭屏幕更新可加快宏的执行速度。这样将看不到宏的执行过程，但宏的执行速度加快了。

当宏结束运行后，请记住将 ScreenUpdating 属性设回到 True。

		自动登录	找回密码
密码			免费注册