使用工作表macros来隐藏FALSE行

我试图隐藏那些错误的行。

目前我有

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Range("B10:B13") = False Then Target.EntireRow.Hidden = True End If End Sub 

Answer 1

尝试迭代范围中的每个单元格，并像这样testing它的值

 Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim c As Range For Each c In Range("B9:B13") If Not c.Value Then c.EntireRow.Hidden = True End If Next c End Sub 

编辑：我认为另一种方式，你可以实现你的结果是从图表中删除系列

 Dim n As Long With ChartObjects(1).Chart For n = .SeriesCollection.Count To 1 Step -1 With .SeriesCollection(n) If .Name = "" Then .Delete End If End With Next n End With 

Answer 2

 for i = 9 to 13 if range("B" & i) = "False" then Rows(i & ":" & i).EntireRow.Hidden = True end if next