【Excel】自作した（競走）結果Dのヘッダーと明細の見出しを公開

自作データベース「結果Dのヘッダーと明細の見出し」

マクロで半自動化！go!go!!program…

【Excel】Chromeから手動でコピペ ExcelVBAで加工しDB投入 手動でコピペ後、ExcelVBAを実行しデータベース投入用の表に変換 JRAホームページからサンプルをExcelにコピペする 2022.08.07新潟競馬場1R-12R出馬表レース選択の画面 She…

結果データの見出しを縦に表示するVBAを作成する

Excelシートをデータ投入に利用すると、１行目に見出し２行目以降にデータとなるためブログ表示する上で、横幅の制限があるので、見出しを縦に展開した方が見やすくなるのでExcelVBAモジュールを作成し便宜上、１行目の見出し項目を縦展開した文字列を表記する。

Sub Midashi_KekkaSET()
Dim RET As Variant
    RET = DTL_MIDASITate("表H", "結果H見出し一覧縦")
    RET = DTL_MIDASITate("表D", "結果D見出し一覧縦")
End Sub

Function DTL_MIDASITate(sh1, sh2)
Dim j As Integer
Dim wk_nm1 As String
    Sheets(sh2).Select ここをコメントにするとシートの移動をしない
    Sheets(sh2).Cells(1, 1) = "No."
    Sheets(sh2).Cells(1, 2) = "項目"
    j = 1
    Do Until CHRCVT(Sheets(sh1).Cells(1, j)) = ""
        'Ａ列に順
        Sheets(sh2).Cells(j + 1, 1) = j
        '見出しをＢ列に表示させる
        Sheets(sh2).Cells(j + 1, 2) = Trim(Sheets(sh1).Cells(1, j))
        j = j + 1
    Loop
End Function

Function CHRCVT(r) As String
     If IsNull(r) Then
         CHRCVT = ""
     Else
         CHRCVT = Trim(r)
     End If
End Function

Sub A1RC1Display()
    If Application.ReferenceStyle = xlA1 Then
        Application.ReferenceStyle = xlR1C1
    Else
        Application.ReferenceStyle = xlA1
    End If
End Sub

今までこのブログで使った自作関数を利用して作成している。

実際に使用している原表のシート名

• 表H：結果データのヘッダー（払戻しやレース情報など）
• 表D：結果データの明細（着順やコーナー順、単複オッズなど）

表H

※2019.12月作成時から大きな変更はない。

表D

※2019.12月作成時から以後に「ブリンカー」欄を追加したので、最終行にブリンカー項目がある。

コーナー通過順位（1C-2C-3C-4C)は後から追加になった項目

※2019.11月まではコーナー順はレース全体だけで馬別の表示はなかった。

JRAホームページの改編は毎年12月初旬に行われるので、

UWSCやPythonなどでデータスクレイピング（コピペ）していると改編により

ほぼ全てのプログラムの修正をしなくてはならない場合もあり得る。

「自分の予想スタイル」と「カネと時間の余裕」とのバランスになってくるが、競馬を自分の生活のネタにするなら「JRA-VANデータラボ（有料）」は最終的なツールとして一考しておいた方が良い。

私の場合、データ加工がブログネタになっているのもあり「JRA-VANデータラボ（有料）」は未導入だが馬券結果が今後上向きになるようなら導入も一考する。その時はまたココでの発表となるだろう。

コーナー通過順：「競走中止」のデータ処理

※４月に一度パッチを当てているのでかなり苦労したことが分かる。（既にSQL-Serverに投入しているデータはAccessで一括更新） 競走中止の場合、ホームページ上は着順に「中止」と表示される。数字ではないというのがポイントだ。当時私が作っていたデータベースだとこのデータはエラーとして扱われ読み飛ばされていたということが分かった。データベースの仕様から変更するので今から思えば「コーナー通過順」だけ処理を別にしたらよかったと思っている。

コーナー通過順： 2018.12月追加時の苦労

何が苦労したのかというと、2018.11月末までは競走結果の馬毎の明細は１行だったのが、コーナー通過順が追加されたことでExcelにコピペすると複数行になりデータ取得するプログラムが多少複雑になるということ。またコーナーが施行距離により可変であることがプログラムを複雑にさせる要因になる。私はこれを1C-2C-3C-4Cと別枠でデータを格納することで対応した。

