0

ここに画像の説明を入力

false の行を非表示にしようとしています。

現在、私は持っています

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

2 に答える 2

2

範囲内の各セルを反復処理し、その値を次のようにテストしてみてください

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
于 2013-06-27T15:17:42.697 に答える