实现输入字符后自动显示符合条件的下拉选项

daxiaotong

我想要实现输入几个字后自动显示符合条件的下拉选项的功能（就是说包含我输入的字的内容显示出来，其它不包括输入内容的不显示），单元格有效性已经做好，基础数据表也整理好了。坛子里搜索了一下，需要用到VBA啊，我是一窍不通哈。求助各位大大，有没有现成的代码，我借用一下，谢谢了。或者有没有不用VBA也能实现的方法？

yuqiang462

不用vba，借助辅助列+定义名称即可实现

daxiaotong

yuqiang462 发表于 2016-3-26 10:30
不用vba，借助辅助列+定义名称即可实现

麻烦您帮忙弄一下好吗，我的附件上传了

huang1314wei

1. Private Sub ListBox1_Click()
   
2.     ActiveCell.Value = Me.ListBox1.Value
   
3.     Me.ListBox1.Visible = False
   
4.     Me.TextBox1.Visible = False
   
5. End Sub
   
6. 
   
7. Private Sub TextBox1_Change()
   
8.     Dim arr, i%, j%, d
   
9.     Set d = CreateObject("scripting.dictionary")
   
10.     arr = Sheet1.Range("A1").CurrentRegion
    
11.     For i = 2 To UBound(arr)
    
12.         If InStr(arr(i, 1), Me.TextBox1.Value) Then
    
13.             d(arr(i, 1)) = ""
    
14.         End If
    
15.     Next
    
16.     Me.ListBox1.Clear
    
17.     If d.Count >= 1 Then Me.ListBox1.List = d.keys
    
18. End Sub
    
19. 
    
20. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
21.     If Target.Count > 1 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub
    
22.     If Target.Column <> 3 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub
    
23.     Dim arr, i%, j%, d
    
24.     Set d = CreateObject("scripting.dictionary")
    
25.     arr = Sheet1.Range("A1").CurrentRegion
    
26.     For i = 2 To UBound(arr)
    
27.         d(arr(i, 1)) = ""
    
28.     Next
    
29.     With Me.TextBox1
    
30.         .Top = Target.Top
    
31.         .Left = Target.Left
    
32.         .Width = Target.Width
    
33.         .Height = Target.Height
    
34.         .Activate
    
35.         .Value = ""
    
36.         .Visible = True
    
37.     End With
    
38.     With Me.ListBox1
    
39.         .Clear
    
40.         .Top = Target.Offset(0, 1).Top
    
41.         .Left = Target.Offset(0, 1).Left
    
42.         .List = d.keys
    
43.         .Visible = True
    
44.     End With
    
45. End Sub

复制代码

huang1314wei

单击条目即可实现输入

附件参考NO1.zip (22.68 KB, 下载次数: 884)

2016-3-26 12:40 上传

点击文件名下载附件

yuqiang462

daxiaotong 发表于 2016-3-26 11:20
麻烦您帮忙弄一下好吗，我的附件上传了

见附件，内有说明           

daxiaotong

yuqiang462 发表于 2016-3-26 12:56
见附件，内有说明

谢谢您的帮助！

daxiaotong

huang1314wei 发表于 2016-3-26 12:38

感谢您的帮助，可是我在您的附件中没有看到代码哈，还请指点

qwwyyc

huang1314wei 发表于 2016-3-26 12:41
单击条目即可实现输入

老师，您写的代码是C列的，如果在B列视而不见这个效果该在哪里改？

qwwyyc

huang1314wei 发表于 2016-3-26 12:41
单击条目即可实现输入

在B列实现，打错字了