VBA Worksheet_Change如何隐藏其中具有特定值的行

Posted 2021-04-09

伙计们，你能帮我解决我的问题。我需要做的是制作代码，这将隐藏整行，例如，如果B10中的值将是= 100。

提前致谢

答案

尝试这样的事情

If Range("B10").Value = 100 Then
Range("B10").EntireRow.Hidden = True
End If

另一答案

我想我解决了我的问题。使用它（不确定是否有任何不必要的）：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long, c As Range

Application.ScreenUpdating = False
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
On Error Resume Next
For Each c In Range("B1:B" & LastRow) 
   If c.Value = 100 Then
        c.EntireRow.Hidden = True
    ElseIf c.Value <> 100 Then
        c.EntireRow.Hidden = False
    End If
Next
On Error GoTo 0
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub