기사 개요

이번은 첫회이므로 기본적인 집합봉형 그래프를 그립니다만, 시리즈화해 가고 싶다고 생각합니다.
직장에서 Excel VBA에서 그래프를 만들 수 있습니다. 그러나 조사해도 좀처럼 핀과 오는 것이 없어 처음에는 고전했습니다.
이 기사가 누군가의 도움이되면 기쁩니다.

환경

· Excel 2016
・Windows10

그래프 그리기

그래프 재료

약속의 과일 시리즈에서 집합 막대형 차트를 세 가지 방법으로 만듭니다

① 전체 그래프를 작성하는 경우

그래프 범위



코드

Public Sub Graph_Bar1()

 Dim ws As Worksheet
    Set ws = Sheets(1)

       ws.Cells(2, 2).CurrentRegion.Select    '---B2に関連するセルを選択

       With ws.Shapes.AddChart.Chart          '---グラフを作成
          .ChartType = xlColumnClustered      '---グラフの種類を「集合縦棒」にする
          .SetSourceData Source:=Selection    '---選択したセルをグラフの範囲にする
       End With

End Sub

생성된 그래프

② 인접하는 열을 선택하여 그래프를 작성하는 경우

그래프 범위



코드

Public Sub Graph_Bar2()

 Dim ws As Worksheet
    Set ws = Sheets(1)

 Dim LastRow As Long
    LastRow = ws.Cells(Rows.Count, 2).End(xlUp).Row         '---B列の最終行を求める

       Range(ws.Cells(2, 2), ws.Cells(LastRow, 3)).Select   '---B2～C列の最終行を選択

       With ws.Shapes.AddChart.Chart          '---グラフを作成
          .ChartType = xlColumnClustered      '---グラフの種類を「集合縦棒」にする
          .SetSourceData Source:=Selection    '---選択したセルをグラフの範囲にする
       End With

End Sub

생성된 그래프

③ 떨어진 열을 선택하여 그래프를 작성하는 경우

그래프 범위



코드

Public Sub Graph_Bar3()

 Dim ws As Worksheet
    Set ws = Sheets(1)

 Dim LastRow As Long
    LastRow = ws.Cells(Rows.Count, 2).End(xlUp).Row         '---B列の最終行を求める

       Range("B2:B" & LastRow & ", E2:E" & LastRow).Select  '---B2～B列の最終行とE2～E列の最終行を選択

       With ws.Shapes.AddChart.Chart          '---グラフを作成
          .ChartType = xlColumnClustered      '---グラフの種類を「集合縦棒」にする
          .SetSourceData Source:=Selection    '---選択したセルをグラフの範囲にする
       End With

End Sub

생성된 그래프