wordpress+外观+权限/成都关键词优化报价

本文主要介绍在Excelhome论坛上分享的智能输入。
此功能的智能输入，是对已有的数据作为数据库，然后以拼音缩写的输入方式，快速匹配到相应类似的中文字体。里面还会有下载链接供应大家学习。值得注意的是，这个带宏的工作簿是97-03的工作簿。如果现用Office 13/16或365的版本，请注意要转换版本。若是WPS版本的，则不用。

以下便是最终的动态效果。

里面关键的功能和知识：
1# 控件（列表控件/文本控件）
2# 数据库与数据库语言
3# 工作簿事件，控件事件

里面的知识包含很多，称得上是一个完整的小案例。
关于数据库以及控件Listbox 和Textbox的使用，还需要多多借鉴和学习，这里不就过多的分享。如果大家对此亦有兴趣，欢迎私信留言或者在Excelhome论坛上分享。
以下是我简单地分享一个 中文转英文大写首字母的函数。
这也是快捷输入的灵魂之一。

Function PY(ByVal Rng As String)
Dim LenInt As Integer, i As Integer
Dim Temp As String, oStr As StringOn Error Resume NextmyStr = StrConv(myStr, vbNarrow)LenInt = Len(Rng)For i = 1 To LenIntIf Asc(Mid(Rng, i, 1)) > 0 Or Err.Number = 1004 Then oStr = ""oStr = Application.WorksheetFunction.Lookup(Mid(Rng, i, 1), _[{"吖","A";"八","B";"嚓","C";"咑","D";"妸","E";"发","F";"旮","G";"铪","H";"夻","J";"咔","K";"垃","L";"妈","M";"拿","N";"噢","O";"妑","P";"去","Q";"然","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"匝","Z"}])Temp = Temp & oStrNext iPY = Temp
End Function

首先第一个碰到的就是StrConv函数。 通过F1的提示帮助得知，StrConv 函数能帮忙将字符串转换成你要想要的样子。
代码中的意思是将双字节的改为单字节的。我的猜想是不是想要减少字符的占用空间才增加这一句？如果要数据量庞大，双字节占的内存空间会单字节的大些。应该是考虑之后的存入和读取速度。

第二个关键的函数Asc().
这个函数会返回一个整数，该整数表示字符串中第一个字母对应的字符代码。 假如这个是空字符，则Asc会返回0. 这个跟len(str)<>"" 判断是否为空值功能类似。但是这个ASC额外的功能在于，不仅能返回英文字母，还可以是中文，一些字符串和符号。他们都有相对应的ASCII表，以下是在百度知道下查询的一小部分结果。

Err.Number =1004 返回的是false。
意思是如果输入了#value等错误值时，自动将字符串变为空。

接下来就是关键的Lookup函数，也是自动匹配转换成字大写字母的关键。首先我们以单个汉字作为例子，然后再套用循环，逐个逐个汉字转换成拼音。里一共分为了23组，每组都配有一个汉字和一个英语大写字母，如果这个汉字跟其中23组中的1组相近，则会返回对应的英语大写字母。
换句话，这里一共摆放着23个选项，每个汉字“转换”时都要面对23个选项（数组）。找到最相近的哪一个，然后匹配后面的英文大写字母。值得注意的是，数组里面的每个不同的分组用“；” 分号隔开，同一类型的则用“，”逗号隔开。最后再以大括号+[]，类似在工作簿上对数组直接按Ctrl+Shift+Enter.
实际上他们之间的对应关系（如果用工作簿显示）：

最后套用循环，将每个中文字转换成英文大写字母叠加起来，并将返回值给到函数名PY。