🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
Windows 10

Windows 10は、マイクロソフト社がリリースしたOSです。Modern UIを標準画面にした8.1から、10では再びデスクトップ主体に戻され、UIも変更されています。PCやスマホ、タブレットなど様々なデバイスに幅広く対応していることが特徴です。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

2190閲覧

エクセルでシート毎のグラフの作成

ikene

総合スコア2

Windows 10

Windows 10は、マイクロソフト社がリリースしたOSです。Modern UIを標準画面にした8.1から、10では再びデスクトップ主体に戻され、UIも変更されています。PCやスマホ、タブレットなど様々なデバイスに幅広く対応していることが特徴です。

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2021/02/28 04:35

前提・実現したいこと

エクセルでシート毎にあるデータをもとに散布図のグラフを二つずつ作成するコードの作成を目指しています。一つ目のグラフは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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

ActiveChartが返すグラフが1枚目のシートにあるグラフに固定されたままだからですね。
1枚目のシートの二つめのグラフ以降は、ずっとそれがActiveChartになっています。

Set 処理シート = Worksheets(シート番号) の後に
処理シート.Activate とすれば希望の動作になると思います。

投稿2021/02/28 10:04

morisame

総合スコア18

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

ikene

2021/02/28 12:40

うまくいくことができました。本当にありがとうございました。 shapes.addchart2の前の処理シート.は意味を成していないということなのですね。勉強になりました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問