仕事で資料を作ったり大学の研究データをまとめるときに、

一度はそんなこと思ったことないですか

このページでは、エクセルでグラフを作ったことがない人でも簡単にできるエクセルのグラフの作り方についてご紹介します。

基本的なグラフの作り方

まずエクセルでグラフをつくるための基本的な作成方法です。

① グラフ化したいデータを選択し、

➁「挿入」タブ →　「縦棒グラフ」ボタンをクリックし、

③ 「2-D 縦棒」をクリックします。

すると、以下のようなグラフが作成されます。

このグラフで問題ない場合はかまいませんが、A列（年代）を横軸に B列（売上）を縦軸にしたい人もいるのではと思います。

このように２つのデータを縦軸と横軸に分けるにはグラフの縦軸と横軸のデータの設定が必要になります。

グラフの横軸、縦軸の設定

はじめに ① グラフを選択し、➁ 「デザイン」タグ → 「データの選択」をクリックします。

※ グラフを右クリックし「データの選択」を選んでもOKです。

下記の画面が表示されます。この画面から縦軸、横軸をどのデータにするか設定することができます。

縦軸の設定

「グラフデータの範囲」に縦軸で使用するデータ（下画面では「売上」のデータ）を選択し、「OK」ボタンをクリックします。

※ 縦軸のヘッダー（”売上（円）”というセル）を含めると自動で縦軸名が設定されます。

横軸の設定

下記画面で「編集」ボタンをクリックします。

「軸ラベルの範囲」に横軸のデータを選択し、「OK」ボタンをクリックします。

※ この時、横軸のヘッダー（”年代”というセル）は範囲に含めないようにします。

縦軸と横軸の設定を反映させる！

横軸、縦軸が正しく設定されていることを確認し、「OK」ボタンをクリックします。

下記のようなグラフが表示されます。

うまくいかないときは縦軸と横軸を見直そう！

はじめにグラフを作成したときは以下のようなグラフになったと思います。

このグラフの設定は、縦軸が系統１、系統２という値、横軸が１、２、３.... という値が設定されています。

エクセルでグラフを作成する時に（どういう原理でできているかはわかりませんが）、

適当にグラフを作ろうとすると横軸が行番号（１、２、３....）に設定され、

縦軸が年代（系統１）と売上（系統２）に設定されてしまう場合があります（よくあることです）。

グラフを作る際は、横軸と縦軸がうまくデータが選択できているかを確かめることが重要です。

エクセルで作れるグラフの種類

エクセルでは棒グラフだけではなく、以下のようなグラフを作成できます。

どのグラフを使おうと悩んでいる方がいましたら、

データのどういうことを表現したいかでを考えて、それにあったグラフにしてみてください。

Windows パソコンで「空き容量が不足しています」といったメッセージが表示されたとき「どのフォルダが大きいのだろう？」と悩んだことはありませんか？

エクスプローラーで見てみてもフォルダのサイズが表示されないんです。

「フォルダサイズがぱっとパっとわかるようにしたい」そんな時は Excel マクロです。

Excel マクロをつかえば、自分で指定したパスのフォルダサイズの一覧をファイル名 + ファイルサイズで取得し、そのデータをもとにグラフ化できます。

この記事では、実際に私が作成したフォルダサイズの一覧表を算出しそのデータをもとにグラフ化する Excel マクロの作成方法（シート構成 + ソースコード）についてご紹介します。

※ 2019/10/17 時点でバージョンアップしました！！！

フォルダサイズをグラフ化するマクロ

今回作成する Excel マクロは下記のような動作を行います。

作成方法

（１）Excel のシートを以下のようなレイアウトを作成します。

※ 表のレイアウトについてですが、一行目の A 列、B列に下記画面のように表のヘッダー名を入力してください。

（２）VBA の編集画面（赤枠の箇所）に次の全てコードをコピーして貼り付けます。

