求一个宏赋予按钮后隐藏行

lfh760322

求个宏，点了按钮后，K列中=0的行全隐藏掉，等于1的不隐藏
求隐藏宏.rar (5.49 KB, 下载次数: 11)

2010-2-28 22:11 上传

点击文件名下载附件

cflood

Sub a()
Dim rgn As Range
For i = 1 To Range("K65536").End(xlUp).Row
If Cells(i, 11) = 0 Then
    If rgn Is Nothing Then
        Set rgn = Cells(i, 1)
    Else
        Set rgn = Union(rgn, Cells(i, 1))
    End If
End If
Next i
If Not rgn Is Nothing Then rgn.EntireRow.Hidden = True
End Sub

lu_zhao_long

原帖由 lfh760322 于 2010-2-28 22:11 发表
求个宏，点了按钮后，K列中=0的行全隐藏掉，等于1的不隐藏
672199

楼主试试看！

鱼求雨

求隐藏宏.rar (13.76 KB, 下载次数: 14)

2010-2-28 22:37 上传

点击文件名下载附件

jiulongpo

Dim mr As Range
k = Sheet1.Range("K1").End(xlDown).Row

For Each mr In Sheet1.Range("K1:K" & k)
   If mr = 0 Then mr.EntireRow.Hidden = Not mr.EntireRow.Hidden
Next mr

lfh760322

原帖由 cflood 于 2010-2-28 22:30 发表
Sub a()
Dim rgn As Range
For i = 1 To Range("K65536").End(xlUp).Row
If Cells(i, 11) = 0 Then
    If rgn Is Nothing Then
        Set rgn = Cells(i, 1)
    Else
        Set rgn = Union(rgn, Cells ...

Sub a()

    Rows("1:907").Select
    Selection.EntireRow.Hidden = False
    Range("A1").Select
Dim rgn As Range
For i = 1 To Range("K907").End(xlUp).Row
If Cells(i, 11) = 0 Then
    If rgn Is Nothing Then
        Set rgn = Cells(i, 1)
    Else
        Set rgn = Union(rgn, Cells(i, 1))
    End If
End If
Next i
If Not rgn Is Nothing Then rgn.EntireRow.Hidden = True
End Sub
我修改了下，为什么后面的不执行了，想不明白啊，因为隐藏后，数据一有变化，就要重新进行隐藏，所以要先取消所有的隐藏后再进行新的隐藏

[ 本帖最后由 lfh760322 于 2010-2-28 23:08 编辑 ]

lfh760322

知道是怎么回事了，For i = 1 To Range("K907").End(xlUp).Row，改成For i = 1 To Range("K908").End(xlUp).Row就可以了，

ICEGo

求教大神帮助：
1.按PMP按钮时候PME对应的行和列自动隐藏
2.按PME按钮的时候PMP对应的行和列自动隐藏
3.增加一个对比按钮的时候，按一下全部显示