【Excel】Chromeから手動でコピペ 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無料期間を有効活用するのがお得】 Kindle ビジネスツールの第一歩はWordではなくExcelで文書が打てるようになることの方が大…

編集後記

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

それでは、またね～😎