EXCEL 小技・テクニック集

EXCEL 複数のグラフを一括作成/マクロ(VBA)で大量グラフを自動作成するツール!

EXCEL 複数のグラフを一括作成/マクロ(VBA)で大量グラフを自動作成するツール!

EXCELのグラフ作成を一括で大量に!マクロ(VBA)を使って作業効率化

EXCELで複数のグラフって、一つ一つ作るの面倒ですよね。
しかもそれが大量に作らなければならないときは地獄です。。

グラフを大量に作るのってどの業界でもよくあるらしいんですが、依頼された身になるとゾッとしますね。。

さて、今回はそんな人たちのために
ボタンでぽちっとすると、自動で大量のグラフを一括で作ってしまうマクロ(VBA)を作ってみました。

大量グラフ一括作成マクロ

EXCEL大量グラフ一括作成マクロ1

A:C列はグラフを作成するための元データになります。
今回作ったのは、会社ごとの月別のコスト消化額をグラフ化するというものです。

そしてこのボタンを押すと…

EXCEL大量グラフ一括作成マクロ2

なんと別のシートに各会社の月別のコストが
出力されているのです!魔法のボタン…
さて、このボタンの中身(VBAコード)はコチラです。

Sub graph_create()
'グラフシートが既にあれば、削除する
For Each シート In Worksheets
If シート.Name = "graph" Then
Application.DisplayAlerts = False
シート.Delete
Application.DisplayAlerts = True
Exit For
End If
Next シート
'グラフシート作成
Worksheets.Add
ActiveSheet.Name = "graph"
Sheets("data").Activate
'A列昇順 B列昇順
last_row = Range("A1").End(xlDown).Row
ActiveWorkbook.Worksheets("data").Sort.SortFields.Add Key:=Range("A2:A" & last_row), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("data").Sort.SortFields.Add Key:=Range("B2:B" & last_row), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("data").Sort
.SetRange Range("A1:C" & last_row)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
company_flag = 0
start_row = 2
For i = 2 To last_row
If Cells(i + 1, 1) <> Cells(i, 1) Then
end_row = i
'1会社のデータをグラフシートにコピーする
Range("B" & start_row & ":C" & end_row).Copy
Sheets("graph").Activate
Range("A" & company_flag * 16 + 2).Select
ActiveSheet.Paste
'グラフを生成する
Sheets("graph").Range("A" & company_flag * 16 + 1) = "月"
Sheets("graph").Range("B" & company_flag * 16 + 1) = "コスト"
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("graph!$A$" & company_flag * 16 + 1 & ":$B$" & (company_flag * 16 + 1) + end_row - start_row + 1)
ActiveChart.ChartTitle.Text = Sheets("data").Range("A" & start_row)
ActiveChart.Parent.Top = Range("D" & company_flag * 16 + 1).Top
ActiveChart.Parent.Left = Range("D" & company_flag * 16 + 1).Left
ActiveChart.Parent.Width = 700
ActiveChart.SetElement (msoElementDataLabelOutSideEnd)
company_flag = company_flag + 1
start_row = i + 1
Sheets("data").Activate
End If
Next i
Sheets("graph").Activate
Range("A1").Select
End Sub

参考になればと思います。
ちなみにこのマクロファイル欲しい方はあげます。
graph_macro.zip

以上、EXCEL マクロ(VBA)で複数のグラフを一括作成
でしたー

罫線

文字列抽出・変更・置換系トピック

SUBSTITUTEで複数置換を一気に行う方法

EXCEL Find関数で複数条件指定したい

EXCEL 置換関数にワイルドカードが使えない!代わりの方法を考えました。

EXCEL findを右から(後ろから)検索する方法

EXCEL 文字列の分割(区切り位置)を関数で行う方法

EXCELで文字列の記号を全て削除!記号を一覧にしてSUBSTITUTE関数で一括置換しよう

EXCELで改行を削除(置換)して消す方法/実はSUBSTITUTE関数でも出来るんです!

EXCELで不要な空白(文字列前後の空白や連続した空白)はtrim関数で削除!

EXCELで特定の文字列を含む行を抽出する関数

検索系トピック

