基礎編

前回に続いて”レース情報[RACE]”の中の”票数１”と”票数２”のデータをワークシートに展開するサブルーチンを作ります。特に断りのない限り"Top"シートのコードウィンドウに追加します。

（06-09-19追加）抜けがありました。
(06-09-23追加）　三連単オッズ（O6)と三連単票数（H6)のデータ関数の定義が抜けてました。

１．”票数１（H1）”を展開するサブルーチン(DisplayH1DataOnWorksheet)

'********************** ワークシートに"H1"データを表示(Top) **********************

Sub DisplayH1DataOnWorksheet(ByVal FileID As String, ByVal DataSu As Long)
    Dim p As Long, q As Long
    Dim A$
    
    '* ワークシートにタイトルを表示
    GoSub DisplayTitle
    
    Select Case FileID
    
    Case "H1_RACE"
        For p = 1 To H1DataSu
            
            '* 配列をデータ関数にセット
            Call SetData_H1(H1Data(p), mH1Data)
            
            '* ワークシートに表示
            GoSub DisplayToWorksheet
            
        Next p
        
    End Select
        
    '* テーブル名をセット
    H1Table = Worksheets(FileID).Range("B2").Value
    
    '* セル幅を自動調整
    Worksheets(FileID).Range("B4").CurrentRegion.EntireColumn.AutoFit
    
    Exit Sub
    '*--------------------------------------------------------
    '*                  サブルーチン
    '*--------------------------------------------------------
    '* ワークシートに表示
DisplayToWorksheet:
    With Worksheets(FileID)
        .Activate
        
        With mH1Data.ID
            KAISAIJOHO = .Year & .MonthDay & .JyoCD & .KAIJI & .NICHIJI & .RaceNum
        End With
        
        .Range("B1").Value = p
        
        .Range("B" & 4 + p).Value = "'" & KAISAIJOHO
        
        .Range("C" & 4 + p).Value = "'" & mH1Data.head.RecordSpec
        .Range("D" & 4 + p).Value = "'" & mH1Data.head.DataKubun
        .Range("E" & 4 + p).Value = "'" & mH1Data.head.MakeDate.Year & _
            mH1Data.head.MakeDate.Month & mH1Data.head.MakeDate.Day
            
        .Range("F" & 4 + p).Value = "'" & mH1Data.ID.Year & mH1Data.ID.MonthDay
        .Range("G" & 4 + p).Value = "'" & mH1Data.ID.JyoCD
        .Range("H" & 4 + p).Value = "'" & mH1Data.ID.KAIJI
        .Range("I" & 4 + p).Value = "'" & mH1Data.ID.NICHIJI
        .Range("J" & 4 + p).Value = "'" & mH1Data.ID.RaceNum
        
        .Range("K" & 4 + p).Value = "'" & mH1Data.TorokuTosu
        .Range("L" & 4 + p).Value = "'" & mH1Data.SyussoTosu
        
        .Range("M" & 4 + p).Value = mH1Data.HatubaiFlag(0)
        .Range("N" & 4 + p).Value = mH1Data.HatubaiFlag(1)
        .Range("O" & 4 + p).Value = mH1Data.HatubaiFlag(2)
        .Range("P" & 4 + p).Value = mH1Data.HatubaiFlag(3)
        .Range("Q" & 4 + p).Value = mH1Data.HatubaiFlag(4)
        .Range("R" & 4 + p).Value = mH1Data.HatubaiFlag(5)
        .Range("S" & 4 + p).Value = mH1Data.HatubaiFlag(6)
        
        .Range("T" & 4 + p).Value = mH1Data.FukuChakuBaraiKey
        
        A$ = ""
        For q = 0 To 27
            A$ = A$ & mH1Data.HenkanUma(q)
        Next q
        .Range("U" & 4 + p).Value = "'" & A$
        
        A$ = ""
        For q = 0 To 7
            A$ = A$ & mH1Data.HenkanWaku(q)
        Next q
        .Range("V" & 4 + p).Value = "'" & A$
        
        A$ = ""
        For q = 0 To 7
            A$ = A$ & mH1Data.HenkanDoWaku(q)
        Next q
        .Range("W" & 4 + p).Value = "'" & A$
        
        For q = 0 To 27
'            .Cells(4 + p, 24 + q).Value = "'" & mH1Data.HyoTansyo(q).UMABAN
            .Cells(4 + p, 24 + 2 * q).Value = Format(Val(mH1Data.HyoTansyo(q).Hyo) / 100, "###,###,###")
            .Cells(4 + p, 25 + 2 * q).Value = "'" & mH1Data.HyoTansyo(q).NINKI
        Next q
        
        For q = 0 To 59
            .Cells(4 + p, 60 + 3 * q).Value = "'" & Left(mH1Data.HyoUmaren(q).KUMI, 2) & "-" & Right(mH1Data.HyoUmaren(q).KUMI, 2)
            .Cells(4 + p, 61 + 3 * q).Value = Format(Val(mH1Data.HyoUmaren(q).Hyo) / 100, "###,###,###")
            .Cells(4 + p, 62 + 3 * q).Value = "'" & mH1Data.HyoUmaren(q).NINKI
        Next q
        
        .Cells(4 + p, 240).Value = Format(Val(mH1Data.HyoTotal(0)) / 100, "###,###,###")
        .Cells(4 + p, 241).Value = Format(Val(mH1Data.HyoTotal(1)) / 100, "###,###,###")
        .Cells(4 + p, 242).Value = Format(Val(mH1Data.HyoTotal(2)) / 100, "###,###,###")
        .Cells(4 + p, 243).Value = Format(Val(mH1Data.HyoTotal(3)) / 100, "###,###,###")
        .Cells(4 + p, 244).Value = Format(Val(mH1Data.HyoTotal(4)) / 100, "###,###,###")
        .Cells(4 + p, 245).Value = Format(Val(mH1Data.HyoTotal(5)) / 100, "###,###,###")
        .Cells(4 + p, 246).Value = Format(Val(mH1Data.HyoTotal(6)) / 100, "###,###,###")
        
        .Cells(4 + p, 247).Value = Format(Val(mH1Data.HyoTotal(7)) / 100, "###,###,###")
        .Cells(4 + p, 248).Value = Format(Val(mH1Data.HyoTotal(8)) / 100, "###,###,###")
        .Cells(4 + p, 249).Value = Format(Val(mH1Data.HyoTotal(9)) / 100, "###,###,###")
        .Cells(4 + p, 250).Value = Format(Val(mH1Data.HyoTotal(10)) / 100, "###,###,###")
        .Cells(4 + p, 251).Value = Format(Val(mH1Data.HyoTotal(11)) / 100, "###,###,###")
        .Cells(4 + p, 252).Value = Format(Val(mH1Data.HyoTotal(12)) / 100, "###,###,###")
        .Cells(4 + p, 253).Value = Format(Val(mH1Data.HyoTotal(13)) / 100, "###,###,###")
        
    End With
                    
    Return
    '*--------------------------------------------------------
    '* ワークシートにタイトルを表示
