在textbox中输入账号、收款单位或开户行中的任一关键字，在listbox中显示对应信息

ugyun

老师：
如何用VBA实现：在textbox中输入账号、收款单位或开户行中的任一关键字，在listbox中显示对应信息，双击或用回车键输入到此处的E列、F列和H列，效果如动画演示一样

ugyun

试着勉强做了一个，可是显示速度非常慢，哪位老师帮忙优化一下呀？谢谢了

zjdh

ugyun 发表于 2013-1-19 18:36
试着勉强做了一个，可是显示速度非常慢，哪位老师帮忙优化一下呀？谢谢了

1. 帐号数据太多，运行中要将每个汉字转换为拼音，需要时间。
2. 为何相同帐号要重复二三十次？
3. 要提高速度有2个途径：
  a. 先将汉字转为拼音，放在辅助列中，模糊输入时不再转换；
  b. 减少模糊查询字段。

ugyun

zjdh 发表于 2013-1-19 20:47
1. 帐号数据太多，运行中要将每个汉字转换为拼音，需要时间。
2. 为何相同帐号要重复二三十次？
3. 要提 ...

谢谢提示，汉字转换拼音是可以不用的，没多大意义，账号重复是我测试数据用的，老师，能否用字典实现呢？

另外注释以下拼音转换是去掉了，但点其它位置时好像也是筛选状态，能不能帮忙看看如何正确去掉拼音
'        If LG Then
   '        Else
'            N = PINYIN(S)
'        End If

zjdh

如何提高listbox下拉列表的显示速度.rar (37.37 KB, 下载次数: 150)

2013-1-20 17:51 上传

点击文件名下载附件

ugyun

zjdh 发表于 2013-1-20 09:40
Private Sub TextBOX1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim  ...

再麻烦请教一下，每次刚一打开表格时，点E列时右边下拉列表listbox中总为空，输入关键字后或者按一下退格键再点E列其他单元格时下拉列表才有内容，能不能一打开时就显示全部内容呢？

zjdh

Private Sub TextBOX1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim I&, t%, k&, N$, Arr1()
    Me.ListBox1.Clear
    arr2 = Array("账号", "收 款 单 位", " ", "开户行")
    k = k + 1
    ReDim Arr1(1 To 4, 1 To k)
    For I = 1 To 4
        Arr1(I, k) = arr2(I - 1)
    Next
    For I = 1 To UBound(Arrsj)
        N = Arrsj(I, 1) & " " & Arrsj(I, 2) & " " & Arrsj(I, 4)
        If InStr(N, UCase(Me.TextBox1.Value)) Then
            k = k + 1
            ReDim Preserve Arr1(1 To 4, 1 To k)
            For t = 1 To 4
                Arr1(t, k) = Arrsj(I, t)
            Next
        End If
    Next I
    If t = 0 Then Exit Sub
    Me.ListBox1.List = Application.Transpose(Arr1)
End Sub

鄂龙蒙

zjdh 发表于 2013-1-20 09:40
Private Sub TextBOX1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim  ...

请教：可否限制选择ListBox1中的首行？谢谢！

zjdh

鄂龙蒙 发表于 2016-3-30 08:51
请教：可否限制选择ListBox1中的首行？谢谢！

添加语句
Private Sub ListBOX1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If Me.ListBox1.ListIndex = 0 Then Exit Sub
    ActiveSheet.Unprotect
    For I = 0 To 3
        ActiveCell.Offset(0, I) = Me.ListBox1.List(Me.ListBox1.ListIndex, I)
    Next
    Me.ListBox1.Clear
    Me.TextBox1 = ""
    Me.ListBox1.Visible = False
    Me.TextBox1.Visible = False
    ActiveCell.Offset(, 1).Select
    ActiveSheet.Protect
End Sub

CAI22118

这个很好，能否做个完整的，