[已解决]通过按钮隐藏显示行

li龙行天下

刚忘了上传附件件

最佳答案

月排行榜 / 总排行榜

爱疯

2015-11-16 21:27

Sub 隱藏()
    If TypeName(Selection) = "Range" Then Selection.EntireRow.Hidden = True
End Sub

Sub 顯示()
    Rows("3:" & Range("a65536").End(xlUp).Row).AutoFit
End Sub

2.rar (73.54 KB, 下载次数: 13)

2015-11-16 21:27 上传

点击文件名下载附件





是这样吗？

跳转到最佳答案楼层

freexun_zp

選中需要隱藏的單元格個  行或列  點擊顯示或隱藏就可以了

代碼如下
Sub 隱藏()

    Selection.Select
    Selection.EntireRow.Hidden = True

End Sub

Sub 顯示()

    Selection.Select
    Selection.EntireRow.Hidden = False

End Sub

freexun_zp

我電腦文件出錯  上傳不了文件了  自己轉換一下巨集

freexun_zp

好了

文轩馨婷

问题没说清楚，在什么条件下隐藏？

yuan1987

看看行吗

li龙行天下

谢谢老师帮忙。我是想实现在J列有任何数据输入后，点击“隐藏”就隐藏相关行，点击“显示”就能显示相关行。这样方便输入与查看。也就是能实现待输入的一行总是在最上面，但在你想要查看隐藏的数据时，点一下就都显示出来。但你今天写的代码的好象没有成功，实现不了相关操作。麻烦你辛苦下改下，谢谢你。

爱疯

Sub 隱藏()
    If TypeName(Selection) = "Range" Then Selection.EntireRow.Hidden = True
End Sub

Sub 顯示()
    Rows("3:" & Range("a65536").End(xlUp).Row).AutoFit
End Sub

2.rar (73.54 KB, 下载次数: 13)

2015-11-16 21:27 上传

点击文件名下载附件





是这样吗？

li龙行天下

谢谢爱疯老师的帮助，您是目前为止做得最好的，基本满足我的要求。就是点击“隐藏”时不能全部隐藏，需要把鼠标停留在需要隐藏的行上点击“隐藏”才有效，而且只能一行行的隐藏，有点不方便。不过“显示”按钮能实现一次显示全部的功能。如果有时间，麻烦您再修改下，再次感谢您的热心帮助。

爱疯

1）全部隐藏，是指怎样的情况？



2）不需要把光标停留在需要隐藏的行上，只要选取完毕，就可以了。

Selection.EntireRow.Hidden = True
这句是一次性完成的（隐藏选取区域所在的行），并不是一行行的隐藏。