1

G5:G105x 軸を範囲内のデータに変更したい場合は、Chart 2これを VBA サブルーチンに入れます。

ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.SeriesCollection(1).XValues = "='Q1'!$G$5:$G$105"

固定の代わりに任意の範囲を持つことができるようにするにはどうすればよいですか$G$5:$G$105。私は使用しようとしました

ActiveChart.SeriesCollection(1).XValues = "='Q1'!Range("G5").Resize(I, 1)"

whereIはInteger、サブルーチンの前の部分で定義された変数です。

しかし、うまくいきません。

4

1 に答える 1

2

残念ながら、あなたの範囲"='Q1'!Range("G5").Resize(I, 1)"は文字列とコードの違法な組み合わせです。代わりにこの範囲を試してください: Range("Q1!G5").Resize(i, 1).

完全な例:

Option Explicit

Sub ChartTest()

    Dim i As Integer

    i = 2

    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveChart.SeriesCollection(1).XValues = Range("Q1!G5").Resize(i, 1)

End Sub
于 2012-09-05T09:25:43.310 に答える