excel vba根据条件隐藏当前行

excel vba根据条件隐藏当前行

先看下例子表格是什么样的，有利于更加方便的介绍怎么隐藏行。



隐藏行方法一：选中要隐藏的行，一行也可以，多行也行，一次隐藏多行也是可以的，现在说隐藏2,3行，先选中2，3行，然后右键，点击隐藏即可。



隐藏行方法二：还是按照方法一中的步骤，选中要隐藏的行，然后点击右上角的格式，再将鼠标放到隐藏和取消隐藏上，点击隐藏行，即可。



隐藏后的效果图，2，3行不见了。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 200
If Cells(1, i) = 5 Then
Rows(Cells(1,i).Row).Hidden = True
Else
Rows(Cells(1,i).Row).Hidden = False
End If
Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 200
If Cells(i,1) = 5 Then
rows(i).EntireRow.Hidden = True
Else
rows(i).EntireRow.Hidden = False
End If
Next
End Sub
另：用Worksheet_Change会比Worksheet_SelectionChange好
Private Sub Worksheet_Change(ByVal Target As Range)
r = Target.Row
If Cells(r, 1).Value = 5 Then
Rows(r).EntireRow.Hidden = True
End If
End Sub

必须要逆循环！Sub test()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 200 To 1 Step -1
        If Cells(i, 1) < 5 Then
            Rows(i).Hidden = True
        Else
            Rows(i).Hidden = False
        End If
    Next i
    Application.ScreenUpdating = True
End Sub


如果要空值不隐藏，就用下面的代码：
Sub test()
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 200 To 1 Step -1
        If Cells(i, 1) < 5 And Not IsEmpty(Cells(i, 1)) Then
            Rows(i).Hidden = True
        Else
            Rows(i).Hidden = False
        End If
    Next i
    Application.ScreenUpdating = True
End Sub
P.S. 这个无需用到事件！




hx95华夏联盟