請益是否有更快的查詢方式 - Excel程式區

返回列表下一主題上一主題發帖

[發問] 請益是否有更快的查詢方式

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1425
主題: 40
精華: 0
積分: 1449
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-4-16

1^# 跳轉到 »

發表於 2022-7-19 15:19 | 顯示全部帖子

回復 12# 准提部林

請教前輩範例中的判斷式以字串比大小! 是以什麼規則比大小或等於?
If Crr(j)(k, 9 + j) <= Arr(i, 1) And Crr(j)(k, 11 + j) >= Arr(i, 1) Then

自己有測試,但是無法了解規則!顛覆後學的認知! 以為只有數字才能比較!
Sub TEST_20220719()
If [A2] > [A3] Then
MsgBox "[A2] > [A3]"
Else
   MsgBox "[A2] <= [A3]"
End If
End Sub

您的範例完整內容如下:
Sub TEST_A2()
Dim Arr, Brr, Crr(2), xD(2), T$, i&, j%, k, Km%, TM
TM = Timer
Crr(1) = Range([L!m1], [L!a1].Cells(Rows.Count, 1).End(xlUp))
Crr(2) = Range([R!m1], [R!a1].Cells(Rows.Count, 1).End(xlUp))
For j = 1 To 2
Set xD(j) = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Crr(j))
      T = Left(Crr(j)(i, j + 9), 7)
      If Not IsObject(xD(j)(T)) Then
         Set xD(j)(T) = CreateObject("Scripting.Dictionary")
      End If
      xD(j)(T)(i) = ""
Next i
Next j
Arr = Range([序號!a1], [序號!a1].Cells(Rows.Count, 1).End(xlUp))
ReDim Brr(1 To UBound(Arr), 1 To 2)
Brr(1, 1) = "工單號碼": Brr(1, 2) = "位置"
For i = 2 To UBound(Arr)
T$ = Left(Arr(i, 1), 7)
Km = 0
For j = 1 To 2
   If Not IsObject(xD(j)(T)) Then
      GoTo 666
   End If
   For Each k In xD(j)(T).keys
      If Crr(j)(k, 9 + j) <= Arr(i, 1) And Crr(j)(k, 11 + j) >= Arr(i, 1) Then
         Brr(i, 1) = Crr(j)(k, j)
         Brr(i, 2) = Mid("LR", j, 1) & k
         Km = 1
         Exit For
      End If
   Next
   If Km = 1 Then
      Exit For
   End If

666
Next j
Next i
[序號!b1].Resize(UBound(Brr), 2) = Brr
MsgBox Timer - TM
End Sub

謝謝前輩指導!

TOP

Andy2483