【原】VBA联想输入法（二）深追寻

VBA联想输入法（二）深追寻

上节课我们讲了输入一个或几个字符，智能联想提示完整字符串。我们提到过，VBA甚至可以做到只输入汉字首字母，就显示以这些特征的的选项，接下来我就给大家分享终极版的VBA联想式输入解决办法。

▶效果展示：

作品来自于ExcelHome的 蓝桥玄霜 版主

效果是不是很炫酷，类似于搜狗输入法的联想输入功能。只输入首字母就可以提示满足要求的所有字符串。

这里用到一个自定义函数，这个函数的目的就是把一组汉字变为一组汉字拼音的第一个字母。

'各位朋友，这个模块可是很有用哦！

Public Function py(TT) As Variant  '自定义函数，目的：把一组汉字变为一组汉字拼音的第一个字母。

        py = ""

        For i = 1 To Len(TT)

         Temp = Asc(Mid$(TT, i, 1))

         If Temp > 255 Or Temp < 0 Then   '是汉字吗？

             py = py & PinYin(Mid$(TT, i, 1)) '转化为拼音首字母，

         Else

             py = py & LCase(Mid$(TT, i, 1))  '转化英文字母

         End If

        Next i

End Function

鉴于自定义函数PinYin代码有点长，文章末尾会放送文件链接。

有了这个自定义函数作为核心环节，再加上上节课学到的基本知识，我们就可以做出来一个很炫酷的VBA联想输入法。

实例微云链接：http:///5MUh8Av

END

不懂的地方均可以在下方留言给我。

关注公众号，带你每日学习VBA，从枯燥机械的工作中解放双手。

每天学点excel vba

一个干货满满的公众号，期待你的关注