DisplayTitle:
    With Worksheets(FileID)
        .Activate
    
        '*タイトル記入
        .Cells.Clear
    
        .Range("A1").ColumnWidth = 0.5
        
        .Range("B2").Value = FileID & "_テーブル"
        
        .Range("B4").Value = "開催情報"
        .Range("C4").Value = "種別ID"
        .Range("D4").Value = "区分"
        .Range("E4").Value = "データ作成"
        
        .Range("F4").Value = "開催年月日"
        .Range("G4").Value = "場所"
        .Range("H4").Value = "回次"
        .Range("I4").Value = "日次"
        .Range("J4").Value = "ﾚｰｽNo"
        
        .Range("K4").Value = "登録頭数"
        .Range("L4").Value = "出走頭数"
        
        .Range("M4").Value = "単勝発売"
        .Range("N4").Value = "複勝発売"
        .Range("O4").Value = "枠連発売"
        .Range("P4").Value = "馬連発売"
        .Range("Q4").Value = "ﾜｲﾄﾞ発売"
        .Range("R4").Value = "馬単発売"
        .Range("S4").Value = "三連複発売"
        
        .Range("T4").Value = "複勝着払"
        .Range("U4").Value = "返還馬番"
        .Range("V4").Value = "返還枠番"
        .Range("W4").Value = "返還同枠"
        
        For q = 0 To 17
'            .Cells(4, 52 + 28 * (q - 1)).Value = "単票" & Format(q + 1, "00") & "番"
            .Cells(4, 24 + 2 * q).Value = "単" & Format(q + 1, "00") & "票数"
            .Cells(4, 25 + 2 * q).Value = "'" & Format(q + 1, "00") & "人気"
        Next q
        
        For q = 0 To 59
            .Cells(4, 60 + 3 * q).Value = "馬連" & Format(q + 1, "00") & "組"
            .Cells(4, 61 + 3 * q).Value = "馬連" & Format(q + 1, "00") & "票数"
            .Cells(4, 62 + 3 * q).Value = "馬連" & Format(q + 1, "00") & "人気"
        Next q
                    
        .Cells(4, 240).Value = "単勝票数計"
        .Cells(4, 241).Value = "複勝票数計"
        .Cells(4, 242).Value = "枠連票数計"
        .Cells(4, 243).Value = "馬連票数計"
        .Cells(4, 244).Value = "ﾜｲﾄﾞ票数計"
        .Cells(4, 245).Value = "馬単票数計"
        .Cells(4, 246).Value = "三連複票数計"
        
        .Cells(4, 247).Value = "単勝返還票数計"
        .Cells(4, 248).Value = "複勝返還票数計"
        .Cells(4, 249).Value = "枠連返還票数計"
        .Cells(4, 250).Value = "馬連返還票数計"
        .Cells(4, 251).Value = "ﾜｲﾄﾞ返還票数計"
        .Cells(4, 252).Value = "馬単返還票数計"
        .Cells(4, 253).Value = "三連複返還票数計"
        
    End With
    Return
    
End Sub

２．”票数６（H6）”を展開するサブルーチン(DisplayH6DataOnWorksheet)

'********************** ワークシートに"H6"データを表示(Top) **********************

Sub DisplayH6DataOnWorksheet(ByVal FileID As String, ByVal DataSu As Long)
    Dim p As Long, q As Long
    Dim A$
    
    '* ワークシートにタイトルを表示
    GoSub DisplayTitle
    
    Select Case FileID
    
    Case "H6_RACE"
        For p = 1 To H6DataSu
            
            '* 配列をデータ関数にセット
            Call SetData_H6(H6Data(p), mH6Data)
            
            '* ワークシートに表示
            GoSub DisplayToWorksheet
            
        Next p
        
    End Select
        
    '* テーブル名をセット
    H6Table = Worksheets(FileID).Range("B2").Value
    
    '* セル幅を自動調整
    Worksheets(FileID).Range("B4").CurrentRegion.EntireColumn.AutoFit
    
    Exit Sub
    '*--------------------------------------------------------
    '*                  サブルーチン
    '*--------------------------------------------------------
    '* ワークシートに表示
DisplayToWorksheet:
    With Worksheets(FileID)
        .Activate
        
        With mH6Data.ID
            KAISAIJOHO = .Year & .MonthDay & .JyoCD & .KAIJI & .NICHIJI & .RaceNum
        End With
        
        .Range("B1").Value = p
        
        .Range("B" & 4 + p).Value = "'" & KAISAIJOHO
        
        .Range("C" & 4 + p).Value = "'" & mH6Data.head.RecordSpec
        .Range("D" & 4 + p).Value = "'" & mH6Data.head.DataKubun
        .Range("E" & 4 + p).Value = "'" & mH6Data.head.MakeDate.Year & _
            mH6Data.head.MakeDate.Month & mH6Data.head.MakeDate.Day
            
        .Range("F" & 4 + p).Value = "'" & mH6Data.ID.Year & mH6Data.ID.MonthDay
        .Range("G" & 4 + p).Value = "'" & mH6Data.ID.JyoCD
        .Range("H" & 4 + p).Value = "'" & mH6Data.ID.KAIJI
        .Range("I" & 4 + p).Value = "'" & mH6Data.ID.NICHIJI
        .Range("J" & 4 + p).Value = "'" & mH6Data.ID.RaceNum
        
        .Range("K" & 4 + p).Value = "'" & mH6Data.TorokuTosu
        .Range("L" & 4 + p).Value = "'" & mH6Data.SyussoTosu
        
        .Range("M" & 4 + p).Value = mH6Data.HatubaiFlag
        
        A$ = ""
        For q = 0 To 17
            A$ = A$ & mH6Data.HenkanUma(q)
        Next q
        .Range("N" & 4 + p).Value = "'" & A$
        
        For q = 0 To 79
            .Cells(4 + p, 15 + 3 * q).Value = "'" & Left(mH6Data.HyoSanrentan(q).KUMI, 2) & "-" & _
                Mid(mH6Data.HyoSanrentan(q).KUMI, 3, 2) & "-" & Right(mH6Data.HyoSanrentan(q).KUMI, 2)
            .Cells(4 + p, 16 + 3 * q).Value = Format(Val(mH6Data.HyoSanrentan(q).Hyo) / 100, "###,###,###")
            .Cells(4 + p, 17 + 3 * q).Value = "'" & mH6Data.HyoSanrentan(q).NINKI
        Next q
        
        .Cells(4 + p, 255).Value = Format(Val(mH6Data.HyoTotal(0)) / 100, "###,###,###")
        .Cells(4 + p, 256).Value = Format(Val(mH6Data.HyoTotal(1)) / 100, "###,###,###")
        
    End With
                    
    Return
    '*--------------------------------------------------------
    '* ワークシートにタイトルを表示
DisplayTitle:
    With Worksheets(FileID)
        .Activate
    
        '*タイトル記入
        .Cells.Clear
    
        .Range("A1").ColumnWidth = 0.5
        
        .Range("B2").Value = FileID & "_テーブル"
        
        .Range("B4").Value = "開催情報"
        .Range("C4").Value = "種別ID"
        .Range("D4").Value = "区分"
        .Range("E4").Value = "データ作成"
        
        .Range("F4").Value = "開催年月日"
        .Range("G4").Value = "場所"
        .Range("H4").Value = "回次"
        .Range("I4").Value = "日次"
        .Range("J4").Value = "ﾚｰｽNo"
        
        .Range("K4").Value = "登録頭数"
        .Range("L4").Value = "出走頭数"
        
        .Range("M4").Value = "三連単発売"
        .Range("N4").Value = "返還馬番"
        
        For q = 0 To 79
            .Cells(4, 15 + 3 * q).Value = "三単" & Format(q + 1, "00") & "番"
            .Cells(4, 16 + 3 * q).Value = "三単" & Format(q + 1, "00") & "票数"
            .Cells(4, 17 + 3 * q).Value = "三単" & Format(q + 1, "00") & "人気"
        Next q
                            
        .Cells(4, 255).Value = "三連単票数計"
        .Cells(4, 256).Value = "三連単返還票数計"
        
    End With
    Return
    
End Sub

３．”オッズ１（O1）”を展開するサブルーチン（DisplayO1DataOnWorksheet)

'********************** ワークシートに"O1"データを表示(Top) **********************

Sub DisplayO1DataOnWorksheet(ByVal FileID As String, ByVal DataSu As Long)
    Dim p As Long, q As Long
    Dim A$
    
    '* ワークシートにタイトルを表示
    GoSub DisplayTitle
    
    Select Case FileID
    
    Case "O1_RACE"
        O1DataSu = DataSu
        For p = 1 To O1DataSu
            
            '* 配列をデータ関数にセット
            Call SetData_O1(O1Data(p), mO1Data)
            
            '* ワークシートに表示
            GoSub DisplayToWorksheet
            
        Next p
        
    End Select
        
    '* テーブル名をセット
    O1Table = Worksheets(FileID).Range("B2").Value
    
    '* セル幅を自動調整
    Worksheets(FileID).Range("B4").CurrentRegion.EntireColumn.AutoFit
    
    Exit Sub
    '*--------------------------------------------------------
    '*                  サブルーチン
    '*--------------------------------------------------------
    '* ワークシートに表示
DisplayToWorksheet:
    With Worksheets(FileID)
        .Activate
        
        With mO1Data.ID
            KAISAIJOHO = .Year & .MonthDay & .JyoCD & .KAIJI & .NICHIJI & .RaceNum
        End With
        
        .Range("B1").Value = p
        
        .Range("B" & 4 + p).Value = "'" & KAISAIJOHO
        
        .Range("C" & 4 + p).Value = "'" & mO1Data.head.RecordSpec
        .Range("D" & 4 + p).Value = "'" & mO1Data.head.DataKubun
        .Range("E" & 4 + p).Value = "'" & mO1Data.head.MakeDate.Year & _
            mO1Data.head.MakeDate.Month & mO1Data.head.MakeDate.Day
            
        .Range("F" & 4 + p).Value = "'" & mO1Data.ID.Year & mO1Data.ID.MonthDay
        .Range("G" & 4 + p).Value = "'" & mO1Data.ID.JyoCD
        .Range("H" & 4 + p).Value = "'" & mO1Data.ID.KAIJI
        .Range("I" & 4 + p).Value = "'" & mO1Data.ID.NICHIJI
        .Range("J" & 4 + p).Value = "'" & mO1Data.ID.RaceNum
        
        .Range("K" & 4 + p).Value = "'" & mO1Data.HappyoTime.Month & mO1Data.HappyoTime.Day & _
            mO1Data.HappyoTime.Hour & mO1Data.HappyoTime.Minute
        
        .Range("L" & 4 + p).Value = "'" & mO1Data.TorokuTosu
        .Range("M" & 4 + p).Value = "'" & mO1Data.SyussoTosu
        
        .Range("N" & 4 + p).Value = mO1Data.TansyoFlag
        .Range("O" & 4 + p).Value = mO1Data.FukusyoFlag
        .Range("P" & 4 + p).Value = mO1Data.WakurenFlag
        
        .Range("Q" & 4 + p).Value = mO1Data.FukuChakuBaraiKey
        
'        A$ = ""
        For q = 0 To 17
            .Cells(4 + p, 18 + q).Value = "'" & mO1Data.OddsTansyoInfo(q).UMABAN & mO1Data.OddsTansyoInfo(q).ODDS & _
                mO1Data.OddsTansyoInfo(q).NINKI
        Next q
        
'        A$ = ""
        For q = 0 To 17
            .Cells(4 + p, 36 + q).Value = "'" & mO1Data.OddsFukusyoInfo(q).UMABAN & mO1Data.OddsFukusyoInfo(q).OddsLow & _
                mO1Data.OddsFukusyoInfo(q).OddsHigh & mO1Data.OddsFukusyoInfo(q).NINKI
        Next q
        
'        A$ = ""
        For q = 0 To 35
            .Cells(4 + p, 54 + q).Value = "'" & mO1Data.OddsWakurenInfo(q).KUMI & mO1Data.OddsWakurenInfo(q).ODDS & _
                mO1Data.OddsWakurenInfo(q).NINKI
        Next q
        
        .Cells(4 + p, 90).Value = Format(Val(mO1Data.TotalHyosuTansyo) / 100, "###,###,###")
        .Cells(4 + p, 91).Value = Format(Val(mO1Data.TotalHyosuFukusyo) / 100, "###,###,###")
        .Cells(4 + p, 92).Value = Format(Val(mO1Data.TotalHyosuWakuren) / 100, "###,###,###")
        
    End With
                    
    Return
    '*--------------------------------------------------------
    '* ワークシートにタイトルを表示
DisplayTitle:
    With Worksheets(FileID)
        .Activate
    
        '*タイトル記入
        .Cells.Clear
    
        .Range("A1").ColumnWidth = 0.5
        
        .Range("B2").Value = FileID & "_テーブル"
        
        .Range("B4").Value = "開催情報"
        .Range("C4").Value = "種別ID"
        .Range("D4").Value = "区分"
        .Range("E4").Value = "データ作成"
        
        .Range("F4").Value = "開催年月日"
        .Range("G4").Value = "場所"
        .Range("H4").Value = "回次"
        .Range("I4").Value = "日次"
        .Range("J4").Value = "ﾚｰｽNo"
        
        .Range("K4").Value = "発表時刻"
        
        .Range("L4").Value = "登録頭数"
        .Range("M4").Value = "出走頭数"
        
        .Range("N4").Value = "単勝発売"
        .Range("O4").Value = "複勝発売"
        .Range("P4").Value = "枠連発売"
        
        .Range("Q4").Value = "複勝着払"
        
        For q = 0 To 17
'            .Cells(4, 52 + 28 * (q - 1)).Value = "単票" & Format(q + 1, "00") & "番"
            .Cells(4, 18 + q).Value = "単勝" & Format(q + 1, "00") & "ﾃﾞｰﾀ"
'            .Cells(4, 25 + 2 * q).Value = "'" & Format(q + 1, "00") & "人気"
        Next q
        
        For q = 0 To 17
'            .Cells(4, 52 + 28 * (q - 1)).Value = "単票" & Format(q + 1, "00") & "番"
            .Cells(4, 36 + q).Value = "複勝" & Format(q + 1, "00") & "ﾃﾞｰﾀ"
'            .Cells(4, 25 + 2 * q).Value = "'" & Format(q + 1, "00") & "人気"
        Next q
        
        
        For q = 0 To 35
            .Cells(4, 54 + q).Value = "枠連" & Format(q + 1, "000") & "ﾃﾞｰﾀ"
'            .Cells(4, 61 + 3 * q).Value = "馬連" & Format(q + 1, "00") & "票数"
'            .Cells(4, 62 + 3 * q).Value = "馬連" & Format(q + 1, "00") & "人気"
        Next q
                    
        .Cells(4, 90).Value = "単勝票数計"
        .Cells(4, 91).Value = "複勝票数計"
        .Cells(4, 92).Value = "枠連票数計"
        
    End With
    Return
    
End Sub

プログラムのポイント
単勝・複勝・枠連オッズを表示する方法は、馬番（組番）＋オッズ＋人気順を１つの文字列に連結してセルに表示します。

４．”オッズ２（O２）”を展開するサブルーチン（DisplayO2DataOnWorksheet)

'********************** ワークシートに"O2"データを表示(Top) **********************

Sub DisplayO2DataOnWorksheet(ByVal FileID As String, ByVal DataSu As Long)
    Dim p As Long, q As Long
    Dim A$
        
    '* ワークシートにタイトルを表示
    GoSub DisplayTitle
    
    Select Case FileID
    
    Case "O2_RACE"
        O2DataSu = DataSu
        For p = 1 To O2DataSu
            
            '* 配列をデータ関数にセット
            Call SetData_O2(O2Data(p), mO2Data)
            
            '* ワークシートに表示
            GoSub DisplayToWorksheet
            
        Next p
        
    End Select
        
    '* テーブル名をセット
    O2Table = Worksheets(FileID).Range("B2").Value
    
    '* セル幅を自動調整
    Worksheets(FileID).Range("B4").CurrentRegion.EntireColumn.AutoFit
    
    Exit Sub
    '*--------------------------------------------------------
    '*                  サブルーチン
    '*--------------------------------------------------------
    '* ワークシートに表示
DisplayToWorksheet:
    With Worksheets(FileID)
        .Activate
        
        With mO2Data.ID
            KAISAIJOHO = .Year & .MonthDay & .JyoCD & .KAIJI & .NICHIJI & .RaceNum
        End With
        
        .Range("B1").Value = p
        
        .Range("B" & 4 + p).Value = "'" & KAISAIJOHO
        
        .Range("C" & 4 + p).Value = "'" & mO2Data.head.RecordSpec
        .Range("D" & 4 + p).Value = "'" & mO2Data.head.DataKubun
        .Range("E" & 4 + p).Value = "'" & mO2Data.head.MakeDate.Year & _
            mO2Data.head.MakeDate.Month & mO2Data.head.MakeDate.Day
            
        .Range("F" & 4 + p).Value = "'" & mO2Data.ID.Year & mO2Data.ID.MonthDay
        .Range("G" & 4 + p).Value = "'" & mO2Data.ID.JyoCD
        .Range("H" & 4 + p).Value = "'" & mO2Data.ID.KAIJI
        .Range("I" & 4 + p).Value = "'" & mO2Data.ID.NICHIJI
        .Range("J" & 4 + p).Value = "'" & mO2Data.ID.RaceNum
        
        .Range("K" & 4 + p).Value = "'" & mO2Data.HappyoTime.Month & mO2Data.HappyoTime.Day & _
            mO2Data.HappyoTime.Hour & mO2Data.HappyoTime.Minute
        
        .Range("L" & 4 + p).Value = "'" & mO2Data.TorokuTosu
        .Range("M" & 4 + p).Value = "'" & mO2Data.SyussoTosu
        
        .Range("N" & 4 + p).Value = mO2Data.UmarenFlag
        
'        A$ = ""
        For q = 0 To 152
            .Cells(4 + p, 15 + q).Value = "'" & mO2Data.OddsUmarenInfo(q).KUMI & mO2Data.OddsUmarenInfo(q).ODDS & _
                mO2Data.OddsUmarenInfo(q).NINKI
        Next q
        
        .Cells(4 + p, 168).Value = Format(Val(mO2Data.TotalHyosuUmaren) / 100, "###,###,###")
        
    End With
                    
    Return
    '*--------------------------------------------------------
    '* ワークシートにタイトルを表示
