请教如何实现输入数字或字母都能够查询？

kezhiye

各位师傅好！
　　请教如何实现输入数字也能查询出结果?（目前输入字母查询才有结果）
　　这是论坛里一个在A列输入拼音字母进行查询人名的帖子，我也出现了原帖中说的输入tc只出现唐从礼而不出现涂彩龙的情况。后来发现，将模块1中的“嚓”字改成“擦”字，输入tc则唐从礼和涂彩龙都能够出现。
　　我要请教的问题是：我在名册工作表的人名前面随意加上了一些数字，但是输入数字却查询不到人名，怎样修改代码才能实现输入数字也能查询出相应的人名？就象现有的输入字母查询一样，让字母能查数字也能查。
　　谢谢！


简化输入1.rar (16.43 KB, 下载次数: 5)

2017-7-1 13:37 上传

点击文件名下载附件

cbtaja

1、原取拼音函数需要更正并优化。

2、TextBox1_Change过程需要忽略不必要的条件。

简化输入1.rar (24.8 KB, 下载次数: 8)

2017-7-1 15:38 上传

点击文件名下载附件

cbtaja

kezhiye

cbtaja 发表于 2017-7-1 15:39
1、原取拼音函数需要更正并优化。

2、TextBox1_Change过程需要忽略不必要的条件。

谢谢大侠的指点和帮助！这样录入数据的时候就方便多了

kezhiye

麻烦再帮忙看看，附件稍有变化。
二楼cbtaja师傅帮做的增加了一个辅助列，请问辅助列的公式是要手动往下拖的还是由VBA自动生成的？

简化输入2.rar (24.99 KB, 下载次数: 11)

2017-7-1 17:03 上传

点击文件名下载附件

cbtaja

kezhiye 发表于 2017-7-1 17:03
麻烦再帮忙看看，附件稍有变化。
二楼cbtaja师傅帮做的增加了一个辅助列，请问辅助列的公式是要手动往下拖 ...

修正并优化代码：

1. Private Sub TextBox1_Change()
   
2.     Dim str$, i As Byte, j As Byte, k As Byte
   
3.     str = TextBox1
   
4.     If str = " " Or str = "　" Then
   
5.         TextBox1.Visible = False
   
6.         ListBox1.Visible = False
   
7.         Exit Sub
   
8.     End If
   
9.     ListBox1.Clear
   
10.     arr = Sheets("名册").Range("A1").CurrentRegion
    
11.     For i = 2 To UBound(arr)
    
12.         lstitem = arr(i, 1) & " " & arr(i, 2)
    
13.         If PY(lstitem) Like UCase("*" & str & "*") Then ListBox1.AddItem lstitem
    
14.     Next
    
15. End Sub

复制代码

kezhiye

cbtaja 发表于 2017-7-1 19:22
修正并优化代码：

cbtaja师傅您好！
非常感谢！
你这优化后的代码效率大大提高了！

kezhiye

cbtaja 发表于 2017-7-1 19:22
修正并优化代码：

cbtaja师傅您好！
又要麻烦您再次帮忙：下午测试发现，当这个UBound(arr)的值超过255就出现溢出的提示（254正常），停留在For i = 2 To UBound(arr)这一句的底色变黄。请教这个有办法解决吗？我目前的实例名册表已经有七百多行了。谢谢

cbtaja

第2 行改为：
Dim str$, i&, lstitem$

kezhiye

cbtaja 发表于 2017-7-4 18:18
第2 行改为：
Dim str$, i&, lstitem$

改成这个就不提示了
师傅真厉害！VBA真神奇！