excel |将汉字转换成拼音（只带首字母）|百度文库

将名称转换为第一个字母（VBA自定义功能）1.打开EXCEL 2.按ALT + F11，单击“插入-插入”模块，将以下代码粘贴到右侧窗口中，直接关闭窗口3，输入公式= hztopy（A1），填充所有单元格4.选择所有缩写，复制粘贴值（因为这是一个自定义函数，结果只能显示在当前文件中，其他计算机则显示错误，因为没有公式） 5.使用条件格式，搜索创建一个包含汉字的单元格: 首先单击一个单元格（设置为D5），使用条件格式-新格式规则-使用公式确定要格式化的单元格: 输入公式= LENB（D5）在以下对话框（D5）中> LEN，自行设置格式，确认后退出，然后使用该单元格的格式刷所有单元格. 存在中文字符出现的格式. 6.选择自定义排序，排序基于“单元格颜色”-“底部无”单元格-“确定”. 7.手动将汉字改写为相应的字母. 8.检查和弦字符. 注意: 以上方法只能在当前文件夹中使用. 如何保存宏以便在所有文件夹中都可以使用自定义功能1.创建一个新的EXCEL 2.按ALT + F11，单击“插入-插入”模块，在右侧窗口中粘贴以下代码，直接关闭窗口3. 另存为其他格式-文件名更改为宏名，选择“ EXCEL load macro（*，xlam）”作为保存类型，文件将自动保存在C: \ Users \ 111 \ AppData \ Roaming \ Microsoft \ AddIns文件夹.

4. 打开需要处理的EXLEL，单击“开始”-“ EXCEL”选项-“添加到（G）...”-选择“ OK”上方保存的宏名称. 这样，可以在此计算机上的所有EXCEL中直接使用自定义公式. 代码（仅复制星号中的内容）******************************************** *******************************************函数hztopy（hzpy作为字符串）As字符串Dim hzstring作为字符串首字母简拼，pystring作为字符串Dim hzpysum作为整数，hzi作为整数，hzpyhex作为整数hzstring = Trim（hzpy）hzpysum = Len（Trim（hzstring））pystring =“”对于hzi = 1到hzpysum hzpyhex =“＆H” +十六进制（Asc（Mid（hzstring首字母简拼，hzi，1）））选择Case hzpyhex Case＆HB0A1至＆HB0: pystring = pystring +“ A” Case＆HB0C5至＆HB2C0: pystring = pystring +“ B” Case＆HB2C1至＆HB4ED: pystring = pystring = pystring = pystring C“外壳＆HB4EE至＆HB6E9: pystring = pystring +” D“外壳＆HB6EA至＆HB7A1: pystring = pystring +” E“外壳＆HB7A2至＆HB8C0: pystring = pystring +” F“外壳＆HB8C1至＆HB9FD: pystring = py” pystring“案例＆HB9FE到＆HBBF6: pystring = pystring +” H“案例＆HBBF7到＆HBFA5: pystring = pystring +” J“案例＆HBFA6到＆HC0AB: pystring = pystring +” K“案例＆HC0AC到＆HC2E7: pystring = pystring +” L“案例＆HC To＆ HC2: pystring = pystring +“ M”外壳＆HB3至＆HC5B5: pystring = pystring +“ N”外壳＆HC5B6 To＆HC5BD: pystring = pystring +“ O”外壳＆HC5BE至＆HC6D9: pystring = pystring +“ P”外壳＆HC6DA至＆8 : pystring = pystring +“ Q” Case＆HC8BB至＆HC8F5: pystring = pystring +“ R” Case＆HC8F6 To＆HCBF9: pystring = pystring +“ S” Case＆HCBFA至＆HCDD9: pystring = pystring +“ T” Case＆HEDC5: pystring = pystring +“ T”案例＆HCDDA到＆HCEF3: pystring = pystring +“ W”案例＆HCEF4到＆HD1B8: pystring = pystring +“ X”案例＆HD1B9到＆HD4D0: pystring = pystring +“ Y”案例＆HD4D1到＆HD7F9: pystring = pystring +“ Z“大小写其他pystring = pystring + Mid（hzstring，hzi，1）结束选择下一个hztopy = pystring结束函数************************** ************* ************************************* ***

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/shouji/article-240873-1.html