[已解决]如何用VB实现行隐藏

YUFQ

我有一个表，要求当E列的值为零时，该行将不显示。请教如何通过VB来实现，谢谢！

最佳答案

月排行榜 / 总排行榜

zyouong

2012-12-28 14:37

前100行有效：


Sub Macro1()
Dim i
For i = 1 To 100
If Cells(i, 5) = 0 Then

    Rows(i).Select
    Selection.EntireRow.Hidden = True
    End If
    Next
End Sub

跳转到最佳答案楼层

zyouong

E列的值为0隐藏，原先隐藏了想再输入数据怎么办？，不知道你这么做是什么目的。

zyouong

前100行有效：


Sub Macro1()
Dim i
For i = 1 To 100
If Cells(i, 5) = 0 Then

    Rows(i).Select
    Selection.EntireRow.Hidden = True
    End If
    Next
End Sub

YUFQ

谢谢楼主的帮助，可以实现刚才的功能。但是发下个问题，el列的值为零时隐藏了，可是当该列值改变不为零时，却不显示了。请教如何实现当一列的值为零时隐藏，不为零时也能显示。