![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
A列:X軸(日付)
H列:Y軸(値)
といったようなグラフを作成するにはどのようなソースで組めばよいのでしょうか?
現在は以下のようなソースまで組めます。
あとは、A列の日付をX軸に設定するだけなのですが、コーディングがわかりません。
---------------------------------------------------------------
Dim chart1 As Chart
Set chart1 = Charts.Add
'H列グラフ化
chart1.SetSourceData Worksheets("Sheet1").Range(Cells(ROWINI, COLRUI), Cells(iend, COLRUI))
chart1.ChartType = xlLineStacked
chart1.HasLegend = False
---------------------------------------------------------------
どなたかアドバイスいただければ幸いです。
No.1ベストアンサー
- 回答日時:
>あとは、A列の日付をX軸に設定するだけ...
この手作業を[マクロの記録]すればある程度は判ります。
>chart1.SetSourceData Worksheets("Sheet1").Range(Cells(ROWINI, COLRUI), Cells(iend, COLRUI))
これを
With Worksheets("Sheet1")
chart1.SetSourceData .Range(.Cells(ROWINI, COLRUI), .Cells(iend, COLRUI))
chart1.SeriesCollection(1).XValues = .Range(.Cells(ROWINI, 1), .Cells(iend, 1))
End With
こんな感じに変更すれば良いです。
.Cells(ROWINI, COLRUI)が項目名だったら、.Cells(ROWINI, 1)は.Cells(ROWINI + 1, 1)としたほうが良いかも。
もしくは、最初にグラフ元範囲をRange型変数にSetします。
Dim rng As Range
With Worksheets("Sheet1")
With .Range(.Cells(ROWINI, COLRUI), .Cells(iend, COLRUI))
Set rng = Union(.Cells, .Offset(, -7))
End With
End With
With Charts.Add
.ChartType = xlLineStacked
.SetSourceData rng
.HasLegend = False
End With
Set rng = Nothing
こんな感じ。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- JavaScript GoogleChart 階層ごとのブロックの長さを個別に設定したい 1 2022/07/06 14:27
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) Sheet1をフィルターで「りんご」を抽出し、Sheet2へ地域を貼り付ける下記マクロを変更して S 2 2022/12/11 03:01
- Excel(エクセル) VBA でvlookup エラーなどは削除したい 8 2022/12/30 04:03
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
グラフの範囲指定をVBAで可変にしたい
その他(Microsoft Office)
-
グラフの「項目軸ラベルに使用」をVBAで
Visual Basic(VBA)
-
VBA(excel)でグラフのデータ範囲の取得
その他(Microsoft Office)
-
-
4
エクセル2010 VBA Date型のグラフについて
Access(アクセス)
-
5
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
6
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
7
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
VBAを使って検索したセルをコピ...
-
Cellsのかっこの中はどっちが行...
-
Excelで、あるセルの値に応じて...
-
VBAのFind関数で結合セルを検索...
-
Changeイベントでの複数セルの...
-
VBマクロ 色の付いたセルを...
-
複数処理 Worksheet_Change(ByV...
-
VBAで、特定の文字より後を削除...
-
【VBA】2つのシートの値を比較...
-
vba 2つの条件が一致したら...
-
【Excel VBA】 B列に特定の文字...
-
マクロ 最終列をコピーして最終...
-
エクセル 2つの表の並べ替え
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
IIF関数の使い方
-
VBA UserFormからの転記で
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBA指定行削除
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
VBA 何かしら文字が入っていたら
-
マクロ 最終列をコピーして最終...
-
エクセルについて
-
【VBA】2つのシートの値を比較...
-
URLのリンク切れをマクロを使っ...
-
データグリッドビューの一番最...
-
Changeイベントでの複数セルの...
-
空白セルをとばして転記
-
rowsとcolsの意味
-
エクセルVBAにて =A1=B1とすれ...
おすすめ情報