0

ピボット チャートのチャート値の 1 つのみに対して永久トレンドラインを作成しようとしています。このためのマクロを作成しましたが、for ループの if-else ステートメントが無視されているようです。

Moduel1 の私のコードは次のとおりです。

Sub AddTrendLine()
Dim mySeriesCol As SeriesCollection

Set mySeriesCol = ActiveSheet.ChartObjects.Chart.SeriesCollection

For i = 1 To mySeriesCol.Count
    If mySeriesCol(i).Name <> "Actual" & mySeriesCol(i).Trendlines.Count > 0 Then
        mySeriesCol(i).Trendlines.Delete
    ElseIf mySeriesCol(i).Name = "Actual" & mySeriesCol(i).Trendlines.Count = 0 Then
        mySeriesCol(i).Trendlines.Add
End If
Next
End Sub

そして、これがSheet2の私のコードです:

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Call AddTrendLine
End Sub

ここに私が得ているものがあります:

これが私が得ているものです

これが私が見たいものです:

ここに私が見たいものがあります

アドバイスをいただければ幸いです。

4

2 に答える 2