DisplayTitle:
    With Worksheets(FileID)
        .Activate
    
        '*タイトル記入
        .Cells.Clear
    
        .Range("A1").ColumnWidth = 0.5
        
        .Range("B2").Value = FileID & "_テーブル"
        
        .Range("B4").Value = "開催情報"
        .Range("C4").Value = "種別ID"
        .Range("D4").Value = "区分"
        .Range("E4").Value = "データ作成"
        
        .Range("F4").Value = "開催年月日"
        .Range("G4").Value = "場所"
        .Range("H4").Value = "回次"
        .Range("I4").Value = "日次"
        .Range("J4").Value = "ﾚｰｽNo"
        
        .Range("K4").Value = "発表時刻"
        
        .Range("L4").Value = "登録頭数"
        .Range("M4").Value = "出走頭数"
        
        .Range("N4").Value = "馬連発売"
                
        For q = 0 To 152
'            .Cells(4, 52 + 28 * (q - 1)).Value = "単票" & Format(q + 1, "00") & "番"
            .Cells(4, 15 + q).Value = "馬連" & Format(q + 1, "000") & "ﾃﾞｰﾀ"
'            .Cells(4, 25 + 2 * q).Value = "'" & Format(q + 1, "00") & "人気"
        Next q
        
        .Cells(4, 168).Value = "馬連票数計"
        
    End With
    Return
    
End Sub

プログラムのポイント
馬連オッズを表示する方法は、組番＋オッズ＋人気順を１つの文字列に連結してセルに表示します。

５．”オッズ３（O３）”を展開するサブルーチン（DisplayO3DataOnWorksheet)

'********************** ワークシートに"O3"データを表示(Top) **********************

Sub DisplayO3DataOnWorksheet(ByVal FileID As String, ByVal DataSu As Long)
    Dim p As Long, q As Long
    Dim A$
    
    '* ワークシートにタイトルを表示
    GoSub DisplayTitle
    
    Select Case FileID
    
    Case "O3_RACE"
        O3DataSu = DataSu
        For p = 1 To O3DataSu
            
            '* 配列をデータ関数にセット
            Call SetData_O3(O3Data(p), mO3Data)
            
            '* ワークシートに表示
            GoSub DisplayToWorksheet
            
        Next p
        
    End Select
        
    '* テーブル名をセット
    O3Table = Worksheets(FileID).Range("B2").Value
    
    '* セル幅を自動調整
    Worksheets(FileID).Range("B4").CurrentRegion.EntireColumn.AutoFit
    
    Exit Sub
    '*--------------------------------------------------------
    '*                  サブルーチン
    '*--------------------------------------------------------
    '* ワークシートに表示
DisplayToWorksheet:
    With Worksheets(FileID)
        .Activate
        
        With mO3Data.ID
            KAISAIJOHO = .Year & .MonthDay & .JyoCD & .KAIJI & .NICHIJI & .RaceNum
        End With
        
        .Range("B1").Value = p
        
        .Range("B" & 4 + p).Value = "'" & KAISAIJOHO
        
        .Range("C" & 4 + p).Value = "'" & mO3Data.head.RecordSpec
        .Range("D" & 4 + p).Value = "'" & mO3Data.head.DataKubun
        .Range("E" & 4 + p).Value = "'" & mO3Data.head.MakeDate.Year & _
            mO3Data.head.MakeDate.Month & mO3Data.head.MakeDate.Day
            
        .Range("F" & 4 + p).Value = "'" & mO3Data.ID.Year & mO3Data.ID.MonthDay
        .Range("G" & 4 + p).Value = "'" & mO3Data.ID.JyoCD
        .Range("H" & 4 + p).Value = "'" & mO3Data.ID.KAIJI
        .Range("I" & 4 + p).Value = "'" & mO3Data.ID.NICHIJI
        .Range("J" & 4 + p).Value = "'" & mO3Data.ID.RaceNum
        
        .Range("K" & 4 + p).Value = "'" & mO3Data.HappyoTime.Month & mO3Data.HappyoTime.Day & _
            mO3Data.HappyoTime.Hour & mO3Data.HappyoTime.Minute
        
        .Range("L" & 4 + p).Value = "'" & mO3Data.TorokuTosu
        .Range("M" & 4 + p).Value = "'" & mO3Data.SyussoTosu
        
        .Range("N" & 4 + p).Value = mO3Data.WideFlag
        
'        A$ = ""
        For q = 0 To 152
            .Cells(4 + p, 15 + q).Value = "'" & mO3Data.OddsWideInfo(q).KUMI & mO3Data.OddsWideInfo(q).OddsLow & _
                mO3Data.OddsWideInfo(q).OddsHigh & mO3Data.OddsWideInfo(q).NINKI
        Next q
        
        .Cells(4 + p, 168).Value = Format(Val(mO3Data.TotalHyosuWide) / 100, "###,###,###")
        
    End With
                    
    Return
    '*--------------------------------------------------------
    '* ワークシートにタイトルを表示
DisplayTitle:
    With Worksheets(FileID)
        .Activate
    
        '*タイトル記入
        .Cells.Clear
    
        .Range("A1").ColumnWidth = 0.5
        
        .Range("B2").Value = FileID & "_テーブル"
        
        .Range("B4").Value = "開催情報"
        .Range("C4").Value = "種別ID"
        .Range("D4").Value = "区分"
        .Range("E4").Value = "データ作成"
        
        .Range("F4").Value = "開催年月日"
        .Range("G4").Value = "場所"
        .Range("H4").Value = "回次"
        .Range("I4").Value = "日次"
        .Range("J4").Value = "ﾚｰｽNo"
        
        .Range("K4").Value = "発表時刻"
        
        .Range("L4").Value = "登録頭数"
        .Range("M4").Value = "出走頭数"
        
        .Range("N4").Value = "ﾜｲﾄﾞ発売"
                
        For q = 0 To 152
            .Cells(4, 15 + q).Value = "ﾜｲﾄﾞ" & Format(q + 1, "000") & "ﾃﾞｰﾀ"
        Next q
        
        .Cells(4, 168).Value = "ﾜｲﾄﾞ票数計"
        
    End With
    Return
    
End Sub

