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

mingchi · 发表于 2009-3-12 09:23

想实现的效果是:
如果C2\E2\F2都为零,则隐藏2行,否则不隐藏.
3、4、5、6等行依次类推

不知道如何能够实现。
请高手指点，谢谢！

[ 本帖最后由 mingchi 于 2009-3-12 10:00 编辑 ]

LangQueS · 发表于 2009-3-12 09:24

隐藏A行？不明白。
建议楼主压缩上传Excel问题附件并加以说明，以便大家了解和解答。(编辑已发贴即可补充上传附件)

如何发表新话题和上传附件:
http://club.excelhome.net/thread-45649-1-1.html

发帖的技巧:
http://club.excelhome.net/thread-176339-1-1.html

mingchi · 发表于 2009-3-13 08:43

那个...我的意思是说为零为空都可以... 就是0 or 空

LangQueS · 发表于 2009-3-12 10:17

Sub 隐藏行()
y = Columns(1).Find("*", , xlValues, , , 2).Row '第1列最后可见非空单元行号
For a = 2 To y
If Range("c" & a).Value = "" And Range("e" & a).Value = "" And Range("f" & a).Value = "" Then
Rows(a).EntireRow.Hidden = True
End If
Next
End Sub

[ 本帖最后由 LangQueS 于 2009-3-12 10:29 编辑 ]

mingchi · 发表于 2009-3-12 10:01

不好意思，描述不太清，已上传了附件。多谢斑竹！

mingchi · 发表于 2009-3-12 10:34

没问题,运行的很好.

楼主能把程序给我这个新手解释一下吗?我好融会贯通一下~多谢!

LangQueS · 发表于 2009-3-12 10:46

代码外行的解释：

Sub 隐藏行()
y = Columns(1).Find("*", , xlValues, , , 2).Row '第1列最后可见非空单元行号
For a = 2 To y '循环行，从第2行到A列最后有数据行
If Range("c" & a).Value = "" And Range("e" & a).Value = "" And Range("f" & a).Value = "" Then '如果其中某行的C列、E列、F列都是空，则...
Rows(a).EntireRow.Hidden = True '隐藏该行
End If
Next
End Sub

LangQueS · 发表于 2009-3-12 10:46

资料参考：

★２５９个常用宏★ http://club.excelhome.net/dispbb ... replyID=&skin=0

mingchi · 发表于 2009-3-12 16:21

再问一个问题，

如果条件变成为空或者为0的话该怎么编？

LangQueS · 发表于 2009-3-12 19:09

原帖由 mingchi 于 2009-3-12 16:21 发表
再问一个问题，

如果条件变成为空或者为0的话该怎么编？

Sub 隐藏行()
y = Columns(1).Find("*", , xlValues, , , 2).Row '第1列最后可见非空单元行号
For a = 2 To y '循环行，从第2行到A列最后有数据行
If Range("c" & a).Value = 0 And Range("e" & a).Value = 0 And Range("f" & a).Value = 0 Then '如果其中某行的C列、E列、F列都是零，则...
Rows(a).EntireRow.Hidden = True '隐藏该行
End If
Next
End Sub

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

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