[已解决]请高手帮我写一下代码

758iesfhg

我想让工作表格里的偶数行隐藏起来,请帮我写一下代码然后用在控件按钮按上,按一下就隐藏起来,显示出来我知道怎么搞,就是隐藏不会,请高手帮帮忙....

最佳答案

月排行榜 / 总排行榜

爱疯

2009-10-15 11:17

真要把表格中所有（1-65536）的偶数行都隐藏吗？

还是要把表中，某个区域的偶数行隐藏？

Sub 按钮1_Click()
    Dim i As Long
    Dim x As Long
    Dim y As Long

    x = 1       '起止行的行号
    y = 65536   '终止行的行号
   
    For i = x To y
        If i Mod 2 = 0 Then
            Rows(i).Hidden = True
        End If
    Next i
End Sub

这是最原始、最不动脑筋的方法[em04]

跳转到最佳答案楼层

爱疯

真要把表格中所有（1-65536）的偶数行都隐藏吗？

还是要把表中，某个区域的偶数行隐藏？

Sub 按钮1_Click()
    Dim i As Long
    Dim x As Long
    Dim y As Long

    x = 1       '起止行的行号
    y = 65536   '终止行的行号
   
    For i = x To y
        If i Mod 2 = 0 Then
            Rows(i).Hidden = True
        End If
    Next i
End Sub

这是最原始、最不动脑筋的方法[em04]

安贤

学习学习

zsd5237

学习[em02][em02]