【Excel VBA】 집합봉형 그래프를 3 패턴으로 묘화
기사 개요
이번은 첫회이므로 기본적인 집합봉형 그래프를 그립니다만, 시리즈화해 가고 싶다고 생각합니다.
직장에서 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
생성된 그래프
Reference
이 문제에 관하여(【Excel VBA】 집합봉형 그래프를 3 패턴으로 묘화), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/m0ka/items/1d8e69124041accbc068
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
· 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
생성된 그래프
Reference
이 문제에 관하여(【Excel VBA】 집합봉형 그래프를 3 패턴으로 묘화), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다
https://qiita.com/m0ka/items/1d8e69124041accbc068
텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)
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
Reference
이 문제에 관하여(【Excel VBA】 집합봉형 그래프를 3 패턴으로 묘화), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/m0ka/items/1d8e69124041accbc068텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념
(Collection and Share based on the CC Protocol.)