プログラムのポイント
ワイドオッズを表示する方法は、組番＋オッズ＋人気順を１つの文字列に連結してセルに表示します。

６．”オッズ４（O４）”を展開するサブルーチン（DisplayO4DataOnWorksheet)

'********************** ワークシートに"O4"データを表示(Top) **********************

Sub DisplayO4DataOnWorksheet(ByVal FileID As String, ByVal DataSu As Long)
    Dim p As Long, q As Long
    Dim A$
    
    '* ワークシートにタイトルを表示
    GoSub DisplayTitle

    Select Case FileID

    Case "O4_RACE"
        O4DataSu = DataSu
        For p = 1 To O4DataSu
            
            '* 配列をデータ関数にセット
            Call SetData_O4(O4Data(p), mO4Data)

            '* ワークシートに表示
            GoSub DisplayToWorksheet

        Next p

    End Select

    '* テーブル名をセット
    O4Table = Worksheets(FileID).Range("B2").Value
    
    '* セル幅を自動調整
    Worksheets(FileID).Range("B4").CurrentRegion.EntireColumn.AutoFit
    
    Exit Sub
    '*--------------------------------------------------------
    '*                  サブルーチン
    '*--------------------------------------------------------
    '* ワークシートに表示
DisplayToWorksheet:
    With Worksheets(FileID)
        .Activate

        With mO4Data.ID
            KAISAIJOHO = .Year & .MonthDay & .JyoCD & .KAIJI & .NICHIJI & .RaceNum
        End With

        .Range("B1").Value = p

        .Range("B" & 4 + p).Value = "'" & KAISAIJOHO

        .Range("C" & 4 + p).Value = "'" & mO4Data.head.RecordSpec
        .Range("D" & 4 + p).Value = "'" & mO4Data.head.DataKubun
        .Range("E" & 4 + p).Value = "'" & mO4Data.head.MakeDate.Year & _
            mO4Data.head.MakeDate.Month & mO4Data.head.MakeDate.Day

        .Range("F" & 4 + p).Value = "'" & mO4Data.ID.Year & mO4Data.ID.MonthDay
        .Range("G" & 4 + p).Value = "'" & mO4Data.ID.JyoCD
        .Range("H" & 4 + p).Value = "'" & mO4Data.ID.KAIJI
        .Range("I" & 4 + p).Value = "'" & mO4Data.ID.NICHIJI
        .Range("J" & 4 + p).Value = "'" & mO4Data.ID.RaceNum

        .Range("K" & 4 + p).Value = "'" & mO4Data.HappyoTime.Month & mO4Data.HappyoTime.Day & _
            mO4Data.HappyoTime.Hour & mO4Data.HappyoTime.Minute

        .Range("L" & 4 + p).Value = "'" & mO4Data.TorokuTosu
        .Range("M" & 4 + p).Value = "'" & mO4Data.SyussoTosu

        .Range("N" & 4 + p).Value = mO4Data.UmatanFlag

'        A$ = ""
        For q = 0 To 240
            .Cells(4 + p, 15 + q).Value = "'" & mO4Data.OddsUmatanInfo(q).KUMI & mO4Data.OddsUmatanInfo(q).ODDS & _
                mO4Data.OddsUmatanInfo(q).NINKI
        Next q

        .Cells(4 + p, 256).Value = Format(Val(mO4Data.TotalHyosuUmatan) / 100, "###,###,###")

    End With

    Return
    '*--------------------------------------------------------
    '* ワークシートにタイトルを表示
DisplayTitle:
    With Worksheets(FileID)
        .Activate

        '*タイトル記入
        .Cells.Clear

        .Range("A1").ColumnWidth = 0.5

        .Range("B2").Value = FileID & "_テーブル"

        .Range("B4").Value = "開催情報"
        .Range("C4").Value = "種別ID"
        .Range("D4").Value = "区分"
        .Range("E4").Value = "データ作成"

        .Range("F4").Value = "開催年月日"
        .Range("G4").Value = "場所"
        .Range("H4").Value = "回次"
        .Range("I4").Value = "日次"
        .Range("J4").Value = "ﾚｰｽNo"

        .Range("K4").Value = "発表時刻"

        .Range("L4").Value = "登録頭数"
        .Range("M4").Value = "出走頭数"

        .Range("N4").Value = "馬単発売"

        For q = 0 To 240
            .Cells(4, 15 + q).Value = "馬単" & Format(q + 1, "000") & "ﾃﾞｰﾀ"
        Next q

        .Cells(4, 256).Value = "馬単票数計"

    End With
    Return
    
End Sub

プログラムのポイント
馬単オッズを表示する方法は、組番＋オッズ＋人気順を１つの文字列に連結してセルに表示します。それでもExcelの横方向の最大コラム数（256）を超えるので240組までで打ち切ります。

７．”オッズ５（O５）”を展開するサブルーチン（DisplayO5DataOnWorksheet)

'********************** ワークシートに"O5"データを表示(Top) **********************

Sub DisplayO5DataOnWorksheet(ByVal FileID As String, ByVal DataSu As Long)
    Dim p As Long, q As Long
    Dim A$
    
    '* ワークシートにタイトルを表示
    GoSub DisplayTitle

    Select Case FileID

    Case "O5_RACE"
        O5DataSu = DataSu
        For p = 1 To O5DataSu
            
            '* 配列をデータ関数にセット
            Call SetData_O5(O5Data(p), mO5Data)

            '* ワークシートに表示
            GoSub DisplayToWorksheet

        Next p

    End Select

    '* テーブル名をセット
    O5Table = Worksheets(FileID).Range("B2").Value
    
    '* セル幅を自動調整
    Worksheets(FileID).Range("B4").CurrentRegion.EntireColumn.AutoFit
    
    Exit Sub
    '*--------------------------------------------------------
    '*                  サブルーチン
    '*--------------------------------------------------------
    '* ワークシートに表示
