ปรับแต่งฟังก์ชั่นทีละชิ้น/ค้นหาคะแนน Nth เพื่อนที่ต้องการสามารถอ้างอิงได้ คัดลอกรหัสรหัสดังต่อไปนี้:
ฟังก์ชั่น splitx (strs1 As String, strs2 As String, n As Integer)
'ฟังก์ชันการแบ่งส่วนแบบกำหนดเอง splitx ([สตริง], ตัวคั่น, ส่วนที่ n)
Dim groupST() เป็นสตริง
groupST = แยก(strs1, strs2)
ถ้า UBound(groupST) < n - 1 แล้ว
แยกx=0
อื่น
splitx = groupST(n - 1)
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-
ฟังก์ชั่น minx (KSMC As String, lb As String, kmi As String, n As String)
'คะแนนอันดับที่ N minx([ชื่อข้อสอบ],[หมวดหมู่],[หัวเรื่อง],n)
ติ่มซำเป็นวัตถุ
Dim RS เป็นวัตถุ
หรี่ stsql เป็นสตริง
Dim kmf เป็นสตริง
kmf = กลาง(kmi, 1, 1) & กลุ่ม
ตั้งค่า con = Application.CurrentProject.Connection
ตั้งค่า RS = CreateObject(ADODB.Recordset)
STRSQL = เลือก 1 อันดับแรก & kmi & เป็นคะแนนมาตรฐานจากรายการคะแนน
STRSQL = STRSQL + WHERE ((( & kmf & ) <= & n & ) และ ((หมวดหมู่) = ' & lb & ' และชื่อการสอบ=' & KSMC & '))
STRSQL = STRSQL + เรียงลำดับตาม & กม
RS.เปิด STRSQL, con, 3, 3
ถ้า RS.EOF แล้ว
จัดจ้าน = 0
อื่น
minx = RS(คะแนนมาตรฐาน)
สิ้นสุดถ้า
RS.ปิด
ตั้ง RS = ไม่มีเลย
ตั้งคอน = ไม่มีอะไร
ฟังก์ชันสิ้นสุด