1

特定の基準を満たすセルのみがグラフに追加されるように、個々のセルをグラフに追加しようとしています。

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

個々のセルを追加するマクロを記録しても、記録されたマクロを実行してエラーが発生するまでグラフは機能します。

助けていただければ幸いです。

4

1 に答える 1