用窗体COMBOBOX实现模糊输入后自动匹配下拉列表

tugeitugei

真的非常需要这方面的帖子
谢谢楼主分享

czyanlimin

谢谢楼主的分享。

duanyuncl

感谢分享，确实有大用处。

imonior

好东西，留个记号

02761752696

收藏备用  很实用

宜信

大灰狼1976 发表于 2019-5-31 15:56
为什么不试试我的单COMBOBOX智能录入呢。

为什么搜索的内容必须前面带英文字母才可以？

大灰狼1976

宜信 发表于 2021-1-18 21:32
为什么搜索的内容必须前面带英文字母才可以？

测试正常，你举个例子我看一下。

宜信

大灰狼1976 发表于 2021-1-19 20:23
测试正常，你举个例子我看一下。

您好，很感谢!就是我先在LIST分表的ID number列录入纯数字123456，然后返回sheet1表中点击按钮，弹出搜索窗体后在ID number的搜索框搜索123456，就会报错！如果在LIST分表的ID number列录入字母加数字如：b123456，就能被搜索到。

大灰狼1976

我这边正常，你发个出错的附件来我看看。

大灰狼1976

我明白了，那个Error是我写到代码里的，如果B列有纯数字的话，修改以下代码：

1. Private Sub UserForm_Initialize()
   
2. Dim i&
   
3. arr = Sheets("LIST").[a1].CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 2 To UBound(arr)
   
6.   d(arr(i, 1)) = i
   
7.   d(CStr(arr(i, 2))) = i  '--->原来为 d(arr(i, 2)) = i
   
8. Next i
   
9. End Sub
   

复制代码