VB方法实现下拉列表动态模糊查询

加菲海带

自己看不懂，更做不到触类旁通，能用个现成版本的吗？也不知道换了工作簿之后是不是也不能用了。请老师们帮忙！谢谢！

沈默00

建议你上真实的表格，数据取一部分就好了，不然做了也白做，到时候还是不能用，
你这个是二级菜单，我刚刚前不久也发了一个关于二级菜单的求助贴，你可以看看；如果VBA不熟悉，这种不是太复杂的二级菜单应该也可以用UNIQUE函数解决。

蓝桥玄霜

下拉的例子：

加菲海带

蓝桥玄霜 发表于 2023-10-2 10:00
下拉的例子：

怎么操作呢？

3190496160

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            ActiveCell = .List(i, 0)
            .Visible = False
            TextBox1.Visible = False
            Exit For
        End If
    Next i
End With
End Sub

Private Sub TextBox1_Change()
zd = TextBox1.Text
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("下拉数据源")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    If r < 2 Then MsgBox "下拉数据源为空！": End
    ar = .Range("b1:b" & r)
End With
For i = 2 To UBound(ar)
    If InStr(ar(i, 1), zd) > 0 Then
        d(ar(i, 1)) = ""
    End If
Next i
With ListBox1
    .Visible = True
    .List = d.keys
    .Top = ActiveCell.Top
    .Left = ActiveCell.Left + 60
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal T As Range)
If T.Row > 4 And T.Column = 4 Then
    If T.Count > 1 Then End
    With TextBox1
        .Visible = True
        .Top = T.Top
        .Left = T.Left
        .Activate
    End With
    With Sheets("下拉数据源")
        r = .Cells(Rows.Count, 2).End(xlUp).Row
        If r < 2 Then MsgBox "下拉数据源为空！": End
        ar = .Range("b2:b" & r)
    End With
    With ListBox1
        .Visible = True
        .List = ar
        .Top = ActiveCell.Top
        .Left = ActiveCell.Left + 60
    End With
Else
    TextBox1.Visible = False
    ListBox1.Visible = False
    TextBox1 = ""
End If
End Sub

3190496160

VB方法实现下拉列表动态模糊查询.rar (725.98 KB, 下载次数: 119)

2023-10-2 10:55 上传

点击文件名下载附件

3190496160

只写了部门一的代码，共参考，
在d列单击，出现文本框和列表框，在文本框中输入关键字模糊搜索，在列表框中双击录入

加菲海带

3190496160 发表于 2023-10-2 10:55

谢谢老师，就是这样的。部门2 和岗位怎么弄呢？有步骤吗？

加菲海带

3190496160 发表于 2023-10-2 10:54
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ListBox1
    For i = 0 T ...

请问这个是在怎么录入呢？第一步 第二步……

加菲海带

3190496160 发表于 2023-10-2 10:55

老师您好，谢谢您的帮助。可是我一点也不会，后面两列怎么弄呢？