DisplayToWorksheet:
    With Worksheets(FileID)
        .Activate

        With mO5Data.ID
            KAISAIJOHO = .Year & .MonthDay & .JyoCD & .KAIJI & .NICHIJI & .RaceNum
        End With

        .Range("B1").Value = p

        .Range("B" & 4 + p).Value = "'" & KAISAIJOHO

        .Range("C" & 4 + p).Value = "'" & mO5Data.head.RecordSpec
        .Range("D" & 4 + p).Value = "'" & mO5Data.head.DataKubun
        .Range("E" & 4 + p).Value = "'" & mO5Data.head.MakeDate.Year & _
            mO5Data.head.MakeDate.Month & mO5Data.head.MakeDate.Day

        .Range("F" & 4 + p).Value = "'" & mO5Data.ID.Year & mO5Data.ID.MonthDay
        .Range("G" & 4 + p).Value = "'" & mO5Data.ID.JyoCD
        .Range("H" & 4 + p).Value = "'" & mO5Data.ID.KAIJI
        .Range("I" & 4 + p).Value = "'" & mO5Data.ID.NICHIJI
        .Range("J" & 4 + p).Value = "'" & mO5Data.ID.RaceNum

        .Range("K" & 4 + p).Value = "'" & mO5Data.HappyoTime.Month & mO5Data.HappyoTime.Day & _
            mO5Data.HappyoTime.Hour & mO5Data.HappyoTime.Minute

        .Range("L" & 4 + p).Value = "'" & mO5Data.TorokuTosu
        .Range("M" & 4 + p).Value = "'" & mO5Data.SyussoTosu

        .Range("N" & 4 + p).Value = mO5Data.SanrenpukuFlag

'        A$ = ""
        For q = 0 To 240
            .Cells(4 + p, 15 + q).Value = "'" & mO5Data.OddsSanrenInfo(q).KUMI & mO5Data.OddsSanrenInfo(q).ODDS & _
                mO5Data.OddsSanrenInfo(q).NINKI
        Next q

        .Cells(4 + p, 256).Value = Format(Val(mO5Data.TotalHyosuSanrenpuku) / 100, "###,###,###")

    End With

    Return
    '*--------------------------------------------------------
    '* ワークシートにタイトルを表示
DisplayTitle:
    With Worksheets(FileID)
        .Activate

        '*タイトル記入
        .Cells.Clear

        .Range("A1").ColumnWidth = 0.5

        .Range("B2").Value = FileID & "_テーブル"

        .Range("B4").Value = "開催情報"
        .Range("C4").Value = "種別ID"
        .Range("D4").Value = "区分"
        .Range("E4").Value = "データ作成"

        .Range("F4").Value = "開催年月日"
        .Range("G4").Value = "場所"
        .Range("H4").Value = "回次"
        .Range("I4").Value = "日次"
        .Range("J4").Value = "ﾚｰｽNo"

        .Range("K4").Value = "発表時刻"

        .Range("L4").Value = "登録頭数"
        .Range("M4").Value = "出走頭数"

        .Range("N4").Value = "三連複発売"

        For q = 0 To 240
            .Cells(4, 15 + q).Value = "三連複" & Format(q + 1, "000") & "ﾃﾞｰﾀ"
        Next q

        .Cells(4, 256).Value = "三連複票数計"

    End With
    Return
    
End Sub

プログラムのポイント
三連複オッズを表示する方法は、組番＋オッズ＋人気順を１つの文字列に連結してセルに表示します。それでもExcelの横方向の最大コラム数（256）を超えるので240組までで打ち切ります。

８．”オッズ６（O６）”を展開するサブルーチン（DisplayO6DataOnWorksheet)

'********************** ワークシートに"O6"データを表示(Top) **********************

Sub DisplayO6DataOnWorksheet(ByVal FileID As String, ByVal DataSu As Long)
    Dim p As Long, q As Long
    Dim A$
    
    '* ワークシートにタイトルを表示
    GoSub DisplayTitle

    Select Case FileID

    Case "O6_RACE"
        O6DataSu = DataSu
        For p = 1 To O6DataSu
            
            '* 配列をデータ関数にセット
            Call SetData_O6(O6Data(p), mO6Data)

            '* ワークシートに表示
            GoSub DisplayToWorksheet

        Next p

    End Select

    '* テーブル名をセット
    O6Table = Worksheets(FileID).Range("B2").Value
    
    '* セル幅を自動調整
    Worksheets(FileID).Range("B4").CurrentRegion.EntireColumn.AutoFit
    
    Exit Sub
    '*--------------------------------------------------------
    '*                  サブルーチン
    '*--------------------------------------------------------
    '* ワークシートに表示
DisplayToWorksheet:
    With Worksheets(FileID)
        .Activate

        With mO6Data.ID
            KAISAIJOHO = .Year & .MonthDay & .JyoCD & .KAIJI & .NICHIJI & .RaceNum
        End With

        .Range("B1").Value = p

        .Range("B" & 4 + p).Value = "'" & KAISAIJOHO

        .Range("C" & 4 + p).Value = "'" & mO6Data.head.RecordSpec
        .Range("D" & 4 + p).Value = "'" & mO6Data.head.DataKubun
        .Range("E" & 4 + p).Value = "'" & mO6Data.head.MakeDate.Year & _
            mO6Data.head.MakeDate.Month & mO6Data.head.MakeDate.Day

        .Range("F" & 4 + p).Value = "'" & mO6Data.ID.Year & mO6Data.ID.MonthDay
        .Range("G" & 4 + p).Value = "'" & mO6Data.ID.JyoCD
        .Range("H" & 4 + p).Value = "'" & mO6Data.ID.KAIJI
        .Range("I" & 4 + p).Value = "'" & mO6Data.ID.NICHIJI
        .Range("J" & 4 + p).Value = "'" & mO6Data.ID.RaceNum

        .Range("K" & 4 + p).Value = "'" & mO6Data.HappyoTime.Month & mO6Data.HappyoTime.Day & _
            mO6Data.HappyoTime.Hour & mO6Data.HappyoTime.Minute

        .Range("L" & 4 + p).Value = "'" & mO6Data.TorokuTosu
        .Range("M" & 4 + p).Value = "'" & mO6Data.SyussoTosu

        .Range("N" & 4 + p).Value = mO6Data.SanrentanFlag

'        A$ = ""
        For q = 0 To 240
            .Cells(4 + p, 15 + q).Value = "'" & mO6Data.OddsSanrentanInfo(q).KUMI & mO6Data.OddsSanrentanInfo(q).ODDS & _
                mO6Data.OddsSanrentanInfo(q).NINKI
        Next q

        .Cells(4 + p, 256).Value = Format(Val(mO6Data.TotalHyosuSanrentan) / 100, "###,###,###")

    End With

    Return
    '*--------------------------------------------------------
    '* ワークシートにタイトルを表示
