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

LangQueS

Sub 隐藏行()
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

如附件，能否加上若Sheet1的C2、E2、F2其中一个恢复数值，Sheet2的隐藏行可以恢复可见的代码呢？
01.rar (7.99 KB, 下载次数: 9)

2009-3-13 11:10 上传

点击文件名下载附件

LangQueS

原帖由 535535163 于 2009-3-13 11:10 发表
如附件，能否加上若Sheet1的C2、E2、F2其中一个恢复数值，Sheet2的隐藏行可以恢复可见的代码呢？
474259

简单的方法：全部取消隐藏，重新判断即可。

当然也可以用Else (否则)来判断。

535535163

给头头的报表没有空行他肯定满意啦。万一隐藏了某一行，我忘记了取消隐藏，而头头是不会去取消隐藏的，那我就惨了。

[ 本帖最后由 LangQueS 于 2009-3-13 11:32 编辑 ]

LangQueS

原帖由 535535163 于 2009-3-13 11:30 发表
给头头的报表没有空行他肯定满意啦。万一隐藏了某一行，我忘记了取消隐藏，而头头是不会去取消隐藏的，那我就惨了。

可以做成随单元录入，自动隐藏行的。

但是！......既然行已经隐藏了，你是如何在其单元中录入数据的？

535535163

原帖由 LangQueS 于 2009-3-13 11:33 发表



可以做成随单元录入，自动隐藏行的。

但是！......既然行已经隐藏了，你是如何在其单元中录入数据的？

如附件，Sheet2的数据等于Sheet1的数据，而Sheet1的数据是每天都要更新的，所以一不小心就有这惨字。

LangQueS

原帖由 535535163 于 2009-3-13 14:59 发表

如附件，Sheet2的数据等于Sheet1的数据，而Sheet1的数据是每天都要更新的，所以一不小心就有这惨字。

既然Sheet2的数据等于Sheet1的数据，那还要Sheet2做什么？

535535163

这隐藏特定行给的启示：为了给头头的报表没有空行。

LangQueS

原帖由 535535163 于 2009-3-13 15:29 发表
这隐藏特定行给的启示：为了给头头的报表没有空行。

直接将表一有效的数据行动态到表2就可以了吧

535535163

帮一下忙吧，自动隐藏行，自动恢复行的代码。