じゃばのひまつぶし：ExcelVBAによる競馬ソフト自作教室とJRA-VAN登録ソフト（おずたんシリーズ）のサポートサイトです。

JRA-VAN Data Lab対応競馬ソフト自作教室

<New JVData Explorer> 基礎編：レース情報展開２

第８回

更新日
2012-01-14

前回に続いて”レース情報[RACE]”の中の”票数１”、”票数２”、”オッズ１”～”オッズ６”のデータをワークシートに展開するサブルーチンを作ります。特に断りのない限り"Top"シートのコードウィンドウに追加します。
１．”票数１（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 '発売有無フラグ(0:発売なし、1:発売前取消、3:発売後取消、7:発売あり） .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) '３連複 '複勝払い戻しキー（0:複勝発売なし、2:２着まで払い、3:３着まで払い） .Range("T" & 4 + p).Value = mH1Data.FukuChakuBaraiKey '返還馬番情報（0:返還なし、1:返還あり） A$ = "" For q = 0 To 27 A$ = A$ & mH1Data.HenkanUma(q) Next q '上記の結果は、たとえば馬番３が返還の場合、"00100000000000000000000000"のようになる） .Range("U" & 4 + p).Value = "'" & A$ '返還馬番情報結果 '返還枠番情報（0:返還なし、1:返還あり） A$ = "" For q = 0 To 7 A$ = A$ & mH1Data.HenkanWaku(q) Next q .Range("V" & 4 + p).Value = "'" & A$ '返還同枠情報(0:返還なし、1:返還あり) A$ = "" For q = 0 To 7 A$ = A$ & mH1Data.HenkanDoWaku(q) Next q '例：枠連7-7の同枠取消の場合”00000010”になる） .Range("W" & 4 + p).Value = "'" & A$ '単勝：票数と人気順 For q = 0 To 17 .Cells(4 + p, 24 + 2 * q).Value = Format(mH1Data.HyoTansyo(q).Hyo, "###,###,###") '馬番の単勝票数 .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(mH1Data.HyoUmaren(q).Hyo, "###,###,###") .Cells(4 + p, 62 + 3 * q).Value = "'" & mH1Data.HyoUmaren(q).Ninki Next q '各票数合計 .Cells(4 + p, 240).Value = Format(mH1Data.HyoTotal(0), "###,###,###") .Cells(4 + p, 241).Value = Format(mH1Data.HyoTotal(1), "###,###,###") .Cells(4 + p, 242).Value = Format(mH1Data.HyoTotal(2), "###,###,###") .Cells(4 + p, 243).Value = Format(mH1Data.HyoTotal(3), "###,###,###") .Cells(4 + p, 244).Value = Format(mH1Data.HyoTotal(4), "###,###,###") .Cells(4 + p, 245).Value = Format(mH1Data.HyoTotal(5), "###,###,###") .Cells(4 + p, 246).Value = Format(mH1Data.HyoTotal(6), "###,###,###") '返還票数合計 .Cells(4 + p, 247).Value = Format(mH1Data.HyoTotal(7), "###,###,###") .Cells(4 + p, 248).Value = Format(mH1Data.HyoTotal(8), "###,###,###") .Cells(4 + p, 249).Value = Format(mH1Data.HyoTotal(9), "###,###,###") .Cells(4 + p, 250).Value = Format(mH1Data.HyoTotal(10), "###,###,###") .Cells(4 + p, 251).Value = Format(mH1Data.HyoTotal(11), "###,###,###") .Cells(4 + p, 252).Value = Format(mH1Data.HyoTotal(12), "###,###,###") .Cells(4 + p, 253).Value = Format(mH1Data.HyoTotal(13), "###,###,###") 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] ”票数６”は三連単の票数データです。三連単の組合せのうち最初の80組を表示します。 '******************** ワークシートに票数（"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(mH6Data.HyoSanrentan(q).Hyo, "###,###,###") .Cells(4 + p, 17 + 3 * q).Value = "'" & mH6Data.HyoSanrentan(q).Ninki Next q .Cells(4 + p, 255).Value = Format(mH6Data.HyoTotal(0), "###,###,###") .Cells(4 + p, 256).Value = Format(mH6Data.HyoTotal(1), "###,###,###") 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”の頭は英字の”オー”です。”O1”は単複・枠連オッズのデータです。 '******************** ワークシートに"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 プログラムのポイント単勝・複勝・枠連オッズを表示する方法は、馬番（組番）＋オッズ(10倍表示)＋人気順を１つの文字列に連結して１つのセルに表示します。実際に使うときは文字列から分解します。オッズは常に整数で表示されるので、実際には10で割ったものが実オッズになります。（１）単勝の場合・・・馬番(2ケタ)＋オッズ(4ケタ)＋人気順(2ケタ）。例："10012305"→馬番10、単勝オッズ12.3倍、5番人気。（２）複勝・・・馬番(2ケタ）＋最低オッズ(4ケタ）＋最高オッズ(4ケタ)＋人気順(2ケタ)。例：”050030005503”→馬番05、複勝オッズ（3.0倍～5.5倍)、3番人気。（３）枠連・・・枠番(2ケタ)＋オッズ(5ケタ)＋人気順(2ケタ）。例：”881234530”→枠番8-8、オッズ1234.5倍、30番人気。枠番の組合せの表示は、1-1、1-2、・・・1-8といき、2-2、2-3・・・と続き、最後は8-8ですが、頭数により、組合せがない場合もこの順序は変わらず、抜ける組合せの部分は空白となります。
４．”オッズ２（O２）”を展開するサブルーチン[DisplayO2DataOnWorksheet] ”O２”は馬連オッズです。 '******************** ワークシートに"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 プログラムのポイント馬連オッズを表示する方法は、組番(4ケタ)＋オッズ(6ケタ)＋人気順(3ケタ)を１つの文字列に連結して１つのセルに表示します。（例）”0110001252030”→馬番(01-10)、オッズ125.2倍、30番人気。馬番の組合せの表示は、01-02、01-03・・・01-18、02-03・・・と進み、最後は17-18となりますが、頭数が少ない場合もこの順番は変わらず、組合せがない順番のところは空白データとなります。たとえば16頭の場合、１番目は01-02、１５番目が01-16となりますが、16番目、17番目は空白で、02-03の組合せは18番目からになります。実際のケースでは、この辺に注意が必要です。
５．”オッズ３（O３）”を展開するサブルーチン[DisplayO3DataOnWorksheet] ”O３”はワイドオッズです。 '******************** ワークシートに"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 プログラムのポイント* ワイドオッズを表示する方法は、組番(4ケタ)＋最低オッズ(5ケタ)＋最高オッズ(5ケタ)＋人気順(3ケタ)を１つの文字列に連結して１つのセルに表示します。（例）”01020332503394084”→組番(01-02)、ワイドオッズ(332.5～394.0倍）、84番人気。
６．”オッズ４（O４）”を展開するサブルーチン[DisplayO4DataOnWorksheet] ”O４”は馬単オッズです。 '******************** ワークシートに"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 プログラムのポイント* 馬単オッズを表示する方法は、組番(4ケタ)＋オッズ(6ケタ)＋人気順(3ケタ)を１つの文字列に連結してセルに表示します。それでもExcelの横方向の最大コラム数（256）を超えるので240組までで打ち切ります。（例）”1412001160040”→馬単(14-12)、オッズ116.0倍、40番人気。馬単の場合、馬連と逆の組合せもあるので、若干複雑になります。１番目は01-02、２番目01-03・・・01-18の次は、02-01、02-03・・・となります。頭数により欠ける組合せは空白データとなりますが、順番は変わりません。
７．”オッズ５（O５）”を展開するサブルーチン[DisplayO5DataOnWorksheet] ”O５”は三連複オッズです。 '******************** ワークシートに"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 プログラムのポイント* 三連複オッズを表示する方法は、組番(6ケタ)＋オッズ(6ケタ)＋人気順(3ケタ)を１つの文字列に連結してセルに表示します。それでもExcelの横方向の最大コラム数（256）を超えるので240組までで打ち切ります。（例）"010203023456231”→組番(01-02-03）、オッズ2345.6倍、231番人気。
８．”オッズ６（O６）”を展開するサブルーチン[DisplayO6DataOnWorksheet] ”O６”は三連単オッズです。 '******************** ワークシートに"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 プログラムのポイント* 三連単オッズを表示する方法は、組番(6ケタ)＋オッズ(7ケタ)＋人気順(4ケタ)を１つの文字列に連結してセルに表示します。それでもExcelの横方向の最大コラム数（256）を超えるので240組までで打ち切ります。（例）”01020301234561234”→組番(01-02-03)、オッズ12345.6倍、1234番人気。
９．前回のサブルーチン[Worksheet_BeforeDoubleClick]の中のサブルーチンに追加するコード(Topシート)。追加するのは２種類あります。（１）内部サブルーチン"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) '[第８回]ここまで
１０．さらに標準モジュールを２つ追加して、それぞれに下記の２つのコードを追加します。標準モジュールを追加して"mMod4"として下記のコードを記述してください。記述は１行のみです。これは三連単のオッズの定義です。 Public mO6Data As JV_O6_ODDS_SANRENTAN '三連単オッズ定義標準モジュールを追加して"mMod5"として下記のコードを記述してください。これも記述は1行です。これは三連単の票数の定義です。 Public mH6Data As JV_H6_HYOSU_SANRENTAN '票数６定義（注意）三連単のオッズと票数の定義は上記のように標準モジュールを分ける必要があります。理由は必要メモリ量が多いためのようです。以上で”レース情報[RACE]”データをワークシートに展開するサブルーチンは終了です。上書き保存してください。
１１．プログラムの実行ファイル名をダブルクリックするとファイル種別に応じたシートに内容が展開されます。票数（H6)の展開はかなり時間がかかります。
次回は”レース補てん情報[RCOV]”データを展開するサブルーチンを作ります。

ページトップへ