Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Target.Value = "0" Then
Target.EntireRow.Hidden = True
End If
End If
End Sub
仅供参考
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And Target.Value = "0" Then
Target.Offset(0, -2).Resize(1, 2).Interior.ColorIndex = 4
End If
End Sub