2本ある折れ線グラフの範囲をVBAで更新したいと考えております。
excel2003を使っています。
グラフ1の中に系統がひとつなら以下の内容でうまくいきますが、2本ある場合どうすれば
良いか分からず困っております。
Sub サンプル()
Dim myPicture As StdPicture
Dim buf As String
Dim myR
With Worksheets("Sheet1")
myR = Application.WorksheetFunction.Count(Worksheets("Sheet1").Range("A5:A100"))
End With
row1 = "5"
row2 = myR
col1 = "A"
Sheets("Sheet2").Activate
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(col1 & row1 & ":" & col1 & row2 + 4), PlotBy:=xlColumns
End Sub
系統を増やした場合の書き方をどなたかお教え頂けませんか。
どうぞ、よろしくお願い致します。
No.1ベストアンサー
- 回答日時:
基本的なマクロは,次のように手がかりを得られます。
手順:
シート2に,2系列載せた折れ線グラフを描いておく
新しいマクロの記録を開始する
グラフの系列1を右クリックして,元のデータから系列タブで値欄のセル範囲を実際に書き換えてみる
続けて系列2についても元のデータの系列タブで新しいセル範囲に付け替えてみる
記録終了し,採取できたマクロを分析する
で。そこで記録されたvaluesプロパティのヘルプを確認し,使用例を参考にしてみると結局次のようなマクロでよい事が見えてきます。
作成例:
シート1のA列に「項目軸」のデータが並ぶ
B列に系列1の値データが並ぶ
C列に系列2の値データが並ぶ
いずれも4行目はタイトル行で,5行目から実データである
シート2にグラフ1が作成済みである。
sub macro1()
dim r as long
r = worksheets("Sheet1").range("B65536").end(xlup).row
with worksheets("Sheet2").chartobjects("グラフ 1").chart
.seriescollection(1).values = worksheets("Sheet1").range("B5:B" &r)
.seriescollection(2).values = worksheets("Sheet1").range("C5:C" &r)
.seriescollection(1).xvalues = worksheets("Sheet1").range("A5:A" & r)
end with
end sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) vbaのvlookup関数エラー原因を教えていただけないでしょうか。 3 2022/04/25 16:16
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:07
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Excel(エクセル) エクセル 値をコピペした時に、条件付き書式で塗られた背景色もペーストさせる 2 2023/04/05 17:21
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
至急!尿検査前日にオナニーし...
-
尿検査の前日は自慰控えたほう...
-
尿検査前日に自慰行為した時の...
-
首吊りどこ締めるの
-
射精をして1週間以内に尿検査を...
-
変な話しになります。尿検査で...
-
白血球が多いとどんな心配があ...
-
今朝、毎朝の習慣でオナニーし...
-
1日前の検尿
-
検便についてです。 便は取れた...
-
男です。昨日の午後3時くらいに...
-
勃起する時って痛いんですか? ...
-
EXCELで条件付き書式で空白セル...
-
腕を見たら黄色くなってる部分...
-
彼女のことが好きすぎて彼女の...
-
中出しをするとお腹が痛い・・・。
-
小数点以下を繰り上げたものを...
-
EXCELで式からグラフを描くには?
-
2つの数値のうち、数値が小さい...
-
値が入っているときだけ計算結...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
中出しをするとお腹が痛い・・・。
-
麻疹風疹の抗体検査結果につい...
-
エクセルでエラーが出て困って...
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
至急!尿検査前日にオナニーし...
-
納豆食べた後の尿の納豆臭は何故?
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
小数点以下を繰り上げたものを...
-
値が入っているときだけ計算結...
-
口の中に黒い血の塊
-
健否~書類の書き方~
-
甲状腺が腫れているが血液検査...
-
はしかの抗体検査は何科の病院...
-
テスターで断線を調べる方法教...
おすすめ情報