【Access】データベースを使って項目に順番をつける

2022年2月1日2023年8月3日

AceessVBAを使ってデータに順番をつける

競馬データを扱っていると
スクレイピングで取った数値データをある項目で並べ替えたりすることが
データ分析を行う上で、必須になってくる。

初めから用意しておけば良いとは思うが
その項目を実際に使うまでは、順位付けが必要かどうか？は判断できない。

VBAで数値項目を昇順（降順）に並べて順位付けする雛形モジュール作成

adono

この記事を読むと、VBAで順位をつけるモジュールが作成できる ❣

この記事を読むと、VBAでテーブルのある数値項目の順位をつけるモジュール（VBA）が作成できる。
これを更新クエリーだけでやると、少なくとも５つほど作成しなければいけない。

ので、Key項目で並べ替えて、SEQ.を付けるといった場合に重宝する雛形モジュールになる。

競馬データを例に取るなら複勝倍率順（馬連順、馬単順）に並べ替えて順番をデータ化

複勝倍率順に並べ替えて、複勝人気順を作成する
馬連倍率順（馬単倍率順など）
前走上り順　　　〃　　、前走上り順　　〃

今回のサンプルは前走上り順データを作成するモジュール

これは今日データ分析するのに作成したばかりの出来立てホヤホヤなので、ここで晒しておく！内容に不備がある場合は、ご自身で修正してお使い下さいませ。

なぜExcelでなく、Accessなのか？というと・・・

大量データを扱える
並べ替えが楽

参考　AccessVBA：前走上り順データを作成するモジュール

Function RAgariRenban()

    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
    Dim BL_DATE As Date, BL_ZYOMEI As String, BL_R As Integer
    Dim BL_AGARI As Double, BL_SEQ As Integer
    Dim i As Long, n As Long

    strSQL = "SELECT 開催日, 場名, Ｒ, 推定上り, 推定上り順" & " "
    strSQL = strSQL & "FROM WK_DT" & " "
    strSQL = strSQL & "WHERE 推定上り > 0" & " "
    strSQL = strSQL & "ORDER BY 開催日, 場名, Ｒ, 推定上り"
    strSQL = strSQL & ";"

    'カレントデータベースを変数に代入する
    Set db = CurrentDb
    
    'クエリを実行してレコードセットを開く
    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset)
        
    RAgariRenban = False
    If rst.RecordCount <= 0 Then Exit Function

    i = 1

        Do
            rst.Edit
            If i = 1 Then
                BL_DATE = rst!開催日
                BL_ZYOMEI = rst!場名
                BL_R = rst!R
                BL_AGARI = rst!推定上り
                BL_SEQ = 1
                n = 0
            End If
'''ブレイクkey
            If BL_DATE = rst!開催日 And BL_ZYOMEI = rst!場名 And BL_R = rst!R Then
                If BL_AGARI = rst!推定上り Then
'''ここまで一緒だと「推定上り順」は重複する
                    rst!推定上り順 = BL_SEQ
                    If i > 1 Then
                        n = n + 1
                    End If
                Else
                    BL_SEQ = BL_SEQ + 1 + n
                    rst!推定上り順 = BL_SEQ
                    BL_AGARI = rst!推定上り
                    n = 0
                End If
            Else
                BL_DATE = rst!開催日
                BL_ZYOMEI = rst!場名
                BL_R = rst!R
                BL_AGARI = rst!推定上り
                BL_SEQ = 1
                n = 0
                rst!推定上り順 = BL_SEQ
            End If
    
            rst.Update
            
            i = i + 1
            rst.MoveNext
        Loop Until rst.EOF = True
    
    rst.Close
    RAgariRenban = True
End Function

※前回使用した複勝順作成を再利用してモジュールを作成。

~~一つ一つの命令の解説は、このブログではしていないので、ご自身でググってみてね。~~

前走上り順データを作成するモジュールの補足説明を【ChatGPT】にお願いすると…

ChatGPT(Bing)

上のAccessVBAが何をしているのか補足説明をして下さい

このEXCELVBAは、WK_DTというテーブルから開催日、場名、Ｒ、推定上り、推定上り順のデータを取得し、推定上り順を連番に更新する関数です。以下に補足説明をします。

まず、strSQLという変数にSQL文を代入します。このSQL文は、推定上りが0より大きいレコードを開催日、場名、Ｒ、推定上りの順に並べて取得するものです。

次に、dbという変数にカレントデータベースを代入し、rstという変数にレコードセットを開きます。レコードセットとは、データベースから取得したデータの集合です。

RAgariRenbanという関数の戻り値をFalseに設定します。これは、関数が正常に終了したかどうかを示すものです。レコードセットが空だった場合は、関数を終了します。

iという変数に1を代入します。これは、レコードセットのインデックスを表します。

レコードセットの最後まで繰り返し処理を行います。その中で以下の処理を行います。 – レコードセットを編集モードにします。

iが1の場合は、BL_DATE, BL_ZYOMEI, BL_R, BL_AGARI, BL_SEQという変数にレコードセットの各フィールドの値を代入します。これらの変数は、前回のレコードの値を保持するものです。BL_SEQは推定上り順の値で、1から始まります。nという変数に0を代入します。これは、同じ推定上りのレコードが何件あったかをカウントするものです。

iが1でない場合は、ブレイクキーとして開催日、場名、Ｒの値が前回のレコードと同じかどうか判定します。同じ場合は以下の処理を行います。 – 推定上りの値が前回のレコードと同じかどうか判定します。同じ場合は推定上り順にBL_SEQの値を代入し、nを1増やします。これは、同じ推定上り順であることを示すためです。

推定上りの値が前回のレコードと異なる場合はBL_SEQにnを足して1増やし、推定上り順に代入します。これは、次の推定上り順であることを示すためです。BL_AGARIに現在のレコードの推定上りの値を代入し、nを0にリセットします。

開催日、場名、Ｒの値が前回のレコードと異なる場合は以下の処理を行います。 – BL_DATE, BL_ZYOMEI, BL_R, BL_AGARIという変数に現在のレコードの各フィールドの値を代入します。BL_SEQに1を代入し、推定上り順に代入します。これは、新しいブレイクキーであることを示すためです。nを0にリセットします。

レコードセットに変更を保存します。

iを1増やし、次のレコードへ移動します。

レコードセットを閉じます。

RAgariRenbanという関数の戻り値をTrueに設定します。これは、関数が正常に終了したことを示すものです。

以上がこのAccessVBAが何をしているか補足説明したものです。ご参考になれば幸いです。😊
ChatGPT(Bing)から2023.8.3(thu)に追記