前提・実現したいこと
エクセルでシート毎にあるデータをもとに散布図のグラフを二つずつ作成するコードの作成を目指しています。一つ目のグラフはA列をX軸、B列をy軸に使用しているもので、二つめのグラフはC列をX軸、D列をY軸に使用しているものです。
一枚目は想定通りのグラフが得られますが、2枚目のシートからY軸の値をB列からF列までを指定してしまい、作りたいものが作れておりません。
発生している問題・エラーメッセージ
うまくいってるシート一枚目(二つ目のグラフはグラフと重なってるため画像では見れません)
該当のソースコード
VBA
1Sub グラフ化() 2' 3' グラフ化 Macro 4' 5 6 Dim シート番号 As Integer 7 Dim 処理シート As Worksheet 8 9 10 For シート番号 = 1 To Worksheets.Count 11 Set 処理シート = Worksheets(シート番号) 12 処理シート.Shapes.AddChart2(240, xlXYScatter).Select 13 ActiveChart.SetSourceData Source:=処理シート.Range("$A$1:$B$1024") 14 15 処理シート.Shapes.AddChart2(240, xlXYScatter).Select 16 ActiveChart.SetSourceData Source:=処理シート.Range("$C$1:$D$1024") 17 18 Next シート番号 19 20 21 22End Sub
試したこと
rangeをCell表記に変えるなどVBA勉強し始めて3日程度の私でもできる処理は試してみましたがよくわかりませんでした。
補足情報(FW/ツールのバージョンなど)
windows10
Excel 2019
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2021/02/28 12:40