关于联想输入，请高手给解读一下这段代码

ZJHZZ101 · 发表于 2014-12-27 00:09

本帖最后由 ZJHZZ101 于 2014-12-27 00:14 编辑

谢谢了
Public n As Byte
Private Sub ComboBox1_Change()
If Me.ComboBox1 = "" Then Me.ComboBox1.List = Array(""): Exit Sub
If n = 38 Or n = 40 Then Exit Sub
Dim arr, i&, d As Object
Set d = CreateObject("scripting.dictionary")
arr = [i3].CurrentRegion
For i = 1 To UBound(arr)
If InStr(arr(i, 1), Me.ComboBox1) Then d(arr(i, 1)) = ""
Next i
Me.ComboBox1.List = d.keys
Me.ComboBox1.DropDown
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
n = KeyCode
End Sub

COMBOBOX提示输入（完璧） (1).zip (11.01 KB, 下载次数: 45)

liulang0808 · 发表于 2014-12-27 08:24

根据输入的值，到i列有数据的区域查找
将符合要求的加入字典，放入ComboBox1中把
大概这个意思

ZJHZZ101 · 发表于 2015-1-7 00:19

感谢答复。

熊熊哥 · 发表于 2018-1-17 21:45

请问这个输入框怎么能变成一列列的往下自动填写，而不是固定在这个地方。
其实，联想输入的很多，但是这个方法不用点击右侧向下箭头，自动提示模糊信息，这个一般的联想输入做不到啊

		自动登录	找回密码
密码			免费注册

[求助] 关于联想输入，请高手给解读一下这段代码