一个隐藏特定行的操作方法

535535163 · 发表于 2009-3-13 15:59

当进入表2时执行，因为要打印表2的，谢谢！

LangQueS · 发表于 2009-3-13 15:47

原帖由 535535163 于 2009-3-13 15:41 发表
帮一下忙吧，自动隐藏行，自动恢复行的代码。

可能有多种做法：
1、当进入表2时执行
2、当修改表1任意单元时执行
3、打开或关闭文件时执行
4、按钮执行
其他多种 .............................

建议楼主综合考虑，方便工作，保持速度，领导满意，做个一目了然的问题附件......

LangQueS · 发表于 2009-3-13 16:03

请楼主验证一下：

Private Sub Worksheet_Activate()
Range("1:65536").EntireRow.Hidden = False '取消隐藏行
y = Columns(1).Find("*", , xlValues, , , 2).Row '第1列最后可见非空单元行号
For a = 2 To y '循环行，从第2行到A列最后有数据行
bb = Array("0", "")
For i = 0 To 1 ' 循环范围
If Range("c" & a).Value = i And Range("e" & a).Value = i And Range("f" & a).Value = i Then
Rows(a).EntireRow.Hidden = True '隐藏该行
End If
Next
Next
End Sub

535535163 · 发表于 2009-3-13 16:10

噢，我立即试一下。可以啊，多谢了！但要小心，输入空格键是不能隐藏的，可否再修改一下。不过这已经非常好了。再次说声，谢谢！

[ 本帖最后由 535535163 于 2009-3-13 16:30 编辑 ]

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

[求助] 一个隐藏特定行的操作方法