关于三级菜单的查询问题

小白兔3399

大家好：

我弄一个三级菜单的查询窗体
在《深圳厂区》表中，点击《查询》按钮，可以跳出一个窗体
然后可以根据下拉菜单 ，定义想要查询的条件
如果只选择 ”项目“，”夹位“ 和 ”刀号“ 不选，则把《数据源》中该项目对应的所有料号筛选显示出来
如果同时选择 ”项目“和 ”夹位“两位条件，则把《数据源》中该项目及对应的夹位的所有料号筛选显示出来
总之，就是选择的条件越多，筛选出来的料号就越细.

目前我做出来的东西虽然能够满足工作要求，但是感觉运行速度不快。
还有就是感觉程序的设计和构思不够科学，大家有没有更加高效，简洁科学方法来实现呀这个查询功能呢，非常感谢[attach]2842617

小白兔3399

抱歉，误上传了两个附件，其实只要上传一个就好，重复上传了。想删掉一个，老是删不掉.

3190496160

1、目前的代码，是循环单元格，并逐一赋值给单元格，这样频繁操作单元格，甚至还调用了VLOOKUP函数，速度肯定就是问题的， 可以用数组循环筛选，然后把筛选结果一次性赋值给单元格区域，速度就会快几十倍吧
2、看不懂你目前的代码判断条件，为甚当只有第一个条件的时候，要判断厂区，但是，有多个条件的时候就不判断厂区了呢？？

3190496160

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False '关闭屏幕涮新
    ActiveSheet.AutoFilterMode = False '取消筛选状态
    Dim r1 As Integer, r2 As Integer, sh As String
    Set sh1 = Sheets("数据源")
    sh1.AutoFilterMode = False  '取消筛选状态
    Rows("3:3").AutoFilter      '表头筛选状态
    sh = ActiveSheet.Name
    Range("AR3").Value = ComboBox1.Value
    Sheets("参数表").Range("AH2").Value = ComboBox1.Value
    ReDim rr(1 To 3, 1 To 2)
    For i = 1 To 3
        If Me.Controls("combobox" & i).Text <> "" Then
            m = m + 1
            rr(m, 1) = Me.Controls("combobox" & i).Text
            rr(m, 2) = i
        End If
    Next i
    If m = "" Then MsgBox "请选择筛选条件！": Exit Sub
    With sh1
        r = .Range("B65536").End(xlUp).Row
        ar = .Range("a1:s" & r)
    End With
    Dim arr()
    ReDim arr(1 To UBound(ar), 1 To 1)
    For i = 3 To UBound(ar)
        sl = 0
        For s = 1 To m
            mc = rr(s, 1)
            lh = rr(s, 2)
            If Trim(ar(i, lh)) = Trim(mc) Then
                sl = sl + 1
            End If
        Next s
        If sl = m Then
            If Trim(ar(i, 19)) = sh Then
                n = n + 1
                arr(n, 1) = ar(i, 7)
            End If
        End If
    Next i
    If n = "" Then MsgBox "没有符合条件的数据！": Exit Sub
    With Sheets("参数表")
        RS = Cells(Rows.Count, "ah").End(xlUp).Row
        .Range("AH2:AH" & RS) = Empty
        .[AH2] = Me.ComboBox1.Text
        .[AH3].Resize(n, 1) = arr
    End With
    r2 = Range("C65536").End(xlUp).Row    '最后一个不为空的单元格所在的行
    Range("AR4:AR" & r2) = "=IFERROR(VLOOKUP(C4,参数表!AH:AH,1,0),0)"
    Range("A3:AR" & r2).AutoFilter Field:=44, Criteria1:="<>0"
    MsgBox "筛选出" & n & "行数据！"
Application.ScreenUpdating = True        '打开屏幕涮新
End Sub

3190496160

查询表.rar (187.1 KB, 下载次数: 15)

2022-12-14 16:06 上传

点击文件名下载附件

小白兔3399

3190496160 发表于 2022-12-14 11:19
1、目前的代码，是循环单元格，并逐一赋值给单元格，这样频繁操作单元格，甚至还调用了VLOOKUP函数，速度肯 ...

非常感谢老师的关注。

我测试了，目前运行速度确实快了无数倍，我得好好研究学习一下是如何做到的。

测试中暂时发现以下问题：
第一，在选择项目CY00489，点击查询。MSGBOX 提示筛选出12行数据，实际出来的却是22行
第二，在选择项目CY00489，夹位CNC1，点击查询。MSGBOX 提示筛选出2行数据，实际出来的却仍是22行
第三，在选择项目CY00489，夹位CNC1，刀位T2，点击查询。MSGBOX 提示筛选出1行数据，实际出来的却仍是22行

另外，我原有代码是三个条件都判断厂区的，您说只有第一个条件的时候是判断厂区，多条件就不判断厂区，这个我得再仔细测试一下原来的代码，这个代码我和同事用了一段时间了没发现结果出结错哟，应该是多条件也判断了厂区的。

小白兔3399

我找到修改的地方了

小白兔3399

不知道怎么上传了三个截图，还删除不了.