输入逐步提示信息增强

nbwenren

看了[技巧167]输入时逐步提示信息，也参考了其他同学的实例，发现功能可以不断扩充，下面是本人增强后的实例，供大家参考。
1、录入表中可实现多字段输入逐步提示信息，本例用了两个字段，同学们可根据自已需要再增加；
2、实现文本录入后自动带出代码；
3、解决下拉列表数据过多速度缓慢问题；
4、点击文本框后首先显示出已录入内容，鼠标点击后自动清掉；
5、更正了输入内容未找到匹配信息时的报错。
具体大家下载后仔细看吧！
第一次发帖，希望能对大家有所帮助，同时也希望大家互相交流。
输入时逐步提示信息.rar (126.04 KB, 下载次数: 5595)

2011-1-14 22:10 上传

点击文件名下载附件

nbwenren

lsstudio

的确很强大，谢谢楼主提供，学习一下

nbwenren

不客气，互相学习

AVEL

additem 改成用 LIST ，遍历单元格改成数组， 还可以加快显示下拉框速度。

nbwenren

原帖由 AVEL 于 2011-1-16 04:49 发表
additem 改成用 LIST ，遍历单元格改成数组， 还可以加快显示下拉框速度。

谢谢提示，那么如何更改，请赐教！

nbwenren

非洲难民，您好！
谢谢你的提醒，我将下面的代码
               For i = 2 To 13 '如果选择项大多，为提高运行速度，只取前13条记录
                   .AddItem Sheet3.Cells(i, 4).Value
                Next
改为如下代码：
                 .List = Sheet3.Range("D2:D500").Value
速度大提高。
这样改是否跟您说的一样？

nbwenren

在其他帖子里看到有些同学提到最好通实现按选择频次进行排序功能，也就是说选择次数多的选项排在前面，仔细想了下，还是能实现的，具体修改了以下代码就能实现。

Private Sub ListBox2_DblClic
k(ByVal Cancel As MSForms.ReturnBoolean)
    On Error Resume Next
    ActiveCell.Value = Right(ListBox2.Value, Len(ListBox2.Value) - InStr(1, ListBox2.Value, "-"))
    Cells(ActiveCell.Row, ActiveCell.Column + 1).Value = Left(ListBox2.Value, InStr(1, ListBox2.Value, "-") - 1)
'每选择一次列表选项后，被选择的列表项选择频次加1，并按选择频次进行排序
    With Sheet3
        .Cells(Application.Match(ListBox2.Value, .Range("D:D"), 0), 6).Value = .Cells(Application.Match(ListBox2.Value, .Range("D:D"), 0), 6).Value + 1
'        .Range("A1").Select
        .Range("A1:G" & .Range("D65536").End(xlUp).Row).Sort Key1:=.Range("F2"), Order1:=xlDescending, Key2:= _
        .Range("G2"), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, _
        MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
    End With
    Me.TextBox2 = ""
    Me.ListBox2.Visible = False
    Me.TextBox2.Visible = False
End Sub

供大家参考！

youyun612

谢谢，楼主们太强大了

风之飘雨

提两个相关问题：1、应该是么模糊查找-如输入北京，则出现北京下面的相关事项
2、如数据库中没有，按照目标格式，也能输入进去保存并添加到数据表2中的数据库，（输入数据库中没有的词条，不能保存，要不就提示错误）
3、如果更改数据位置（行列或者其他列也想提示输入），如何更改代码？请表示清楚，方便我们不懂vba的人，如果是高手自然不用看楼主的代码了。

以上是我的建议，希望楼主能采纳，谢谢你将自己的成果展示给大家。
ps:希望楼主有改进后，将改好的附件上传，方便大家~