※ VBA の編集画面の表示方法がわからない場合は、下記リンクを見てください。

３分でできる！Excel VBA の開発を行うために必要な事前準備

2018.11.14

いまから 「vba を始めたいけれど、Excel で何をどうやってすればいいかわからない」という悩みはありませんか？ 本ページでは vba をどうやってはじめるか３分以内に終わる方法を解説します。 v...

※ コードの詳細について後で（このページのこちらから）説明します。

コピーした内容を貼り付ける箇所 

コピーするソースコード

' 定数定義
Const GRAPH_TITLE As String = "ファイルサイズ一覧"
Const LABEL_Y As String = "ファイルサイズ  (Bytes)"
Const LABEL_X As String = "ファイル名"
Const GRAPH_PLACE As String = "D4"

' 指定したフォルダ内のファイルサイズをグラフ表示
Sub main()

    Dim fname As String
    
    ' ダイアログからファイル名取得
    fname = printDialog()
    
    ' ファイル名取得できたらグラフで出力
    If fname <> "" Then
        Call printGraph(fname)
    End If
    
End Sub

' グラフ出力
Private Sub printGraph(ByVal fname As String)
    
    Dim num As Long: num = 1
    Dim FSO As Object, fileinfo As Variant
    Set FSO = CreateObject("Scripting.FileSYstemObject")
    
    ' グラフに表示させる値を出力
    For Each fileinfo In FSO.GetFolder(fname).subFolders
        num = num + 1
        Cells(num, 1) = FSO.GetFolder(fileinfo).Name
        Cells(num, 2) = FSO.GetFolder(fileinfo).Size
    Next fileinfo
    
    Set FSO = Nothing
    
    ' 出力するグラフの種類
    With ActiveSheet.Shapes.AddChart.Chart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=ActiveSheet.Range("A1:B" & getMaxRow(2))
         .ChartTitle.Text = GRAPH_TITLE
         .HasLegend = False
        ' Y軸の設定
        With .Axes(xlValue)
            .HasTitle = True '
            .AxisTitle.Caption = LABEL_Y
        End With
        ' X軸の設定
        With .Axes(xlCategory)
            .HasTitle = True '
            .AxisTitle.Caption = LABEL_X
        End With
    End With
    
    ' グラフの位置
    With ActiveSheet.ChartObjects
        .Top = Range(GRAPH_PLACE).Top
        .Left = Range(GRAPH_PLACE).Left
        .Height = 300
        .Width = 400
    End With
End Sub

' ファイル選択用ダイヤログ表示
Function printDialog()
    
    Dim fname As Variant
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            fname = .SelectedItems(1)
        End If
    End With
    
    printDialog = fname
    
End Function

' 最終行番号
Function getMaxRow(row As Integer) As Integer
    getMaxRow = Range(convertAToNum(row) & "65536").End(xlUp).row
End Function

' 列番号変換 アルファベット → 数値
Function convertAToNum(ByVal num As Long) As String
    tmp = Cells(1, num).Address(True, False)
    convertAToNum = Left(tmp, InStr(tmp, "$") - 1)
End Function

（３）上記のマクロをボタン化します（マクロ名 : 「main」、ボタン名はなんでもOK！）

※ マクロをボタン化する方法は、下記リンクを参考ください。

Excel マクロ をボタンから実行する方法【Excel vba】

2018.11.18

「vba でプログラムを書いたのでボタンを押して実行できるようにしたい」という悩みありませんか？ Excel マクロ をボタンで実行できるように方法を解説します。 ボタンの設定方法 （１）「開発」タブ...

ソースコード詳細

今回作成したマクロは主に３つの関数（Sub プロシージャ）から構成されています。

この章で、定数の定義と下記の関数について説明します。

定数の定義

グラフの表示項目について定義します。

' 定数定義
Const GRAPH_TITLE As String = "ファイルサイズ一覧"
Const LABEL_Y As String = "ファイルサイズ  (Bytes)"
Const LABEL_X As String = "ファイル名"
Const GRAPH_PLACE As String = "D4"