DisplayTitle:
    With Worksheets(FileID)
        .Activate

        '*タイトル記入
        .Cells.Clear

        .Range("A1").ColumnWidth = 0.5

        .Range("B2").Value = FileID & "_テーブル"

        .Range("B4").Value = "開催情報"
        .Range("C4").Value = "種別ID"
        .Range("D4").Value = "区分"
        .Range("E4").Value = "データ作成"

        .Range("F4").Value = "開催年月日"
        .Range("G4").Value = "場所"
        .Range("H4").Value = "回次"
        .Range("I4").Value = "日次"
        .Range("J4").Value = "ﾚｰｽNo"

        .Range("K4").Value = "発表時刻"

        .Range("L4").Value = "登録頭数"
        .Range("M4").Value = "出走頭数"

        .Range("N4").Value = "三連単発売"

        For q = 0 To 240
            .Cells(4, 15 + q).Value = "三連単" & Format(q + 1, "000") & "ﾃﾞｰﾀ"
        Next q

        .Cells(4, 256).Value = "三連単票数計"

    End With
    Return
    
End Sub

プログラムのポイント
三連単オッズを表示する方法は、組番＋オッズ＋人気順を１つの文字列に連結してセルに表示します。それでもExcelの横方向の最大コラム数（256）を超えるので240組までで打ち切ります。

(06-09-19追加）
下記のコードを前回のサブルーチンWorksheet_BeforeDoubleClickの中のサブルーチンに追加します。
追加するのは２種類あります。
（１）内部サブルーチン"OpenFileData"の中に追加するコード
追加する場所は前回の　Case "HR" のブロックの下と　End Select の間です。

    Case "H1"       '* 票数１
        H1DataSu = FileLen(CopyFile$) / H1DataSize
        ReDim H1Data(1 To H1DataSu) As String
        
        For q = 1 To H1DataSu
            Line Input #FN, H1Data(q)
        Next q
        
    Case "H6"       '* 票数６
        H6DataSu = FileLen(CopyFile$) / H6DataSize
        ReDim H6Data(1 To H6DataSu) As String
        
        For q = 1 To H6DataSu
            Line Input #FN, H6Data(q)
        Next q
    
    Case "O1"       '* オッズ１（単複枠）
        O1DataSu = FileLen(CopyFile$) / O1DataSize
        ReDim O1Data(1 To O1DataSu) As String
        
        For q = 1 To O1DataSu
            Line Input #FN, O1Data(q)
        Next q
        
    Case "O2"       '* オッズ２（馬連）
        O2DataSu = FileLen(CopyFile$) / O2DataSize
        ReDim O2Data(1 To O2DataSu) As String
        
        For q = 1 To O2DataSu
            Line Input #FN, O2Data(q)
        Next q
        
    Case "O3"       '* オッズ３（ワイド）
        O3DataSu = FileLen(CopyFile$) / O3DataSize
        ReDim O3Data(1 To O3DataSu) As String
        
        For q = 1 To O3DataSu
            Line Input #FN, O3Data(q)
        Next q
        
    Case "O4"       '* オッズ４（馬単）
        O4DataSu = FileLen(CopyFile$) / O4DataSize
        ReDim O4Data(1 To O4DataSu) As String
        
        For q = 1 To O4DataSu
            Line Input #FN, O4Data(q)
        Next q
        
    Case "O5"       '* オッズ５（三連複）
        O5DataSu = FileLen(CopyFile$) / O5DataSize
        ReDim O5Data(1 To O5DataSu) As String
        
        For q = 1 To O5DataSu
            Line Input #FN, O5Data(q)
        Next q
        
    Case "O6"       '* オッズ６（三連単）
        O6DataSu = FileLen(CopyFile$) / O6DataSize
        ReDim O6Data(1 To O6DataSu) As String
        
        For q = 1 To O6DataSu
            Line Input #FN, O6Data(q)
        Next q

（２）内部サブルーチン"JVDataSetAndDisplay"の中に追加するコード
追加する場所は前回の
Case "HR" '* 払戻表示
　　Call DisplayHRDataOnWorksheet(FileID, HrDataSu)
とend Select の間です。

    Case "H1"       '* 票数１表示
        Call DisplayH1DataOnWorksheet(FileID, H1DataSu)
    
    Case "H6"       '* 票数６表示
        Call DisplayH6DataOnWorksheet(FileID, H6DataSu)
    
    Case "O1"       '* オッズ１（単複枠）表示
        Call DisplayO1DataOnWorksheet(FileID, O1DataSu)
    
    Case "O2"       '* オッズ２（馬連）表示
        Call DisplayO2DataOnWorksheet(FileID, O2DataSu)
    
    Case "O3"       '* オッズ３（ワイド）表示
        Call DisplayO3DataOnWorksheet(FileID, O3DataSu)
    
    Case "O4"       '* オッズ４（馬単）表示
        Call DisplayO4DataOnWorksheet(FileID, O4DataSu)
    
    Case "O5"       '* オッズ５（三連複）表示
        Call DisplayO5DataOnWorksheet(FileID, O5DataSu)
    
    Case "O6"       '* オッズ６（三連単）表示
        Call DisplayO6DataOnWorksheet(FileID, O6DataSu)

以上で”レース情報[RACE]”データをワークシートに展開するサブルーチンは終了です。
上書き保存してください。

（06-09-23追加）
下記の２つのコードを追加します。
標準モジュールを追加して"mMod4"として下記のコードを記述してください。記述は１行のみです。

Public mO6Data As JV_O6_ODDS_SANRENTAN         '三連単オッズ定義

標準モジュールを追加して"mMod5"として下記のコードを記述してください。これも記述は1行です。
Public mH6Data As JV_H6_HYOSU_SANRENTAN '票数６定義

９．プログラムの実行
ファイル名をダブルクリックするとファイル種別に応じたシートに内容が展開されます。

次回は”レース補てん情報[RCOV]”データを展開するサブルーチンを作ります。

ページトップへ


	JRA-VAN Data Lab.対応　競馬プログラム自作教室「JVData Explorer」の作成（第八回）
更新：06-09-23

基礎編 前回に続いて”レース情報[RACE]”の中の”票数１”と”票数２”のデータをワークシートに展開するサブルーチンを作ります。特に断りのない限り"Top"シートのコードウィンドウに追加します。

基礎編

前回に続いて”レース情報[RACE]”の中の”票数１”と”票数２”のデータをワークシートに展開するサブルーチンを作ります。特に断りのない限り"Top"シートのコードウィンドウに追加します。