ピボット チャートのチャート値の 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
ここに私が得ているものがあります:
これが私が見たいものです:
アドバイスをいただければ幸いです。