利用窗体从下往上查找数据

木子李69471

目前的功能，当满足条件时，可实现从上往下查找，我需要做一个满足条件时，从下往上查找，请高手看看改如何修改代码，感谢。

quqiyuan

改一下数组搜索方向即可，仅供参考。。。

quqiyuan

代码如下。。。
   
Private Sub ComboBox1_Change()
    On Error Resume Next                                       '该代码解决value380报错问题
    Dim X As Long
    Dim ar
    With Sheets("sheet1")
        ar = .Range("B2:E" & .Range("E40000").End(3).Row)
    End With
    For X = UBound(ar) To 1 Step -1
        If ComboBox1.Text = ar(X, 4) Then
            TextBox1.Text = ar(X, 1)
            Exit For
        Else
            TextBox1.Text = ""
        End If
    Next
End Sub
   
Private Sub UserForm_Initialize()                          '制作下拉菜单
    Me.ComboBox1.AddItem "正常"
    Me.ComboBox1.AddItem "返工"
    Me.ComboBox1.AddItem "测试"
End Sub
   

木子李69471

quqiyuan 发表于 2024-11-14 21:49
改一下数组搜索方向即可，仅供参考。。。

非常感谢你的帮助

木子李69471

quqiyuan 发表于 2024-11-14 21:50
代码如下。。。
   
Private Sub ComboBox1_Change()

非常感谢你的帮助

Qs18

1. Sub qs()
   
2. Dim arr, i, dic
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.UsedRange.Value
   
5. For i = 2 To UBound(arr)
   
6.     s = arr(i, 3)
   
7.     If Not dic.exists(s) Then
   
8.         dic(s) = Array(arr(i, 9), arr(i, 12), arr(i, 13))
   
9.     Else
   
10.         dic(s) = Array(dic(s)(0) + arr(i, 9), dic(s)(1) + arr(i, 12), dic(s)(2) + arr(i, 13))
    
11.     End If
    
12. Next
    
13. brr = Sheet2.UsedRange.Value
    
14. For i = 2 To UBound(brr)
    
15.     s = brr(i, 4)
    
16.     If dic.exists(s) Then
    
17.         ar = dic(s)
    
18.         For j = 0 To 2
    
19.             brr(i, j + 8) = ar(j)
    
20.         Next
    
21.     End If
    
22. Next
    
23. Sheet2.Range("a3").Resize(UBound(brr), UBound(brr, 2)) = brr
    
24. End Sub
    

复制代码