ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】散布図を作成するマクロ。相関関係を可視化するグラフの作成。




どうも、ゴリラストロングです。

 

今回はVBAで相関関係を可視化するグラフの作成として、散布図を作成するマクロを作りました。

 

<元データ>

f:id:gorilla-strong:20200317123752p:plain

 

<マクロ実行後>

f:id:gorilla-strong:20200317123845p:plain

作成されたグラフから、売上数と気温の間に正の相関関係があることが分かりますね。

 

 

 スポンサーリンク

  

 

ソースコード

Sub 相関図作成()

Dim macro As Object
Set macro = Workbooks("200317.xlsm").Worksheets("200317")

Dim lastrow As Long
lastrow = macro.Cells(Rows.Count, 1).End(xlUp).Row

Dim data As Range
Set data = macro.Range("B2:C" & lastrow)


With macro.Shapes.AddChart.Chart

    .ChartType = xlXYScatter
    .SetSourceData data
    .HasLegend = False
    .Axes(xlValue).MinimumScale = 100
    .Axes(xlCategory).MinimumScale = 20
    .SeriesCollection(1).Trendlines.Add
    .ChartStyle = 248
            
End With

With ActiveSheet.ChartObjects(1)

    .Top = Range("E2").Top
    .Left = Range("E2").Left
    
End With




End Sub

 

<ポイント>

 .Axes(xlValue).MinimumScale = 100

.Axes(xlCategory).MinimumScale = 20

上記コードで、y軸の最小値を100に、x軸の最小値を20に設定できます。

 

 

<参照させていただいたサイト>

https://officedic.com/excel-vba-chart-xlxyscatter-set/

https://tonari-it.com/excel-vba-chart-axis/#toc5

http://officetanaka.net/excel/vba/graph/03.htm

 

 

以上、ゴリラストロングでした。

 

 スポンサーリンク