能模糊查询并且能用拼音首字母模糊查询的复选框

simon5412

我说的是当输入内容是，combobox能弹出下拉列表，就如这个一样，而不用自己手动去点才出现下拉列表

lzqmsy

simon5412 发表于 2016-6-8 11:24
我说的是当输入内容是，combobox能弹出下拉列表，就如这个一样，而不用自己手动去点才出现下拉列表

谢谢!!!!!!!!

lzqmsy

simon5412 发表于 2016-6-8 11:24
我说的是当输入内容是，combobox能弹出下拉列表，就如这个一样，而不用自己手动去点才出现下拉列表

用代码强行将复选框下拉打开了,也不能与查询同步显示,没有意义呀,怎样能做到同步显示呢?请赐教,谢谢!!!

simon5412

在最后几行添加两次dropdown动作就可以了实现时时查询了

1. Private Sub TextBox1_Change()
   
2. Dim arr(), mystr As String
   
3. k = 0
   
4. ReDim arr(0)
   
5. For i = 2 To [m65536].End(xlUp).Row
   
6. If Cells(i, "m") Like UCase(TextBox1.Value) & "*" Then
   
7.    ReDim Preserve arr(k)
   
8.    arr(k) = Cells(i, "L")
   
9.    k = k + 1
   
10. End If
    
11. Next
    
12. ComboBox1.Clear
    
13. mystr = Join(arr, "")
    
14. If mystr = "" Then
    
15. ComboBox1.AddItem mystr
    
16. Else
    
17. ComboBox1.List = arr
    
18. End If
    
19. ComboBox1.SetFocus
    
20. ComboBox1.DropDown
    
21. TextBox1.SetFocus
    
22. ComboBox1.DropDown
    
23. End Sub

复制代码

lzqmsy

simon5412 发表于 2016-6-8 18:00
在最后几行添加两次dropdown动作就可以了实现时时查询了

试过了,好用,谢谢!!!

lzqmsy

能模糊查询并且能用拼音首字母模糊查询的复选框.rar (103.73 KB, 下载次数: 181)

2016-6-8 19:21 上传

点击文件名下载附件

修改后的附件

吴狄

谢谢分享，用上了

lzqmsy

吴狄 发表于 2016-6-8 23:40
谢谢分享，用上了

好啊,我希望更多的人用上

百佳

绝对收藏，非常喜欢，希望能够准确

jjmysjg

谢谢，使用。下来看看