【Excel】Webから手動でコピペしExcelVBAでデータ加工しDB投入用に整理する

手動でコピペ後、ExcelVBAを実行しデータベース投入用の表に変換

JRAホームページからサンプルをExcelにコピペする

出走馬ＲＨ（ヘッダー）の作成

1. 出走馬レース選択から「Ctrl+a」→「Ctrl+c」
2. Excelにコピペする（シート名：Sheet1「ALT→HVM」でコピペ）本番ではheadというシート名を使う
   1. キーボード操作「ALT→ＨＶＭ」で貼り付けるか
   2. マウス操作「右クリック→貼り付け先の書式に合わせる(M)」

※　ここから本文です　＋2行目から

※　Copyright © Japan Racing Association All rights reserved.まで

この作業を「ヘッダー、１～１２Ｒ」2場開催だったので24Ｒ（新潟・札幌）行う。

出走馬Ｄ（サンプル版）の作成

※上記は新潟11RレパードSをコピペした参考例：これを12R分手動でコピペしデータベース投入用シートを作成
「シート名：１R～１２R」の出走馬データも同様にコピペする

データベース投入用シートの書式はＤＢの書式に合わせる

コピペなのでイレギュラーなデータも出てくる

これはもう避けようがなく、ある程度予測して作るか分からない項目はとりあえず文字列にしておく。私の場合も当初はExcelシートは「全て選択」→「文字列」で設定しておきAceessでエラーがでる都度対応するようにした。

Excelは自動で変換してくれるのがありがたい機能だが文字列の配列で記号が入ってくると半角「/」「-」「:」は日付や時刻に変換してしまうので、文字列指定にしておかないと表示通りに拾えないということが起きる場合がある。

コピペデータを整列させて綺麗な表形式に並べる

出走RH：出馬表のヘッダー

出走D：出馬表の明細（今回は11RのレパードSのみを参考として載せている）

表型にデータを整理することで、データベース投入用のデータとしてインポートする準備が出来る。

プログラム一つ一つの命令はそれほど難解なモノは多くはないが、全てをいきなりやろうとすると難しく感じる。
ブログもいきなりWordPressから入るとなかなか難解に感じるが、一つ一つ調べて枠を作り細かい設定を終わらせて
記事を書く段階になると、もう一つのサイトとしては一応の完成の形を成している。

簡単ではないが、JRAホームページを利用すれば、自作競馬データベースが作れるよ～
という形は上記で見せることが出来たと思う。

簡単なサンプルをたくさん作ることで利用できるコードが必ずある。

• ExcelVBAやUWSCには自動記録機能がある。
• ExcelVBAはググればサンプル数が多いのでヒントはたくさんある。
• ExcelのことはExcelでやるのが一番シンプルで簡単。

上記、出走Dの見出し部分が全部表示しきれていないので、横の見出しを縦に出力するExcelVBAサンプルを添付してみる。
ただこの程度のことは、Excelのコピペ機能であるので実際に使用するなら、Excel機能を使えば良い。

出走Dの見出し一覧を縦に表示

見出しを縦に表示するExcelVBAサンプルを作成してみる

あわせて読みたい

【Excel】VBAを書くための前準備４項目９手順 【Excelでプログラミングする前の基本設定「４項目９手順」】 ４つの前準備をしてから、VBEを開く Excelクイックアクセスツールバーのユーザー設定カメラ印刷プレビュー…

前回までの仕様で準備してみよう

VBEを開くので「A1RC1Display」は直ぐ書いて動かしてみる。

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

IF文を綺麗に書く工夫。「A1RC1Display」同様部品として標準装備させる。

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

sheet1:「出走D見出し」からsheet2:「出走D見出し一覧縦」を作成

実際に見出しが入力されたSheet1からSheet2の「例：出走D見出し一覧縦」にデータを入れるサンプルVBAを下に明記。シートは自分で作成しSub DTL_MIDASItate()の内容を変更し起動する。

Sub DTL_MIDASItate()
Dim j As Integer
    Sheets("出走D見出し一覧縦").Select
    Cells(1, 1) = "No."
    Cells(1, 2) = "項目"
    j = 1
    Do Until CHRCVT(Sheets("出走D").Cells(1, j)) = ""
        'Ａ列に順
        Cells(j + 1, 1) = j
        '見出しをＢ列に表示させる
        Cells(j + 1, 2) = Trim(Sheets("出走D").Cells(1, j))
        j = j + 1
    Loop
End Sub

MIDASItateを関数化しやすいようにシート名を変数にしておく

Sub DTL_MIDASIt2()
Dim j As Integer
Dim sh As String, sh2 As String
    sh = "出走D"
    sh2 = "出走D見出し一覧縦"
    Sheets(sh2).Cells(1, 1) = "No."
    Sheets(sh2).Cells(1, 2) = "項目"
    j = 1
    Do Until CHRCVT(Sheets(sh).Cells(1, j)) = ""
        'Ａ列に順
        Sheets(sh2).Cells(j + 1, 1) = j
        '見出しをＢ列に表示させる
        Sheets(sh2).Cells(j + 1, 2) = Trim(Sheets(sh).Cells(1, j))
        j = j + 1
    Loop
End Sub

シート間のデータ操作はCellsプロパティを使うと上手く整理できる

ExcelVBAはA1表記とR1C1表記と２種類のセルの指定方法がある。

両方の指定の仕方を理解しておくと、Excel関数をコピーするときに案外役に立ったりする。

あわせて読みたい

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

編集後記

最近ではExcel以外にもGoogleスプレッドシートや他のOffice製品もあるが、会社のデフォルトがMicrosoft製品ならばソレを勉強するのが問題になりにくいので、一応お勧めしておく。PythonなどのプログラミングでもExcelシートを直接触れるコードを書くことが出来るが、データ管理の知識としっかりとしたデータバックアップを準備してから使わないと、思わぬところでバグが発生し取返しのつかないことになることも少なくない。

私のように自分だけが使う自作競馬データベースならバックアップさえ取っていれば、どうにでもなるが、簡単なExcelシートと言えど、業務で自分以外も使うシートの場合は、私ならばExcelVBAを使うのさえ躊躇う。

それが業務として認められる行為であるならば、全部乗せ換えるつもりで作成した方が既にデータがある場合
その整合性まで意識しておかねばならない。

これは文字にすると簡単だが、実際に業務を体験し、そのとおりにトレースできない人間が作ったプログラムは確実に不具合を起こすので注意が必要だ ❣

エンドユーザーの使用方法まで理解していないと
システム開発者やプログラマーの思ったとおりの使い方をする訳じゃない ❣ ってことだネ

それでは、またね～😎