同一个表格多个VBA下拉菜单怎么设置

yangweiquan1993

本人小白，代码引用大神的。

表格是销售出货单，点击B3客户框引用表格数据中的A列数据，点击B5-B14产品名称框引用表格数据中的D列数据，现在问题是只有一个下拉框的话是可以很好运行的，如果是两个下拉框的话其中一个就无法运行，小白不知道怎么让两个兼容到一起，希望各位大神帮忙修改一下，谢谢！！






1.zip (34.83 KB, 下载次数: 17)

2022-12-28 11:35 上传

点击文件名下载附件

02761752696

搞那么复杂做什么 ，把你的代码全部删除，用下面的替换

yangweiquan1993

02761752696 发表于 2022-12-28 12:06
搞那么复杂做什么 ，把你的代码全部删除，用下面的替换

喔喔可以了可以了，感谢感谢！！

yangweiquan1993

02761752696 发表于 2022-12-28 12:06
搞那么复杂做什么 ，把你的代码全部删除，用下面的替换

你好，还想请教一下如果需要模糊搜索应该怎么改，因为客户和产品比较多，输入之后再选择会方便很多，下面的代码是之前的，修改了一下运行不了
Private Sub TextBox1_Change()
    Dim arr, brr, i&, k&
    If Target.Column = 2 And Target.Row = 4 Then
        With Worksheets("表格数据") '下拉列表来源内容的所在工作表
            arr = .Range("A2:A" & .Cells(Rows.Count, "A").End(3).Row) '数据源
        End With
    ElseIf Target.Column = 2 And Target.Row > 4 And Target.Row < 15 Then
        With Worksheets("表格数据") '下拉列表来源内容的所在工作表
            arr = .Range("E2:E" & .Cells(Rows.Count, "E").End(3).Row) '数据源
        End With
    End If
    If TextBox1.Text = "" Then ListBox1.List = arr: Exit Sub
    ReDim brr(1 To UBound(arr))
    For i = 1 To UBound(arr)
        If InStr(1, arr(i, 1), TextBox1.Text, vbTextCompare) Then  '忽略字母大小写
            k = k + 1
            brr(k) = arr(i, 1)
        End If
    Next
    ListBox1.List = brr '写入匹配后的数据
End Sub

yangweiquan1993

02761752696 发表于 2022-12-28 12:06
搞那么复杂做什么 ，把你的代码全部删除，用下面的替换

你好，还想请教一下如果需要模糊搜索应该怎么改，因为客户和产品比较多，输入之后再选择会方便很多，
之前的代码我改了一下放进去但是用不了，有什么需要改一下的吗

02761752696

yangweiquan1993 发表于 2022-12-28 14:36
你好，还想请教一下如果需要模糊搜索应该怎么改，因为客户和产品比较多，输入之后再选择会方便很多，
...

建议学习一下基础知识，不是什么都复制粘贴就能用的

关于求助贴的答复效率与发帖规范

feilanga

研究一下你就会知道，双击录入区域调用窗体最方便。

Learner2022

数据太多不太适合做下拉菜单