0

a の値は次のSeriesCollectionように設定できます。

ActiveChart.SeriesCollection(1).Values = "='Sheet1'!$F$3:$F$403"

変更するために文字列を知りたいのですが、バリアントとしてのみ取得でき、文字列に変換することはできません

Dim values As Variant
Dim valuesStr As String
values = ActiveChart.SeriesCollection(m).Values
valueStr = Cstr(ActiveChart.SeriesCollection(m).Values) ' fails!

私は何を間違っていますか？

4

1 に答える 1

1

これを試して：

valueStr = ActiveChart.SeriesCollection(m).Formula

次のような文字列が返されます。

=SERIES("series_name",,Sheet1!$A$1:$A$4,1)

次に、いくつかの文字列関数を使用して、値の範囲のアドレスを解析できるようにする必要があります。

それ以外の場合は、ジョンの提案に従って、次のことを行います。

Dim values as Variant
Dim v as Variant
values = ActiveChart.SeriesCollection(m).Values
For each v in values
    'Do something to the values here...'
Next
于 2013-04-15T13:54:44.027 に答える