中文转拼音首字母超级详细版
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Case &HB4EE To &HB6E9: pystring = pystring + "D"
Case &HF7BE: pystring = pystring + "D"
Case &HF1BC: pystring = pystring + "D"
Case &HE8F1: pystring = pyA"
Case &HB0C5 To &HB2C0: pystring = pystring + "B"
Case &HF0E5: pystring = pystring + "B"
Case &HDFC9: pystring = pystring + "G"
Case &HEFD3: pystring = pystring + "G"
Case &HB9FE To &HBBF6: pystring = pystring + "H"
Case &HDCD5: pystring = pystring + "G"
Case &HF0E1: pystring = pystring + "G"
Case &HF2BC: pystring = pystring + "G"
Case &HF1F4: pystring = pystring + "D"
Case &HB6EA To &HB7A1: pystring = pystring + "E"
Case &HEBF1: pystring = pystring + "E"
Case &HEBD7: pystring = pystring + "G"
Case &HEBC5: pystring = pystring + "G"
Case &HF7C0: pystring = pystring + "G"
Function pyzm(hzpy As String) As String
Dim hzstring As String, pystring As String
Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer
hzstring = Trim(hzpy)
Case &HDCEA: pystring = pystring + "B"
Case &H9794: pystring = pystring + "B"
Case &HE9DE: pystring = pystring + "B"
Case &HDCEE: pystring = pystring + "H"
Case &HDDEF: pystring = pystring + "H"
Case &HE7FA: pystring = pystring + "H"
Case &HDDAD: pystring = pystring + "E"
Case &HB7A2 To &HB8C0: pystring = pystring + "F"
Case &HF7C5: pystring = pystring + "F"
hzpysum = Len(Trim(hzstring))
pystring = ""
For hzi = 1 To hzpysum
hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))
Select Case hzpyhex
Case &HDAAD: pystring = pystring + "H"
Case &HDCF6: pystring = pystring + "H"
Case &HE0A4: pystring = pystring + "D"
Case &HF4FA: pystring = pystring + "D"
Case &HF1B0: pystring = pystring + "D"
Case &HEBF7: pystring = pystring + "B"
Case &HE6DF: pystring = pystring + "B"
Case &HF7C6: pystring = pystring + "B"
1.打开Excel->工具->宏->Viaual Basic编辑器
2.在弹出来的窗口中对着VBAproject点右键->插入->模块
3.下面会出现一个名为"模块1"，点击
4.在右边的空白栏中粘贴以下内容：
5.保存该模板，关闭并返回excle.
Case &HF7EC: pystring = pystring + "D"
Case &HECD1: pystring = pystring + "D"
Case &HDDD0: pystring = pystring + "D"
Case &HDCD0: pystring = pystring + "B"
Case &HDDC9: pystring = pystring + "B"
Case &HE9C4: pystring = pystring + "B"
---------此txt文件是我在实际工作中进行大量的中文转拼音中不断完善的结果--------
----------------------希望对大家有所帮助-------------------
Case &HB8C1 To &HB9FD: pystring = pystring + "G"
Case &HF2A2: pystring = pystring + "G"
Case &HF4FB: pystring = pystring + "G"
Case &HB2C1 To &HB4ED: pystring = pystring + "C"
Case &H85BC: pystring = pystring + "C"
Case &HDDC5: pystring = pystring + "C"
Case &HF5D7: pystring = pystring + "H"
Case &HF6D7: pystring = pystring + "H"
Case &HDEBD: pystring = pystring + "H"
Case &HEEDC: pystring = pystring + "G"
Case &HE9CF: pystring = pystring + "G"
Case &HF6D9: pystring = pystring + "G"
Case &HB0A1 To &HB0C4: pystring = pystring + "A"
Case &HEFA7: pystring = pystring + "A"
Case &HF2FC: pystring = pystring + "A"
Case &HDFBB: pystring = pystring + "F"
Case &HDCF2: pystring = pystring + "F"
Case &HF5FA: pystring = pystring + "F"
Case &HDFB0: pystring = pystring + "D"
Case &HE0A9: pystring = pystring + "D"
Case &HE7E9: pystring = pystring + "D"
Case &HF1B2: pystring = pystring + "D"
Case &HDFE1: pystring = pystring + "D"
Case &HDFD5: pystring = pystring + "D"
Case &HE8DB: pystring = pystring + "G"
Case &HDEBB: pystring = pystring + "G"
Case &HEBD2: pystring = pystring + "G"
Case &HECB3: pystring = pystring + "F"
Case &HEBE8: pystring = pystring + "F"
Case &HDDCA: pystring = pystring + "F"
Case &HD8BA: pystring = pystring + "G"
Case &HF4FB: pystring = pystring + "G"
Case &HEBF5: pystring = pystring + "G"
Case &HDFC1: pystring = pystring + "B"
Case &HEEE9: pystring = pystring + "B"
Case &HDDF2: pystring = pystring + "B"
Case &HDCCA: pystring = pystring + "C"
Case &HF4F9: pystring = pystring + "C"
Case &HDCFB: pystring = pystring + "C"
Case &HF7BE: pystring = pystring + "D"
Case &HF1BC: pystring = pystring + "D"
Case &HE8F1: pystring = pyA"
Case &HB0C5 To &HB2C0: pystring = pystring + "B"
Case &HF0E5: pystring = pystring + "B"
Case &HDFC9: pystring = pystring + "G"
Case &HEFD3: pystring = pystring + "G"
Case &HB9FE To &HBBF6: pystring = pystring + "H"
Case &HDCD5: pystring = pystring + "G"
Case &HF0E1: pystring = pystring + "G"
Case &HF2BC: pystring = pystring + "G"
Case &HF1F4: pystring = pystring + "D"
Case &HB6EA To &HB7A1: pystring = pystring + "E"
Case &HEBF1: pystring = pystring + "E"
Case &HEBD7: pystring = pystring + "G"
Case &HEBC5: pystring = pystring + "G"
Case &HF7C0: pystring = pystring + "G"
Function pyzm(hzpy As String) As String
Dim hzstring As String, pystring As String
Dim hzpysum As Integer, hzi As Integer, hzpyhex As Integer
hzstring = Trim(hzpy)
Case &HDCEA: pystring = pystring + "B"
Case &H9794: pystring = pystring + "B"
Case &HE9DE: pystring = pystring + "B"
Case &HDCEE: pystring = pystring + "H"
Case &HDDEF: pystring = pystring + "H"
Case &HE7FA: pystring = pystring + "H"
Case &HDDAD: pystring = pystring + "E"
Case &HB7A2 To &HB8C0: pystring = pystring + "F"
Case &HF7C5: pystring = pystring + "F"
hzpysum = Len(Trim(hzstring))
pystring = ""
For hzi = 1 To hzpysum
hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))
Select Case hzpyhex
Case &HDAAD: pystring = pystring + "H"
Case &HDCF6: pystring = pystring + "H"
Case &HE0A4: pystring = pystring + "D"
Case &HF4FA: pystring = pystring + "D"
Case &HF1B0: pystring = pystring + "D"
Case &HEBF7: pystring = pystring + "B"
Case &HE6DF: pystring = pystring + "B"
Case &HF7C6: pystring = pystring + "B"
1.打开Excel->工具->宏->Viaual Basic编辑器
2.在弹出来的窗口中对着VBAproject点右键->插入->模块
3.下面会出现一个名为"模块1"，点击
4.在右边的空白栏中粘贴以下内容：
5.保存该模板，关闭并返回excle.
Case &HF7EC: pystring = pystring + "D"
Case &HECD1: pystring = pystring + "D"
Case &HDDD0: pystring = pystring + "D"
Case &HDCD0: pystring = pystring + "B"
Case &HDDC9: pystring = pystring + "B"
Case &HE9C4: pystring = pystring + "B"
---------此txt文件是我在实际工作中进行大量的中文转拼音中不断完善的结果--------
----------------------希望对大家有所帮助-------------------
Case &HB8C1 To &HB9FD: pystring = pystring + "G"
Case &HF2A2: pystring = pystring + "G"
Case &HF4FB: pystring = pystring + "G"
Case &HB2C1 To &HB4ED: pystring = pystring + "C"
Case &H85BC: pystring = pystring + "C"
Case &HDDC5: pystring = pystring + "C"
Case &HF5D7: pystring = pystring + "H"
Case &HF6D7: pystring = pystring + "H"
Case &HDEBD: pystring = pystring + "H"
Case &HEEDC: pystring = pystring + "G"
Case &HE9CF: pystring = pystring + "G"
Case &HF6D9: pystring = pystring + "G"
Case &HB0A1 To &HB0C4: pystring = pystring + "A"
Case &HEFA7: pystring = pystring + "A"
Case &HF2FC: pystring = pystring + "A"
Case &HDFBB: pystring = pystring + "F"
Case &HDCF2: pystring = pystring + "F"
Case &HF5FA: pystring = pystring + "F"
Case &HDFB0: pystring = pystring + "D"
Case &HE0A9: pystring = pystring + "D"
Case &HE7E9: pystring = pystring + "D"
Case &HF1B2: pystring = pystring + "D"
Case &HDFE1: pystring = pystring + "D"
Case &HDFD5: pystring = pystring + "D"
Case &HE8DB: pystring = pystring + "G"
Case &HDEBB: pystring = pystring + "G"
Case &HEBD2: pystring = pystring + "G"
Case &HECB3: pystring = pystring + "F"
Case &HEBE8: pystring = pystring + "F"
Case &HDDCA: pystring = pystring + "F"
Case &HD8BA: pystring = pystring + "G"
Case &HF4FB: pystring = pystring + "G"
Case &HEBF5: pystring = pystring + "G"
Case &HDFC1: pystring = pystring + "B"
Case &HEEE9: pystring = pystring + "B"
Case &HDDF2: pystring = pystring + "B"
Case &HDCCA: pystring = pystring + "C"
Case &HF4F9: pystring = pystring + "C"
Case &HDCFB: pystring = pystring + "C"