combobox，texbobox自动逐步提示，自动显示下拉列表，模糊查询

jmccpc · 发表于 2010-5-14 12:49

size=6] 为解决很多网友的需求与利用组合框或文字框在输入时自动逐步提示信息，提高工作效率，小弟向各位好友发送原创作品！！
请多多指教！！
如果好用，请顶下，谢谢！！！

jmccpc · 发表于 2010-5-15 11:31

大大的提高了数据输入的效率与快查数据！！

zjdh · 发表于 2010-5-16 18:21

ComboBox输入拼音不行！！
这一段应该:
If Not HZSR Then
         For Each aa In Range("A2:A" & [a65536].End(xlUp).Row)
            If InStr(PINYIN(CStr(aa.Value)), a) <> 0 Then
                  i = i + 1
                  ReDim Preserve Arr(1 To i)
                  Arr(i) = aa.Value
            End If
         Next aa
         ComboBox1.List = Arr
End If

[ 本帖最后由 zjdh 于 2010-5-16 18:31 编辑 ]

林志雄 · 发表于 2010-5-16 16:03

非常好，我很喜欢

lhteee · 发表于 2010-5-16 16:18

看不出用什么用！！！

zjdh · 发表于 2010-5-16 16:45

似曾见过，感谢楼主提供3种情况2种类型的提示输入！

jmccpc · 发表于 2010-5-16 23:22

i = i + 1
ReDim Preserve Arr(1 To i)
Arr(i) = aa.Value
代码不能这样使用，这样就变了每次产生数组，数组只能一次性产生

jmccpc · 发表于 2010-5-16 23:25

彼如当票据表格输入的时候，你就觉得很有用了！！！

zjdh · 发表于 2010-5-17 08:09

什么叫"数组只能一次性产生"?那是扩充!!
你知道ReDim Preserve 是什么意思吗??!!

[ 本帖最后由 zjdh 于 2010-5-17 08:11 编辑 ]

zjdh · 发表于 2010-5-17 08:13

同理这一段也可以这样简化:
If HZSR Then
         For Each aa In Range("A2:A" & [a65536].End(xlUp).Row)
            If InStr(UCase(CStr(aa.Value)), a) <> 0 Then
                  i = i + 1
                  ReDim Preserve Arr(1 To i)
                  Arr(i) = aa.Value
            End If
         Next aa
         ComboBox1.List = Arr
      End If

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

[原创] combobox，texbobox自动逐步提示，自动显示下拉列表，模糊查询

评分

很方面逐步提示输入操作

回复 1楼 jmccpc 的帖子

改了代码当然不行

回复 4楼 lhteee 的帖子