[已解决]用VBA代码实现展开收起数据

chmmm

需要写一个宏，点击一次按钮，将2~8行收起，再点击一次，显示2~8行。请问可以实现吗？先谢过各位高手了。

最佳答案

月排行榜 / 总排行榜

爱疯

2013-7-9 17:26

Sub a()
    Rows("2:8").RowHeight = IIf(Range("a2").Height = 0, 13.5, 0)
End Sub
求助.rar (15.98 KB, 下载次数: 171)

2013-7-9 17:26 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

Sub a()
    Rows("2:8").RowHeight = IIf(Range("a2").Height = 0, 13.5, 0)
End Sub
求助.rar (15.98 KB, 下载次数: 171)

2013-7-9 17:26 上传

点击文件名下载附件

evenalive

学习了！如果该表一直在填写，要求每次点击按钮时，收起已经填写的所有行，代码要怎么改呢？

爱疯

evenalive 发表于 2013-7-9 20:56
学习了！如果该表一直在填写，要求每次点击按钮时，收起已经填写的所有行，代码要怎么改呢？

Sub a()
    Dim r
    r = ActiveSheet.UsedRange.Rows.Count
    Rows("2:" & r).RowHeight = IIf(Range("a2").Height = 0, 13.5, 0)
End Sub

根据实际情况再说。
比如可以修改r

chmmm

爱疯 发表于 2013-7-9 22:43
Sub a()
    Dim r
    r = ActiveSheet.UsedRange.Rows.Count

谢谢，刚好需要改这个

evenalive

感谢版主的指导，这个确实很实用

mashmh

正好有用，非常感谢！

xzwdk

支持，收下！