• ４Ｃからデータを格納する。
• ’-’を繋ぎにすることで、Excelコピペ時にデフォルトだと日付変換される。

※現在は過去のデータも全てコーナー順が表示されている。

コーナー通過順： Excel貼付け後のサンプル

2020年　京都記念

2020年　フェブラリーＳ

距離によって行が可変になることが分かる。

• 京都記念　１Ｃ-２Ｃ-３Ｃ-４Ｃ
• フェブラリーＳ　　　３Ｃ-４Ｃ

データが１行だと４Ｃだけ２行だと３Ｃ-４Ｃ・・・となる。

これは格納も含め大幅な追加仕様となり厄介な作業となった。実際に４月にデータパッチを当てるまで2018.10月からのデータを新たにコピペし直すという基礎データの作り直しから始めている。本来の予定では過去データを遡り少なくとも2018年は１月からデータ作成する予定だったが、作業工数が膨大になる割に使用頻度が少ないことも踏まえそのまま2018.10月からのデータで良しとする判断とした。

JRAホームページを手動で操作し、過去のレース結果（例：2019.12.28 ホープフルステークス）を閲覧しDB項目の確認をする

JRAホームページ＞レース結果＞過去レース結果検索＞開催年選択「2019」＞開催月選択「12」検索＞中山 ホープフルステークスGⅠ

Excel VBA 逆引き大全 600の極意 Microsoft 365/Office 2021/2019/2016/2013対応

Amazon

楽　天

Excel VBA 逆引き大全 600の極意 Microsoft 365

※私が持っているのが2016年版（以下は2016）

1. ExcelVBAの基本構文
2. セルの操作
3. 関数
4. ワークシート、ウィンドウの操作
5. ブック操作
6. データ操作
7. テーブル・ピボットテーブル
8. 図形
9. グラフ
10. ユーザーフォーム
11. 印刷
12. ファイルとフォルダ
13. データ連携
14. イベント
15. バージョン・トラブルシューティング・エラー処理
16. 高度なテクニック
17. 索引

目次が巻頭で検索が巻末。昔のタイプの本の構成だが、索引がページでなくTipsという見出しNo.になっていて慣れるまでは検索しづらい。
Amazonレビューは★3.9

私のKindle-Unlimited評価は★4

あわせて読みたい

【Excel】を無料で独学で学ぶKindle-Unlimitedのお得な活用方法 Excelを独学で学ぶにはKindle-Unlimited無料期間を有効活用するのがお得 Kindle ビジネスツールの第一歩はWordではなくExcelで文書が打てるようになることの方が大事。…

編集後記

JRA-VANデータラボ（有料）の検討について

• 既に確固たるデータ予想で年間収支を＋にしている攻略法をお持ちの方
• 競馬をネタに情報を発信している方でデータ分析に興味がある方
• 競馬コンテンツをお持ちの方でご自身でもプログラム開発を検討されている方

このような方で年間2.5マンは大したことない金額だよ～という方は自作DB作成より前に（ご存じの通り）
データラボ導入を検討し目的のデータを抽出する方が最短で目的を達成できる。

純粋に馬券的中に傾注するなら、JRA-VANデータラボ（有料）から始めるのがベターな選択といえる。

こんな方は自作データベースを作った方が良いかも知れない！？

• プログラムを組むのが馬券研究より多少好きな方
• ある程度時間に余裕がある方
• たくさんの失敗にめげない方
• 経験をネタに変換できる方
• オリジナリティを価値と評価する方
• JRA-VANデータラボ（有料）のカネが惜しい方

UWSC,Pyton,Power Automate, といった言語に「ピク！」と反応したならば、一度ググってみたら楽しい世界が垣間見えるかもしれない～同志よ～

Windowsを自動化！UWSC逆引き本 Kindle版

Amazon

Windowsを自動化！UWSC逆引き本 Kindle版

1. はじめに
2. UWSCについて
3. UWSCスクリプトをつくる
4. 文字を操作する
5. 配列を操作する
6. ファイルを操作する
7. ウィンドウを操作する
8. システムを制御する
9. ブラウザを操作する
10. Officeスイートを操作する
11. 高度な操作

※Kindle販売なので在庫がなくなることはない？
UWSCの読み物として暇なときに見るようにしている
Amazonレビューは★3.9

私のKindle-Unlimited評価は★3

それでは、またね～😎