メイン関数

メイン関数内では、2つの処理を行います。

' 指定したフォルダ内のファイルサイズをグラフ表示
Sub main()

    Dim fname As String
    
    ' ダイアログからファイル名取得
    fname = printDialog()
    
    ' ファイル名取得できたらグラフで出力
    If fname <> "" Then
        Call printGraph(fname)
    End If
    
End Sub

ファイル名を取得するダイアログを表示させる関数

Application.FIleDialog から フォルダ名を取得します。

今回は「キャンセル」ボタンが押されたときは何も処理していません。

' ファイル選択用ダイヤログ表示
Function printDialog()
    
    Dim fname As Variant
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            fname = .SelectedItems(1)
        End If
    End With
    
    printDialog = fname
    
End Function

フォルダ名からグラフ出力する関数

長いので分けて説明します。

（本当はプロシージャ内のコードは ２０行に抑えたかったのですが、長くなってしまいすみません）。

まず、フォルダ内の情報（フォルダ名、フォルダサイズ）を取得します。

そしてその情報を A列にフォルダ名、B列からフォルダサイズを順に出力させます。

' グラフ出力
Private Sub printGraph(ByVal fname As String)
    
    Dim num As Long: num = 1
    Dim FSO As Object, fileinfo As Variant
    Set FSO = CreateObject("Scripting.FileSYstemObject")
    
    ' グラフに表示させる値を出力
    For Each fileinfo In FSO.GetFolder(fname).subFolders
        num = num + 1
        Cells(num, 1) = FSO.GetFolder(fileinfo).Name
        Cells(num, 2) = FSO.GetFolder(fileinfo).Size
    Next fileinfo
    
    Set FSO = Nothing

グラフを棒グラフとして出力させるように設定します（xlColumnClustered）。

グラフにはタイトル名と軸ラベル付きで表示させるようにしています。

A列、B列で出力させた値をグラフにします。A列 → X 軸 、B列 → Y軸 に表示させます。

下記、４行目の getMaxRow は引数を列番号とし、その列番号から最大行番号を取得するプロシージャです。

' 出力するグラフの種類
    With ActiveSheet.Shapes.AddChart.Chart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=ActiveSheet.Range("A1:B" & getMaxRow(2))
         .ChartTitle.Text = GRAPH_TITLE
         .HasLegend = False
        ' Y軸の設定
        With .Axes(xlValue)
            .HasTitle = True '
            .AxisTitle.Caption = LABEL_Y
        End With
        ' X軸の設定
        With .Axes(xlCategory)
            .HasTitle = True '
            .AxisTitle.Caption = LABEL_X
        End With
    End With

グラフの位置とサイズについて指定します。

今回はグラフの位置をセル番号D４（定数 : GRAPH_LABELとして定義済み）に表示しています。

' グラフの位置
    With ActiveSheet.ChartObjects
        .Top = Range(GRAPH_PLACE).Top
        .Left = Range(GRAPH_PLACE).Left
        .Height = 300
        .Width = 400
    End With
End Sub

以下は私がよく使う便利プロシージャです。

いいなと思いましたら是非参考にしてみてください。

' 最終行番号
Function getMaxRow(row As Integer) As Integer
    getMaxRow = Range(convertAToNum(row) & "65536").End(xlUp).row
End Function

' 列番号変換 アルファベット → 数値
Function convertAToNum(ByVal num As Long) As String
    tmp = Cells(1, num).Address(True, False)
    convertAToNum = Left(tmp, InStr(tmp, "$") - 1)
End Function

最後に

いかがでしたでしょうか？

コマンドプロンプトでもフォルダ内のサイズはわかるんですが、グラフ化することで一目でわかるようにしたく今回作成しました。

もし作成した Excel マクロが欲しい方は下記ボタンからダウンロードください。