【VBAとPythonどっちがいい？④】表を簡単なグラフにするコードで違いを解説

Sub グラフ()
Dim table As ListObject 'テーブル変数
Dim leftPnt As Integer 'グラフの作成位置取得変数

'表をテーブル化して取得
'既にテーブル化している場合は、再度テーブル化するとエラーが出るので回避
With ThisWorkbook.Worksheets(1)
    Set table = .Cells(1, 1).ListObject
    If table Is Nothing Then
        Set table = .ListObjects.Add(xlSrcRange, .Cells(1, 1).CurrentRegion, , xlYes)
    End If
End With

'テーブルの最右列の二つ隣のセルの左上の端っこのポイントを取得
leftPnt = table.ListColumns(table.ListColumns.Count).Range(1).Offset(, 2).Left

'ActiveSheet.ChartObjects.Add(leftPnt, 20, 400, 300)でChartObjectsを返してくれるので、
'その後ろにChartをつける。
'ほとんどがChartオブジェクトをいじることになるので、Withでつなげる。
With ActiveSheet.ChartObjects.Add(leftPnt, 20, 400, 300).Chart
    .SetSourceData table.Range 'グラフの範囲をざっくりとる（いきなりちゃんととってももちろんいいです）
    .ChartType = xlColumnClustered 'グラフの種類を決める
    .Axes(xlCategory).CategoryType = xlCategoryScale 'X軸を調整
    .ChartColor = 14
    'グラフにするデータをブラッシュアップする（必要なとこだけとる）
    .SetSourceData Union(table.ListColumns("月初日").Range, table.ListColumns("月利").Range)
    .ChartTitle.Text = "VOO月利" 'グラフのタイトルを変える
    .Legend.Delete '凡例を消す
End With

End Sub

############前回と同じ#########################################################
import pandas as pd
import datetime as dt

#ファイルを開いてデータフレームを取得
df=pd.read_csv("./VOO.csv")

#日付のデータ型を日付型に変える
df["Date"]=pd.to_datetime(df["Date"],format="%Y-%m-%d")

#日付をインデックスにして検索や絞り込みをしやすくする
df=df.set_index("Date",drop=False)

#日付で絞る
df=df[dt.datetime(2022,3,8):dt.datetime(2023,2,28)]

#データフレームを月毎に区分けして月初日、月末日およびそれぞれの値（Adj Close列の値)を
#新しいデータフレーム(df_result)に格納
df_result=pd.DataFrame()
df_result["月初日"]=df.resample("M").first()["Date"].tolist()
df_result["月末日"]=df.resample("M").last()["Date"].tolist()
df_result["月初の値"]=df.resample("M").first()["Adj Close"].tolist()
df_result["月末の値"]=df.resample("M").last()["Adj Close"].tolist()
df_result["月利"]=(df_result["月初の値"]-df_result["月末の値"])/df_result["月末の値"]*100

###############################################################################

df_result["月初日"]=df_result["月初日"].dt.strftime("%Y/%m/%d")
df_result=df_result.set_index("月初日")
df_result["月利"].plot.bar()