特定の基準を満たすセルのみがグラフに追加されるように、個々のセルをグラフに追加しようとしています。
ChartXDataString = "="
ChartFuelDriveDataString = "="
For i = 0 To 5
If Range("AP" & FirstDataRow + i) <> "0" Then
If i = 5 Then
ChartXDataString = ChartXDataString & "'RAW FleetData'!$A$" & (FirstDataRow + i)
ChartFuelDriveDataString = ChartFuelDriveDataString & "'RAW FleetData'!$AP$" & (FirstDataRow + i)
Else
ChartXDataString = ChartXDataString & "'RAW FleetData'!$A$" & (FirstDataRow + i) & ";"
ChartFuelDriveDataString = ChartFuelDriveDataString & "'RAW FleetData'!$AP$" & (FirstDataRow + i) & ";"
End If
End If
Next i
ActiveSheet.ChartObjects("gFMP_TotalFuelLiters").Activate
ActiveChart.SeriesCollection(1).XValues = ChartXDataString
ActiveChart.SeriesCollection(1).Values = ChartFuelDriveDataString
コードを実行すると、Excel で次のエラーがスローされます。Run-time error '1004': Application-defined or object-defined error.
次の行で行います。 ActiveChart.SeriesCollection(1).XValues = ChartXDataString
個々のセルを追加するマクロを記録しても、記録されたマクロを実行してエラーが発生するまでグラフは機能します。
助けていただければ幸いです。