【VBAとPythonどっちがいい？③】表から値を取得するコードで違いを解説

Sub VBA2()
    Dim ws As Worksheet
    Dim table As ListObject
    Dim maxRow As Long
    
    'シートの取得
    Set ws = Workbooks("VOO.csv").Worksheets(1)
    
    '表をテーブル化して取得
    '既にテーブル化している場合は、再度テーブル化するとエラーが出るので回避
    Set table = ws.Cells(1, 1).ListObject
    If table Is Nothing Then
        Set table = ws.ListObjects.Add(xlSrcRange, ws.Cells(1, 1).CurrentRegion, , xlYes)
    End If
    
    Dim r As Range
    Dim sDate, eDate As Date
    Dim dateLists As Variant
    
    Dim i As Long
    
    For i = 1 To table.ListColumns("Date").DataBodyRange.SpecialCells(xlCellTypeVisible).Count
        With table.ListColumns("Date")
        
            '最初（2022年3月）の開始日は予め入れておく
            'ここではまだ配列に入れない。
            '2022年3月の終了日を取得出来てから配列に入れる
            If i = 1 Then
                sDate = .DataBodyRange(1)
                
            '最後（2023年2月）の終了日は最終行の値を入れる
            '2023年2月の開始日と終了日を配列に入れる
            ElseIf i = .DataBodyRange.SpecialCells(xlCellTypeVisible).Count Then
                eDate = .DataBodyRange(i).Value
                Call add_Elm(dateLists, Array(sDate, eDate))
                
            '日付を一つ一つ確認していき
            '月が変われば（例えば2022年4月1日は一つ前が2022年3月31日。よって月が変わる）
            '終了日を取得し、前回取得しておいた開始日とあわせて配列に格納する
            '次の開始日をここで取得しておく
            ElseIf Month(.DataBodyRange(i).Value) <> Month(.DataBodyRange(i - 1).Value) Then
                eDate = .DataBodyRange(i - 1).Value
                Call add_Elm(dateLists, Array(sDate, eDate))
                sDate = .DataBodyRange(i).Value
            End If
        End With
    Next
          
End Sub

Sub VBA2()
    '=======================================================
    '~
    '前回と同じ。省略。
    '=======================================================
    
    Dim sVal, eVal As Double
    Dim datelist As Variant
    Dim j As Long
    
    'シートに月末月初の値と月利を転記
    With ThisWorkbook.Worksheets(1)
        '見出しを作成
        .Cells(1, 1).Value = "月初日"
        .Cells(1, 2).Value = "月末日"
        .Cells(1, 3).Value = "月初の値"
        .Cells(1, 4).Value = "月末の値"
        .Cells(1, 5).Value = "月利"
    
        j = 2
        For i = 0 To UBound(dateLists)
            sDate = dateLists(i)(0)
            sVal = table_Loc(table, "Date", sDate, "Adj Close")
            
            eDate = dateLists(i)(1)
            eVal = table_Loc(table, "Date", eDate, "Adj Close")
            
            .Cells(j, 1).Value = sDate
            .Cells(j, 2).Value = eDate
            .Cells(j, 3).Value = sVal
            .Cells(j, 4).Value = eVal
            .Cells(j, 5).Value = (sVal - eVal) / eVal * 100
            j = j + 1
        Next
    End With
End Sub

Function table_Loc(ByVal table As ListObject, ByVal index_Col As String, ByVal index_Val As Variant, ByVal col_Name As String)
    Dim i As Long
    
    For i = 1 To table.ListColumns(index_Col).DataBodyRange.Count
        If table.ListColumns(index_Col).DataBodyRange(i).Value = index_Val Then
            Exit For
        End If
    Next
    
    table_Loc = table.ListColumns(col_Name).DataBodyRange(i).Value

End Function

############前回と同じ#########################################################
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.loc[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