区分関数をカスタマイズして N 番目のスコアを見つけ、必要な友人がそれを参照できるようにします。次のようにコードをコピーします。
関数 splitx(strs1 を文字列として、strs2 を文字列として、n を整数として)
'カスタム セグメンテーション関数 Splitx([文字列], セパレータ, n 番目のセグメント)
Dim groupST() を文字列として
groupST = Split(strs1, strs2)
UBound(groupST) < n - 1 の場合
スプリットx=0
それ以外
スプリットx = グループST(n - 1)
終了の場合
終了機能
'/------------------------------------------
関数 minx(文字列としての KSMC、文字列としての lb、文字列としての kmi、文字列としての n)
'N位得点 minx([試験名],[カテゴリー],[科目],n)
オブジェクトとしてのディムコン
オブジェクトとしてのディム RS
文字列としての Dim stsql
文字列としての薄暗い kmf
kmf = Mid(kmi, 1, 1) & グループ
con = Application.CurrentProject.Connection を設定します
Set RS = CreateObject(ADODB.Recordset)
STRSQL = スコア リストからトップ 1 & kmi & を標準スコアとして選択
STRSQL = STRSQL + WHERE ((( & kmf & ) <= & n & ) And ((カテゴリ) = ' & lb & ' and 試験名=' & KSMC & '))
STRSQL = STRSQL + ORDER BY & kmi
RS.Open STRSQL、con、3、3
RS.EOF の場合、その後
ミンクス = 0
それ以外
minx = RS(標準スコア)
終了の場合
RS.閉じる
RS = 何も設定しない
con=何も設定しない
終了機能