2017-07-10 28 views
0

"Define range based on the value of another cell"に基づいて、グラフの範囲を更新する柔軟なマクロを作成しようとしています。このグラフは、両方の座標を固定列(文字)で更新する必要があります。VBA:2つのセル値に基づく設定範囲(グラフ)

問題は、私は終わりを定義することしかできないということです。開始ではなく、この柔軟な(ユーザー入力)行入力フィールドはどのように作成する必要がありますか?最初のものは私が提案したものですが、それは動作しません。他のものは動作しますが、開始点ではなく終了点を定義するだけです。

Sub Example() 
' 
' 

    Dim Cval As Variant 
    Dim Dval As Variant 
    Cval = Sheets("Settings").Range("C30").Value 
    Dval = Sheets("Settings").Range("C31").Value 

    Sheets("Chart-16Q1-18Q4").Select 
    ActiveChart.ChartArea.Select 
    ActiveChart.PlotArea.Select 

    ActiveChart.SeriesCollection(1).Values = "=Calculation_sheet!$C$" & Cval ":$C$" & Dval 
    ActiveChart.SeriesCollection(2).Values = "=Calculation_sheet!$D$5:$D$" & Dval 
    ActiveChart.SeriesCollection(3).Values = "=Calculation_sheet!$F$5:$F$" & Dval 
    ActiveChart.SeriesCollection(4).Values = "=Calculation_sheet!$G$5:$G$" & Dval 
    ActiveChart.SeriesCollection(5).Values = "=Calculation_sheet!$H$5:$H$" & Dval 
    ActiveChart.SeriesCollection(6).Values = "=Calculation_sheet!$M$5:$M$" & Dval 

End Sub 

答えて

0

推奨される方法が有効です。 &を忘れてコンパイルエラーが発生しました:

ActiveChart.SeriesCollection(1).Values = "=Calculation_sheet!$C$" & Cval & ":$C$" & Dval 
'                  ^^^ 
+0

ありがとう!私はそんなに愚かな気がする。私はそれを忘れてしまった。あなたの助けが大変ありがとう! – Jan

関連する問題