原创--输入提示自动补全,简码输入,首字母拼音输入

百度不到去谷歌 · 发表于 2017-3-21 23:52

xxw1993 发表于 2017-3-21 21:44
为什么输入蔡明，显示的是BM

Do Until Mid("八擦哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗", k, 1) > Mid(str, i, 1)

把嚓改成擦就好了

wulai8377 · 发表于 2017-3-22 08:36

百度不到去谷歌发表于 2017-3-20 23:27
用工作表双击事件代码
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boole ...

这段代码直接加入不起效果

如果代替这段代码，就不管用了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case userinput
Case False '列表输入状态
Call 适配(Target, RangeAddress) '第二参数为使用自动提示的单元格区域范围
Case Else
'普通输入状态可复制粘贴,也可自己添加其他输入状态
End Select
End Sub

wulai8377 · 发表于 2017-3-22 10:20

百度不到去谷歌发表于 2017-3-21 23:52
Do Until Mid("八擦哒妸发旮铪讥讥咔垃妈拿哦妑七然仨他哇哇哇夕丫匝咗", k, 1) > Mid(str, i, 1)

把 ...

如何能输入不是第一个字也行模糊联想查找呢

飞翔猪 · 发表于 2017-4-4 04:46

很强大试试就知道

LMY123 · 发表于 2017-5-5 10:59

感谢分享,学习中

ycm825 · 发表于 2017-5-5 19:36

如果设置共享,则显示1004错误,那位大侠能解决，谢谢!

cflood · 发表于 2017-5-5 23:27

arr = SqlToArr("select 关键字 from [数据源$] where 拼音 like '%" & PY(s) & "%'")
arr = SqlToArr("select 关键字 from [数据源$] where 关键字 like '%" & s & "%'")
加个%可以实现任意位置匹配

sunain · 发表于 2017-5-27 13:56

fightx 发表于 2015-7-7 17:24
你好，你写的自动补全很好用，不过对于范围是合并单元格的，如何实现呢？
Const RangeAddress = "H5&H6:H5 ...

使用合并单元格的时候，
改成Const RangeAddress = "L6&M6&N6:L6&M6&N6" '作用范围,自己修改，
提示“方法range作用于对象worksheet时失败”

求教啊，这个功能真的很好用，谢谢啦

毛介石 · 发表于 2017-7-8 23:39

看看看看看看

yutaotongdan · 发表于 2017-8-14 15:25

强大，学习中

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

[原创] 原创--输入提示自动补全,简码输入,首字母拼音输入