求教VBA通过选择条件，隐藏行

在工作表插入一个命令按钮CommandButton控件将以下代码复制粘贴:

Private Sub CommandButton1_Click()

Dim rng As Range

ApplicationScreenUpdating = False

If CommandButton1Caption = "隐藏" Then

For Each rng In Range("c2", [c65536]End(3))

If rng = "" Then rngEntireRowHidden = True

Next

CommandButton1Caption = "显示"

Else

CellsEntireRowHidden = False

CommandButton1Caption = "隐藏"

End If

ApplicationScreenUpdating = True

End Sub

请用下面代码，在工作表标签上点鼠标右键，从快捷菜单中选“查看代码”，调出该工作表的VBA模块，粘贴下面代码就行了。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If TargetAddress = "$A$1" Then

If TargetValue = "隐藏" Then

Rows("2:10")EntireRowHidden = True

Range("a1") = "显示2-10行"

Exit Sub

End If

If TargetValue = "显示2-10行" Then

Rows("2:10")EntireRowHidden = False

Range("a1") = "隐藏"

End If

End If

End Sub

以上就是关于求教VBA通过选择条件，隐藏行全部的内容，包括:求教VBA通过选择条件，隐藏行、求VBA代码，关于EXCEL隐藏行和取消隐藏的问题、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！