[[20210719162051]]　『グラフ「データの選択」の選択範囲をセルの値から』（ロクシ）　ページの最後に飛ぶ

『グラフ「データの選択」の選択範囲をセルの値から変動できるようにしたい』（ロクシ）

お世話になります

状況として毎回データの件数によって
散布図の引用範囲を指定し直す必要がみられる状況があります。
これをセルの値から選択範囲を変動指定できるようにしたいと考えます。

以下のようなVBAをマクロの記録を使用して作ったものを作り変えてみたのですが
エラーとなってしまいます。
どなたかご意見いただけませんでしょうか。

■マクロ記録で得た結果
－－－－－－－－
Sub グラフのデータの選択領域をセルの値を用いて変動させる()

 v = Worksheets("sheet1").Range("B1").Value

    Sheets("sheet2").Select
    ActiveSheet.ChartObjects("グラフ 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.FullSeriesCollection(1).XValues = "='sheeta1'!$G$3:$G$47"　
    ActiveChart.FullSeriesCollection(1).Values = "='sheeta1'!$Q$3:$Q$47"

End Sub

■これに対して以下が自身が設定してみたものです
－－－－－－－－－－－－－－
Sub 散布図の調整を自動化する()

 v = Worksheets("2.施設報告用シート_詳細").Range("B1").Value

    Sheets("1.施設報告用シート_概要").Select

    ActiveSheet.ChartObjects("グラフ 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.FullSeriesCollection(1).XValues = "='2.施設報告用シート_詳細'!Range(Cells(7,3),Cells(7,v+3))"　’この部分でエラーがでます。
    ActiveChart.FullSeriesCollection(1).Values = "='2.施設報告用シート_詳細'!Range(Cells(17,3),Cells(17,v+3))"

End Sub
宜しくお願い致します

＜使用 Excel：Excel2013、使用 OS：unknown ＞

文字列として取得した値を数値として処理しようとしているからだと思います。

ActiveChart.FullSeriesCollection(1).XValues = "='2.施設報告用シート_詳細'!Range(Cells(7,3),Cells(7,v+3))"

修正前：v+3
修正後：CLng(v)+3

これでうまくいくはず？
（いっぬ） 2021/07/19(月) 16:51

ん？いやそもそも文字列になってる・・・
（いっぬ） 2021/07/19(月) 16:56

失礼しました。
右辺のRangeやCellsが関数ではなく、ただの文字列になっていました。
これでうまくいくと思います。

修正前：ActiveChart.FullSeriesCollection(1).XValues = "='2.施設報告用シート_詳細'!Range(Cells(7,3),Cells(7,v+3))"
修正後：ActiveChart.FullSeriesCollection(1).XValues = "='2.施設報告用シート_詳細'!" & Cells(7,3).Address & ":" & Cells(7,CLng(v)+3).Address
（いっぬ） 2021/07/19(月) 17:06

 文字列にしなくてもRangeオブジェクトでも出来ると思うが
（どん） 2021/07/19(月) 17:18

いっぬ様！エラーから抜けることができました！
こんな表記の方法があるだなんて本当に驚きました。
CLng　というものと.addressいうもの、うまく＆で繋手段など知らない方法ばかりでした。
個別に検索して意味を調べたいと思います。

本当にありがとうございました！
（ロクシ） 2021/07/19(月) 17:22

ロクシさん
上手くいってよかったです。

どんさん
変数をRange内で使用していなければできると思います。
変数vを認識できずにエラーになったのかなと。
（いっぬ） 2021/07/19(月) 17:25

いっぬ様　素敵な回答ありがとうございました
（ロクシ） 2021/07/19(月) 18:53

コメント返信：

[ 一覧(最新更新順) ]

[[20210719162051]] 『グラフ「データの選択」の選択範囲をセルの値から』（ロクシ） ページの最後に飛ぶ

[[20210719162051]]　『グラフ「データの選択」の選択範囲をセルの値から』（ロクシ）　ページの最後に飛ぶ