---恢复内容开始--- 1.启动Excel 2003(其它版本请仿照操作),打开相应的工作表: 2 2.执行“工具→宏→Visual Basic编辑器”命令(或者直接按“Alt+F11”组合键),进入Visual Basic编辑状态: 3 3.执行“插入→模块”命令,插入一个新模块.再双击插入的模块,进入模块代码编辑状态: Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20318:
与上一篇文章相关,在Excel中取汉字的英文首字母 在Excel中使用,觉得麻烦的,直接点最下面,复制附件,里面有例子,非常好用非常好用 需要说明的是,代码不是我写的,原作者如果看到了可以联系我,我会改成原作者的名字的. Public PY_DB(1 To 72, 1 To 94) As String Public PY_Index() As Integer Sub DealVal_1() Dim i As Integer, j As Integer Dim Db As Variant Dim