VLOOKUPでのエラー(#N/A)の対処はIFやIFERRORを使って解決しよう!

VLOOKUPの近似一致(近似値)・あいまい検索って何に使うの?

EXCELで条件に一致したデータを検索&抽出するならVLOOKUP関数

VLOOKUPを"文字列を含む"で行う方法

VLOOKUP 検索範囲にワイルドカード

VLOOKUPを横にコピー!複数列をまとめて抽出するために列番号をずらす方法

VLOOKUPで左側(右から左に)の値を取得する方法はあるのか

VLOOKUPを複数条件/2つの条件を検索値にする方法

VLOOKUPで複数結果を全て抽出・表示する方法/重複したときに2番目以降も抽出できる?

SUMPRODUCT関数では文字列を抽出出来ない/条件に合致した文字列を抽出するならVLOOKUP

集計・ピボット系トピック

SUMIFの条件でワイルドカード(アスタリスク)を使う方法

COUNTIFを含む条件でカウントする方法/ワイルドカード(アスタリスク)を使って含む条件を行おう

SUMIFを複数条件で集計/2つ以上の条件で集計したいときはSUMIFS関数で!

COUNTIFで空白以外(空白ではないセル)のカウントを行う方法

AVERAGEで0以外を集計するならAVERAGEIFで!エクセル平均集計を自在に

AVERAGEIFを複数条件で平均値を算出したいならAVERAGEIFSで

EXCEL 集計関数を極めよう!様々な集計関数まとめ

EXCELで条件付きの合計を算出する時はSUMではなくSUMIFまたはSUMFISで

EXCELで期間集計(日付や範囲指定での抽出合計)ならSUMIFS関数

COUNTIF,COUNTIFSの使い方を徹底解説!条件の個数カウントを極めよう

掛け算の関数PRODUCT関数!SUM関数の掛け算版があるなんて知らなかった…

EXCELの月別集計(日別データを月別に集計する方法)はSUMIFS関数で

SUMIF(SUMIFS)の計算が重い・遅いときは集計の鉄板ピボットテーブル?

ピボットテーブルの初期設定(デフォルト)が変えられない!私なりの解決策

ピボット更新で書式がもとに戻る時の対応

ピボットの空白部分を埋める方法

EXCEL ピボットテーブルで重い・遅いときの改善方法

EXCELで行ずつ・行おきの集計方法を紹介

VLOOKUPで合計(集計)は出せない!VLOOKUPの代わりにあの関数で条件付き合計を出そう!

EXCELで時間帯別に集計する方法/日時データから時間を抽出

マクロで自動化!簡易ツールの作成やVBAの活用例を紹介

VBAでCSVファイルを結合(一つにまとめる)ツールを作成しました。

EXCEL フォルダ内のブック(ファイル)を結合(統合)/VBAマクロで複数ファイルをまとめる!

EXCELで複数画像を一括挿入貼り付け!VBA(マクロ)で作っちゃいました。

EXCEL 複数のグラフを一括作成/マクロ(VBA)で大量グラフを自動作成するツール!

EXCEL 全シート名を取得し一覧に!VBAを利用して一瞬で解決

EXCEL シート毎にファイル分割保存する方法/マクロ(VBA)で解決!

EXCELで複数ファイルを集計するツール/マクロ(VBA)を使って作ってみました。

EXCELマクロ(VBA)って何?とりあえず試しに使ってみよう

その他EXCELテクニック

エクセルのプルダウンを設定(作成)する方法を簡単解説!

EXCEL プルダウン(リスト)を連動させる二つの方法/入力規則を使いこなせ!

エクセルでエラーを表示しない方法/ISERROR関数とIFERROR関数で解決

EXCEL 文字の繰り返し関数(REPT関数)

EXCEL リンクでシート間を楽々移動!ハイパーリンクで別シートへ移動

EXCEL業務効率化!私が行っている4つの効率化テクニック

IF関数でワイルドカード(アスタリスク)は使えない?IF関数で含むを条件にする方法

EXCEL 時間の足し算(計算)ってどうやるの?時・分・秒の計算方法まとめました

EXCEL アルファベットでオートフィルは無理?

1行おきに行挿入する方法

EXCEL よく使うショートカット

EXCELフィルタをショートカットで行う方法

EXCEL 空白セルを一括で埋める方法

EXCELで2列以上の複数列を一列にまとめる方法

EXCEL 大量シートの管理/indirect関数の活用

EXCELで重複したデータをカウント!連番をつけ重複データを見つける方法

エクセルで行または列を固定し、スクロールさせずに常に見える状態にする方法

EXCELファイルサイズが異常に大きくなった原因/容量肥大化を縮小(解消)する方法ある?

EXCEL 列の番号取得はCOLUMN関数で/アルファベットの取得方法は?

EXCELでフィルタした行を削除するのが重い(遅い)時の解決方法

EXCELでシート名の参照なんて出来たの!?indirect関数の使い方

コラム

エクセル使える人、出来る人とはどの程度のレベル?一般事務・IT企業で求められるスキル

罫線

★人気記事 TOP10

SUBSTITUTEで複数置換を一気に行う方法

VLOOKUP 検索範囲にワイルドカード

EXCEL Find関数で複数条件指定したい

EXCELで期間集計(日付や範囲指定での抽出合計)ならSUMIFS関数

VLOOKUPを複数条件/2つの条件を検索値にする方法

EXCEL 置換関数にワイルドカードが使えない!代わりの方法を考えました。

VLOOKUPを"文字列を含む"で行う方法

EXCEL findを右から(後ろから)検索する方法

VLOOKUPの近似一致(近似値)・あいまい検索って何に使うの?

EXCEL 大量シートの管理/indirect関数の活用

★新着記事

VBAでCSVファイルを結合(一つにまとめる)ツールを作成しました。

エクセル使える人、出来る人とはどの程度のレベル?一般事務・IT企業で求められるスキル

エクセルのプルダウンを設定(作成)する方法を簡単解説!

EXCELでシート名の参照なんて出来たの!?indirect関数の使い方

EXCELで時間帯別に集計する方法/日時データから時間を抽出

EXCELで複数ファイルを集計するツール/マクロ(VBA)を使って作ってみました。

EXCELで条件付きの合計を算出する時はSUMではなくSUMIFまたはSUMFISで

SUMPRODUCT関数では文字列を抽出出来ない/条件に合致した文字列を抽出するならVLOOKUP

EXCELでお困りの方へ

EXCEL効率化したい仕事人

当サイトでは皆さまがEXCEL作業で行き詰った問題を解決するべく王道のテクニックからちょっと特殊なテクニックまで 様々な中〜上級技・プチテクニックを公開し、少しでも皆様の業務効率改善に役立てていただければと思い、ネタをまとめています。

EXCELの作業で悩み・お困りごとはありませんか?
集計に時間がかかり過ぎ。効率化をしたい。などなど日頃から奮闘しているあなたに少しでも参考になる情報を与えることが出来れば幸いです。

質問・相談なども受け付けますのでお気軽にメールください。
忙しくなければその日のうちに返信させていただきますが、質問の内容によっては後日改めて回答させていただきます。

※サンプルのエクセルファイルなど添付していただくと回答もスムーズに行える場合が多いです。

お問い合わせはコチラ