[已解决]求行按条件隐藏与取消的代码，急！！

过江龙

附件中A列是人名，当启动附件是凡是有人名的行全部隐藏，当启动查询窗口时，按查询窗口的人名显示该行（即取消该行的隐藏），请教老师们，这样的代码该怎样写呢？先谢谢了！ 1rv2snaR.rar (4.15 KB, 下载次数: 20)

2010-1-14 09:49 上传

点击文件名下载附件
求行按条件隐藏与取消的代码，急！！

最佳答案

月排行榜 / 总排行榜

枯禅

2010-1-14 10:35

多了一个row

Sub CX()
Application.ScreenUpdating = False
Sheet1.Rows("8:94").Select
    Selection.EntireRow.Hidden = False
With Sheet1
x = InputBox("请输入姓名", "查询")
    For Each c In Range("A8:A" & [a65536].End(xlUp).Row)
        If c <> x Then
            c.EntireRow.Hidden = True
        End If
    Next c
End With
Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

和气生财

建议你上传实际附件，以便调试。

OK后，你可以删除附件（要求回复着也删除），如果信息保密的话。

过江龙

Sub CX()
Application.ScreenUpdating = False
Sheet1.Rows("8:94").Select
    Selection.EntireRow.Hidden = False
With Sheet1
x = InputBox("请输入姓名", "查询")
    For Each c In Range("A8:A" & [G65536].End(xlUp).Row)
        If c <> x Then
            c.Row.EntireRow.Hidden = True
        End If
    Next c
End With
Application.ScreenUpdating = True
End Sub
运行到“c.Row.EntireRow.Hidden = True”的时候就不能运行了，不知何故？

[此贴子已经被作者于2010-1-14 10:25:44编辑过]

枯禅

多了一个row

Sub CX()
Application.ScreenUpdating = False
Sheet1.Rows("8:94").Select
    Selection.EntireRow.Hidden = False
With Sheet1
x = InputBox("请输入姓名", "查询")
    For Each c In Range("A8:A" & [a65536].End(xlUp).Row)
        If c <> x Then
            c.EntireRow.Hidden = True
        End If
    Next c
End With
Application.ScreenUpdating = True
End Sub

过江龙

谢谢枯禅的大力帮助！问题解决了！