excel提取汉字的拼音首字母集锦
方法二：VBA自定义函数"=hztopy（）"
下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。
不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。"
Function hztopy(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)
hzpysum = Len(Trim(hzstring))
pystring = ""
For hzi = 1 To hzpysum
hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1)))
Select Case hzpyhex
Case &HB0A1 To &HB0C4: pystring = pystring + "A"
Case &HB0C5 To &HB2C0: pystring = pystring + "B"
Case &HB2C1 To &HB4ED: pystring = pystring + "C"
Case &HB4EE To &HB6E9: pystring = pystring + "D"
Case &HB6EA To &HB7A1: pystring = pystring + "E"
Case &HB7A2 To &HB8C0: pystring = pystring + "F"
Case &HB8C1 To &HB9FD: pystring = pystring + "G"
Case &HB9FE To &HBBF6: pystring = pystring + "H"
Case &HBBF7 To &HBFA5: pystring = pystring + "J"
Case &HBFA6 To &HC0AB: pystring = pystring + "K"
Case &HC0AC To &HC2E7: pystring = pystring + "L"
Case &HC2E8 To &HC4C2: pystring = pystring + "M"
Case &HC4C3 To &HC5B5: pystring = pystring + "N"
Case &HC5B6 To &HC5BD: pystring = pystring + "O"
Case &HC5BE To &HC6D9: pystring = pystring + "P"
Case &HC6DA To &HC8BA: pystring = pystring + "Q"
Case &HC8BB To &HC8F5: pystring = pystring + "R"
Case &HC8F6 To &HCBF9: pystring = pystring + "S"
Case &HCBFA To &HCDD9: pystring = pystring + "T"
Case &HEDC5: pystring = pystring + "T"
Case &HCDDA To &HCEF3: pystring = pystring + "W"
Case &HCEF4 To &HD1B8: pystring = pystring + "X"
Case &HD1B9 To &HD4D0: pystring = pystring + "Y"
Case &HD4D1 To &HD7F9: pystring = pystring + "Z"
Case Else
pystring = pystring + Mid(hzstring, hzi, 1)
End Select
Next
hztopy = pystring
End Function
方法三：VBA自定义函数"=getpy()"
下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入上述代码，那么。
那么，比如在A2中有"进退两难"，则在B2中输入"=getpy(A2)"，则会得到"JTLN"。
不过此法有时候也会出错，比如"鑫、雯、奕"等，就无法提取汉字拼音首字母，还有些字如"皓、婷"等被错提取为“Z”。
Function getpychar(char)
tmp = 65536 + Asc(char)
If (tmp >= 45217 And tmp <= 45252) Then
getpychar = "A"
ElseIf (tmp >= 45253 And tmp <= 45760) Then
getpychar = "B"
ElseIf (tmp >= 45761 And tmp <= 46317) Then
getpychar = "C"
ElseIf (tmp >= 46318 And tmp <= 46825) Then
getpychar = "D"
ElseIf (tmp >= 46826 And tmp <= 47009) Then
getpychar = "E"
ElseIf (tmp >= 47010 And tmp <= 47296) Then
getpychar = "F"
ElseIf (tmp >= 47297 And tmp <= 47613) Then
getpychar = "G"
ElseIf (tmp >= 47614 And tmp <= 48118) Then
getpychar = "H"
ElseIf (tmp >= 48119 And tmp <= 49061) Then
getpychar = "J"
ElseIf (tmp >= 49062 And tmp <= 49323) Then
getpychar = "K"
ElseIf (tmp >= 49324 And tmp <= 49895) Then
getpychar = "L"
ElseIf (tmp >= 49896 And tmp <= 50370) Then
getpychar = "M"
ElseIf (tmp >= 50371 And tmp <= 50613) Then
getpychar = "N"
ElseIf (tmp >= 50614 And tmp <= 50621) Then
getpychar = "O"
ElseIf (tmp >= 50622 And tmp <= 50905) Then
getpychar = "P"
ElseIf (tmp >= 50906 And tmp <= 51386) Then
getpychar = "Q"
ElseIf (tmp >= 51387 And tmp <= 51445) Then
getpychar = "R"
ElseIf (tmp >= 51446 And tmp <= 52217) Then
getpychar = "S"
ElseIf (tmp >= 52218 And tmp <= 52697) Then
getpychar = "T"
ElseIf (tmp >= 52698 And tmp <= 52979) Then
getpychar = "W"
ElseIf (tmp >= 52980 And tmp <= 53640) Then
getpychar = "X"
ElseIf (tmp >= 53689 And tmp <= 54480) Then
getpychar = "Y"
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = "Z"
Else '如果不是中文，则不处理
getpychar = char
End If
End Function
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next i
End Function
方法四：Excel函数LOOKUP
这个函数在Excel里面最多只能设置自动提取字段的前四个字的拼音首字母，多了会提示公式太长。
比如在A2中有"进退两难"，则在B2中输入如下函数"=LOOKUP()"，则会得到"JTLN"。提取前四个字首字母时的函数
=LOOKUP(CODE(A2),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154 ,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"A","B","C","D","E","F","G","H","J"," K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"})&LOOKUP(CODE(MID(A2,2,1)),4 5217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,62
29,7001,7481,7763,8472,9264},{"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P", "Q","R","S","T","W","X","Y","Z"})&LOOKUP(CODE(MID(A2,3,1)),45217+{0,36,544,1101,16 09,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472, 9264},{"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X ","Y","Z"})&LOOKUP(CODE(MID(A2,4,1)),45217+{0,36,544,1101,1609,1793,2080,2560,2902 ,3845,4107,4679,5154,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"A","B","C","D" ,"E","F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"})
提取前二个字首字母时的函数
=LOOKUP(CODE(A2),45217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154 ,5397,5405,5689,6170,6229,7001,7481,7763,8472,9264},{"A","B","C","D","E","F","G","H","J"," K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"})&LOOKUP(CODE(MID(A2,2,1)),4 5217+{0,36,544,1101,1609,1793,2080,2560,2902,3845,4107,4679,5154,5397,5405,5689,6170,62 29,7001,7481,7763,8472,9264},{"A","B","C","D","E","F","G","H","J","K","L","M","N","O","P", "Q","R","S","T","W","X","Y","Z"})
想提取前一个字、前三个字首字母应该怎么办你自己想想吧
不过此法也存在方法三的问题。
以上内容来自网上
excel提取汉字的拼音首字母集锦
方法二：VBA自定义函数"=hztopy（）" 下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。 不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。" Function hztopy(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) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case &HB0A1 To &HB0C4: pystring = pystring + "A" Case &HB0C5 To &HB2C0: pystring = pystring + "B" Case &HB2C1 To &HB4ED: pystring = pystring + "C" Case &HB4EE To &HB6E9: pystring = pystring + "D" Case &HB6EA To &HB7A1: pystring = pystring + "E" Case &HB7A2 To &HB8C0: pystring = pystring + "F" Case &HB8C1 To &HB9FD: pystring = pystring + "G" Case &HB9FE To &HBBF6: pystring = pystring + "H" Case &HBBF7 To &HBFA5: pystring = pystring + "J" Case &HBFA6 To &HC0AB: pystring = pystring + "K" Case &HC0AC To &HC2E7: pystring = pystring + "L" Case &HC2E8 To &HC4C2: pystring = pystring + "M" Case &HC4C3 To &HC5B5: pystring = pystring + "N" Case &HC5B6 To &HC5BD: pystring = pystring + "O" Case &HC5BE To &HC6D9: pystring = pystring + "P" Case &HC6DA To &HC8BA: pystring = pystring + "Q" Case &HC8BB To &HC8F5: pystring = pystring + "R" Case &HC8F6 To &HCBF9: pystring = pystring + "S" Case &HCBFA To &HCDD9: pystring = pystring + "T" Case &HEDC5: pystring = pystring + "T" Case &HCDDA To &HCEF3: pystring = pystring + "W" Case &HCEF4 To &HD1B8: pystring = pystring + "X" Case &HD1B9 To &HD4D0: pystring = pystring + "Y" Case &HD4D1 To &HD7F9: pystring = pystring + "Z" Case Else pystring = pystring + Mid(hzstring, hzi, 1)
获取汉字全拼以及首字母缩拼
获取汉字全拼以及首字母缩拼 using System; using System.Collections.Generic; using System.Text; using System.Text.RegularExpressions; namespace https://www.360docs.net/doc/13481501.html,mon.Tools { /// <summary> /// 汉字转拼音静态类,包括功能全拼和缩写，方法全部是静态的/// </summary> public static class Chinese2Spell { #region 属性数据定义 /// <summary> /// 汉字的机内码数组 /// </summary> private static int[] pyValue = new int[] {
-20319,-20317,-20304,-20295,-20292,-20283,-20265,-20257,-20242,-202 30,-20051,-20036, -20032,-20026,-20002,-19990,-19986,-19982,-19976,-19805,-19784,-197 75,-19774,-19763, -19756,-19751,-19746,-19741,-19739,-19728,-19725,-19715,-19540,-195 31,-19525,-19515, -19500,-19484,-19479,-19467,-19289,-19288,-19281,-19275,-19270,-192 63,-19261,-19249, -19243,-19242,-19238,-19235,-19227,-19224,-19218,-19212,-19038,-190 23,-19018,-19006, -19003,-18996,-18977,-18961,-18952,-18783,-18774,-18773,-18763,-187 56,-18741,-18735, -18731,-18722,-18710,-18697,-18696,-18526,-18518,-18501,-18490,-184 78,-18463,-18448, -18447,-18446,-18239,-18237,-18231,-18220,-18211,-18201,-18184,-181 83, -18181,-18012, -17997,-17988,-17970,-17964,-17961,-17950,-17947,-17931,-17928,-179 22,-17759,-17752, -17733,-17730,-17721,-17703,-17701,-17697,-17692,-17683,-17676,-174 96,-17487,-17482, -17468,-17454,-17433,-17427,-17417,-17202,-17185,-16983,-16970,-169 42,-16915,-16733,
excel汉字转换成拼音简拼(只取首字母)
打开Excel->工具->宏->Viaual Basic编辑器 在弹出来的窗口中对着VBAproject点右键->插入->模块下面会出现一个名为"模块1"，点击 在右边的空白栏中粘贴以下内容： Function pinyin(p As String) As String i = Asc(p) Select Case i Case -20319 To -20284: pinyin = "A" Case -20283 To -19776: pinyin = "B" Case -19775 To -19219: pinyin = "C" Case -19218 To -18711: pinyin = "D" Case -18710 To -18527: pinyin = "E" Case -18526 To -18240: pinyin = "F" Case -18239 To -17923: pinyin = "G" Case -17922 To -17418: pinyin = "H" Case -17417 To -16475: pinyin = "J" Case -16474 To -16213: pinyin = "K" Case -16212 To -15641: pinyin = "L" Case -15640 To -15166: pinyin = "M" Case -15165 To -14923: pinyin = "N" Case -14922 To -14915: pinyin = "O" Case -14914 To -14631: pinyin = "P"
汉字取拼音首字母程序vba
Option Explicit Public Sub dnxbz() Dim myrange As Range Dim i As Long, j As Long Dim temp As String Set myrange = Worksheets("Sheet1").Range("a1").CurrentRegion For i = 1 To myrange.Rows.Count '从1行开始到有数据的最后一行 temp = Cells(i, "A") '假设原数据在A列 For j = 1 To Len(temp) If Get_Pinyin(Mid(temp, j, 1)) <> "" Then Mid(temp, j, 1) = Get_Pinyin(Mid(temp, j, 1)) '如果速度慢再加个变量 Next Cells(i, "B") = temp '假设B列为输出数据 Next End Sub Public Function Get_Pinyin(ByVal Hanzi As String) As String Dim Ch As String Ch = Left(Hanzi, 1) Select Case Asc(Ch) Case -20319 To -20284 Get_Pinyin = "A" Case -20283 To -19776 Get_Pinyin = "B" Case -19775 To -19219 Get_Pinyin = "C" Case -19218 To -18711 Get_Pinyin = "D" Case -18710 To -18527 Get_Pinyin = "E" Case -18526 To -18240 Get_Pinyin = "F" Case -18239 To -17923 Get_Pinyin = "G" Case -17922 To -17418 Get_Pinyin = "H" Case -17417 To -16475 Get_Pinyin = "J" Case -16474 To -16217 Get_Pinyin = "K"
excel：汉字拼音首字母提取
方法一：VBA自定义函数"=hztopy（）" 下面是一个VBA自定义函数，工具->宏->Visual Basic编辑器->，插入模块,在VBA编辑器里面->插入->模块->贴入下述代码，（按ALT＋F11，插入模块，在右面窗口中粘贴下面代码）那么，比如在A3中有"进退两难"，则在B3中输入"=hztopy（A3）"，则会得到"JTLN"。 不过此法有时候也会出错，比如"皓、鑫、婷、雯、奕"等，就无法提取汉字拼音首字母。 Function hztopy(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) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case &HB0A1 To &HB0C4: pystring = pystring + "A" Case &HB0C5 To &HB2C0: pystring = pystring + "B" Case &HB2C1 To &HB4ED: pystring = pystring + "C" Case &HB4EE To &HB6E9: pystring = pystring + "D" Case &HB6EA To &HB7A1: pystring = pystring + "E" Case &HB7A2 To &HB8C0: pystring = pystring + "F" Case &HB8C1 To &HB9FD: pystring = pystring + "G" Case &HB9FE To &HBBF6: pystring = pystring + "H" Case &HBBF7 To &HBFA5: pystring = pystring + "J" Case &HBFA6 To &HC0AB: pystring = pystring + "K" Case &HC0AC To &HC2E7: pystring = pystring + "L" Case &HC2E8 To &HC4C2: pystring = pystring + "M" Case &HC4C3 To &HC5B5: pystring = pystring + "N" Case &HC5B6 To &HC5BD: pystring = pystring + "O" Case &HC5BE To &HC6D9: pystring = pystring + "P" Case &HC6DA To &HC8BA: pystring = pystring + "Q" Case &HC8BB To &HC8F5: pystring = pystring + "R" Case &HC8F6 To &HCBF9: pystring = pystring + "S" Case &HCBFA To &HCDD9: pystring = pystring + "T" Case &HEDC5: pystring = pystring + "T" Case &HCDDA To &HCEF3: pystring = pystring + "W"
花语(按中文拼音首字母排序)
A B 百合的花语——纯洁/神圣 百合（火红）--热烈的爱 香水百合---纯洁,高贵 彼岸花的花语是——悲伤的回忆（日本）/相互思念（韩国） 白日菊--永失我爱 波斯菊的花语——永远快乐 C 雏菊——隐藏爱情 菖蒲－相信者的幸福 菖蒲（德国品种）的花语——婚姻完美 D 丁香－－－回忆 E F 风信子--永远的怀念 风信子（红色）的花语是——让人感动的爱 非洲菊的花语是--永远快乐 G 狗尾巴草的花语--暗恋 H 含羞草的花语－－自卑 蝴蝶花---相信就是幸福 蝴蝶兰--我爱你 I J 桔梗花的花语是——真诚不变的爱 菊花（白色）---真实坦诚 菊（红色素）---我爱你 K 卡萨布兰卡的花语: [1]伟大的爱 [2]一种充满回忆的花,花语是淡泊的永恒 [3]易变的心 [4]不要放弃一个你深爱着的人 [5]死亡,一种盛开的很傲然,厌世的花 [6]一种永恒的美 [7]负担不起的爱
L 蓝色妖姬----相守是一种承诺,人世轮回中,怎样才能拥有一份温柔的情意! 蓝色妖姬双枝花语：相遇是一种宿命，心灵的交汇让我们有诉不尽的浪漫情怀。而如果是三枝蓝色妖姬,送花人表达的是另一种情愫——你是我最深的爱恋希望永远铭记我们这段美丽的爱情故事! 鳞托菊--永远的爱 龙舌兰的花语----是为爱付出一切 龙胆花的花语－－－喜欢看忧伤时的你 M 玫瑰（红色）---我爱你 玫瑰（白）的花语是——我足以与你相配 玫瑰（黄）--腿色的爱 玫瑰（紫）--珍惜的爱 玫瑰（蓝）---无法得到的东西 玫瑰（香槟）的花语——我只钟情你一个&爱上你是我今生最大的幸福，想你是我最甜蜜的痛苦，和你在一起是我的骄傲，没有你的我就像一只迷失了航线的船。梦幻的感觉 茉莉花——你是我的莫离幸福 密蒙花--请幸福到来 迷迭香花语----回忆不想忘记得过去,纪念 麦杆菊--永恒的记忆木棉花------珍惜眼前的幸福 N O P 蒲公英的花语——无法停留的爱 Q 蔷薇的花语——爱的思念；你的一切都很可爱蔷薇（红）的花语是——热恋 蔷薇（粉）的花语是——爱的誓言 蔷薇（白）的花语是——纯洁的爱情 蔷薇（黄）的花语是——永恒的微笑 蔷薇（深红色）的花语是——只想和你在一起蔷薇（野）的花语是——浪漫的爱情 牵牛花--爱情永固 R S
获取汉字的首字母
获取汉字的首字母 此文章从网上摘抄留着自己使用，现分享给大家。我在做一个搜索功能输入首字母显示对应的汉字信息。在后台录入数据时不能总是让客户把汉字的首字母给输进去。为了给客户以个好的体现，从后台自动获取汉字首字母存入数据中，当查询的时候方面使用。 public class chInitial { // 简体中文的编码范围从B0A1（45217）一直到F7FE（63486） private static int BEGIN = 45217; private static int END = 63486; // 按照声母表示，这个表是在GB2312中的出现的第一个汉字，也就是说“啊”是代表首字母a的第一个汉字。 // i, u, v都不做声母, 自定规则跟随前面的字母 private static char[] chartable = { '啊', '芭', '擦', '搭', '蛾', '发', '噶', '哈', '哈', '击', '喀', '垃', '妈', '拿', '哦', '啪', '期', '然', '撒', '塌', '塌', '塌', '挖', '昔', '压', '匝', }; // 二十六个字母区间对应二十七个端点 // GB2312码汉字区间十进制表示 private static int[] table = new int[27]; // 对应首字母区间表 private static char[] initialtable = { 'a', 'b', 'c', 'd', 'e', 'f', 'g',
'h', 'h', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 't', 't', 'w', 'x', 'y', 'z', }; // 初始化 static { for (int i = 0; i < 26; i++) { table[i] = gbValue(chartable[i]);// 得到GB2312码的首字母区间端点表，十进制。 } table[26] = END;// 区间表结尾 } // ------------------------public方法区------------------------ /** *根据一个包含汉字的字符串返回一个汉字拼音首字母的字符串最重要的一个方法，思路如下：一个个字符读入、判断、输出 */ public static String cn2py(String SourceStr) { String Result = ""; int StrLength = SourceStr.length(); int i; try { for (i = 0; i < StrLength; i++) {
excel中实现提取汉字的拼音首字母
在EXECL中，按ALT+F11，插入---模块复制下列代码： Function hztopy(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) hzpysum = Len(Trim(hzstring)) pystring = "" For hzi = 1 To hzpysum hzpyhex = "&H" + Hex(Asc(Mid(hzstring, hzi, 1))) Select Case hzpyhex Case &HB0A1 To &HB0C4: pystring = pystring + "A" Case &HB0C5 To &HB2C0: pystring = pystring + "B" Case &HB2C1 To &HB4ED: pystring = pystring + "C" Case &HB4EE To &HB6E9: pystring = pystring + "D" Case &HB6EA To &HB7A1: pystring = pystring + "E" Case &HB7A2 To &HB8C0: pystring = pystring + "F" Case &HB8C1 To &HB9FD: pystring = pystring + "G" Case &HB9FE To &HBBF6: pystring = pystring + "H" Case &HBBF7 To &HBFA5: pystring = pystring + "J" Case &HBFA6 To &HC0AB: pystring = pystring + "K" Case &HC0AC To &HC2E7: pystring = pystring + "L" Case &HC2E8 To &HC4C2: pystring = pystring + "M" Case &HC4C3 To &HC5B5: pystring = pystring + "N" Case &HC5B6 To &HC5BD: pystring = pystring + "O" Case &HC5BE To &HC6D9: pystring = pystring + "P" Case &HC6DA To &HC8BA: pystring = pystring + "Q" Case &HC8BB To &HC8F5: pystring = pystring + "R" Case &HC8F6 To &HCBF9: pystring = pystring + "S" Case &HCBFA To &HCDD9: pystring = pystring + "T" Case &HEDC5: pystring = pystring + "T" Case &HCDDA To &HCEF3: pystring = pystring + "W" Case &HCEF4 To &HD1B8: pystring = pystring + "X" Case &HD1B9 To &HD4D0: pystring = pystring + "Y" Case &HD4D1 To &HD7F9: pystring = pystring + "Z" Case Else pystring = pystring + Mid(hzstring, hzi, 1) End Select Next hztopy = pystring End Function 比如在A1输入小燕子耳坠子7.8 则在其他空白单元格输入=hztopy(A1) 回车执行即可
个常用汉字 按照拼音首字母排序
3500个常用汉字 A 啊阿埃挨哎唉哀皑癌蔼矮艾碍爱隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翱袄傲奥懊澳 B 芭捌扒叭吧笆八疤巴拔跋靶把耙坝霸罢爸白柏百摆佰败拜稗斑班搬扳般颁板版扮拌伴瓣半办绊邦帮梆榜膀绑棒磅蚌镑傍谤苞胞包褒剥薄雹保堡饱宝抱报暴豹鲍爆杯碑悲卑北辈背贝钡倍狈备惫焙被奔苯本笨崩绷甭泵蹦迸逼鼻比鄙笔彼碧蓖蔽毕毙毖币庇痹闭敝弊必辟壁臂避陛鞭边编贬扁便变卞辨辩辫遍标彪膘表鳖憋别瘪彬斌濒滨宾摈兵冰柄丙秉饼炳病并玻菠播拨钵波博勃搏铂箔伯帛舶脖膊渤泊驳捕卜哺补埠不布步簿部怖 C 擦猜裁材才财睬踩采彩菜蔡餐参蚕残惭惨灿苍舱仓沧藏操糙槽曹草厕策侧册测层蹭插叉茬茶查碴搽察岔差诧拆柴豺搀掺蝉馋谗缠铲产阐颤昌猖场尝常长偿肠厂敞畅唱倡超抄钞朝嘲潮巢吵炒车扯撤掣彻澈郴臣辰尘晨忱沉陈趁衬撑称城橙成呈乘程惩澄诚承逞骋秤吃痴持匙池迟弛驰耻齿侈尺赤翅斥炽充冲虫崇宠抽酬畴踌稠愁筹仇绸瞅丑臭初出橱厨躇锄雏滁除楚础储矗搐触处揣川穿椽传船喘串疮窗幢床闯创吹炊捶锤垂春椿醇唇淳纯蠢戳绰疵茨磁雌辞慈瓷词此刺赐次聪葱囱匆从丛凑粗醋簇促蹿篡窜摧崔催脆瘁粹淬翠村存寸磋撮搓措挫错 D 搭达答瘩打大呆歹傣戴带殆代贷袋待逮怠耽担丹单郸掸胆旦氮但惮淡诞弹蛋当挡党荡档刀捣蹈倒岛祷导到稻悼道盗德得的蹬灯登等瞪凳邓堤低滴迪敌笛狄涤翟嫡抵底地蒂第帝弟递缔颠掂滇碘点典靛垫电佃甸店惦奠淀殿碉叼雕凋刁掉吊钓调跌爹碟蝶迭谍叠丁盯叮钉顶鼎锭定订丢东冬董懂动栋侗恫冻洞兜抖斗陡豆逗痘都督毒犊独读堵睹赌杜镀肚度渡妒端短锻段断缎堆兑队对墩吨蹲敦顿囤钝盾遁掇哆多夺垛躲朵跺舵剁惰堕 E 蛾峨鹅俄额讹娥恶厄扼遏鄂饿恩而儿耳尔饵洱二贰 F 发罚筏伐乏阀法珐藩帆番翻樊矾钒繁凡烦反返范贩犯饭泛坊芳方肪房防妨仿访纺放菲非啡飞肥匪诽吠肺废沸费芬酚吩氛分纷坟焚汾粉奋份忿愤粪丰封枫蜂峰锋风疯烽逢冯缝讽奉凤佛否夫敷肤孵扶拂辐幅氟符伏俘服浮涪福袱弗甫抚辅俯釜斧脯腑府腐赴副覆赋复傅付阜父腹负富讣附妇缚咐 G 噶嘎该改概钙盖溉干甘杆柑竿肝赶感秆敢赣冈刚钢缸肛纲岗港杠篙皋高膏羔糕搞镐稿告哥歌搁戈鸽胳疙割革葛格蛤阁隔铬个各给根跟耕更庚羹埂耿梗工攻功恭龚供躬公宫弓巩汞拱贡共钩勾沟苟狗垢构购够辜菇咕箍估沽孤姑鼓古蛊骨谷股故顾固雇刮瓜剐寡挂褂乖拐怪棺关官冠观管馆罐惯灌贯光广逛瑰规圭硅归龟闺轨
汉字按首字母排序(编码问题解决)
=48 && $asc<=57){ return '1'; //数字 }elseif ($asc>=65 && $asc<=90){ return chr($asc); // A--Z }elseif ($asc>=97 && $asc<=122){ return chr($asc-32); // a--z } } else //中文 { $asc=$asc*1000+ord(substr($str,1,1)); //获取拼音首字母A--Z if ($asc>=176161 && $asc<176197){ return 'A'; }elseif ($asc>=176197 && $asc<178193){ return 'B'; }elseif ($asc>=178193 && $asc<180238){ return 'C'; }elseif ($asc>=180238 && $asc<182234){ return 'D'; }elseif ($asc>=182234 && $asc<183162){ return 'E'; }elseif ($asc>=183162 && $asc<184193){ return 'F'; }elseif ($asc>=184193 && $asc<185254){ return 'G'; }elseif ($asc>=185254 && $asc<187247){ return 'H'; }elseif ($asc>=187247 && $asc<191166){ return 'J'; }elseif ($asc>=191166 && $asc<192172){ return 'K'; }elseif ($asc>=192172 && $asc<194232){ return 'L'; }elseif ($asc>=194232 && $asc<196195){ return 'M'; }elseif ($asc>=196195 && $asc<197182){ return 'N';
汉字与首字母相互转换：输入汉字拼音首字母,自动识别汉字; 输入汉字,自动获取首字母;
///
汉语拼音首字母排列
汉语拼音首字母排列：AɑBb Cc Dd Ee Ff GɡHh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx Yy Zz 二十四节气民歌立春阳气转，雨水沿河边，惊蛰乌鸦叫，春分地皮干，清明忙种麦，谷雨种大田； 立夏鹅毛住，小满雀来全，芒种开了铲，夏至不拿棉，小暑不算热，大暑三伏天 立秋忙打甸，处暑动刀镰，白露烟上架，秋分不生田，寒露不算冷，霜降变了天； 立冬交十月，小雪地封严，大雪河封上，冬至不行船，小寒近腊月，大寒整一年。 成语故事中的人物 背水一战（韩信）指鹿为马（赵高）入木三分（王羲之）纸上谈兵（赵括）惊弓之鸟（更羸）铁杵成针（李白）闻鸡起舞（祖逖） 过门不入（大禹）韦编三绝(孔子 ) 单刀赴会(关羽) 对症下药(朱熹)破釜沉舟（项羽）七步成诗（曹植）卧薪尝胆（勾践） 凿壁借光（匡衡）鞠躬尽瘁（诸葛亮）图穷匕见（荆轲）乐不思蜀（刘禅）精忠报国（岳飞）草木皆兵（苻坚）围魏救赵（孙膑） 投笔从戎（班超）望梅止渴（曹操）毛遂自荐（毛遂）夸父追日（夸父） 战国：完璧归赵（蔺相如）围魏救赵（孙膑）负荆请罪（廉颇）讳疾忌医（蔡桓公）惊弓之鸟（更羸）高山流水（俞伯牙、钟子期） 秦：一字千金（吕不韦）指鹿为马（赵高）焚书坑儒（秦始皇）穷图匕见（荆轲）悬梁刺股（苏秦、孙敬） 汉：一饭千金（韩信）四面楚歌（项羽）约法三章（刘邦）孺子可教（张良）背水一战（韩信）破釜沉舟（项羽）手不释卷（刘秀） 暗渡陈仓（韩信）十面埋伏（项羽）投笔从戎（班超）马革裹尸（马援）多多益善（韩信）老当益壮（马援）无颜见江东父老（项羽） 三国：鞠躬尽瘁（诸葛亮）三顾茅庐（刘备）煮豆燃萁（曹植）刮目相看（吕蒙）初出茅庐（诸葛亮）乐不思蜀（刘禅） 七步成诗（曹植）言过其实（马谡）七擒七纵（诸葛亮）宝刀不老（黄忠）才高八斗（曹植）一身是胆（赵云） 封金挂印（关羽）单刀赴会（关羽）望梅止渴（曹操）万事俱备，只欠东风（周瑜、诸葛亮） 晋：入木三分（王羲之）闻鸡起舞（祖逖）东山再起（谢安）洛阳纸贵（左思） 南北朝：画龙点睛（张僧繇）江郎才尽（江淹） 宋：东窗事发（秦桧）胸有成竹（文与可） “母”字格言1.失败是成功之母。（中国） 2.懒惰是贫穷之母。（芬兰）3.谨慎是智慧之母。（法国） 4.记忆是知识之母。（英国） 5.适度是健康之母。（英国） 6.重复是学习之母。（法国） 7.夜晚是深思之母。（希腊） 8.需要是发明之母。（日本） 9.勤勉是好运之母。（英国） 10.经历是才智之母。（英国） 数字猜成语：12345609（七零八落）1256789（丢三落四）1+2+3（接二连三）333 555（三五成群）3.5（不三不四）5 10（一五一十）9寸+1寸=1尺（得寸进尺） 【寓言故事类】：拔苗助长狐假虎威亡羊补牢坐井观天刻舟求剑叶公好龙守株待兔画蛇添足 愚公移山精卫填海掩耳盗铃画饼充饥画地为牢杀鸡儆猴对牛弹琴盲人摸象 【历史故事类】：完璧归赵程门立雪三顾茅庐渑池之会负荆请罪纸上谈兵指鹿为马闻鸡起舞
vba中文转拼音首字母
vba中文转拼音首字母 Function getpychar(char) tmp = 65536 + Asc(char) If (tmp >= 45217 And tmp <= 45252) Then getpychar = "A" ElseIf (tmp >= 45253 And tmp <= 45760) Then getpychar = "B" ElseIf (tmp >= 45761 And tmp <= 46317) Then getpychar = "C" ElseIf (tmp >= 46318 And tmp <= 46825) Then getpychar = "D" ElseIf (tmp >= 46826 And tmp <= 47009) Then getpychar = "E" ElseIf (tmp >= 47010 And tmp <= 47296) Then getpychar = "F" ElseIf (tmp >= 47297 And tmp <= 47613) Then getpychar = "G" ElseIf (tmp >= 47614 And tmp <= 48118) Then getpychar = "H" ElseIf (tmp >= 48119 And tmp <= 49061) Then getpychar = "J" ElseIf (tmp >= 49062 And tmp <= 49323) Then getpychar = "K" ElseIf (tmp >= 49324 And tmp <= 49895) Then getpychar = "L" ElseIf (tmp >= 49896 And tmp <= 50370) Then getpychar = "M" ElseIf (tmp >= 50371 And tmp <= 50613) Then getpychar = "N" ElseIf (tmp >= 50614 And tmp <= 50621) Then getpychar = "O" ElseIf (tmp >= 50622 And tmp <= 50905) Then getpychar = "P" ElseIf (tmp >= 50906 And tmp <= 51386) Then getpychar = "Q" ElseIf (tmp >= 51387 And tmp <= 51445) Then getpychar = "R" ElseIf (tmp >= 51446 And tmp <= 52217) Then getpychar = "S" ElseIf (tmp >= 52218 And tmp <= 52697) Then getpychar = "T" ElseIf (tmp >= 52698 And tmp <= 52979) Then
提取汉字的拼音
使用方法，工具-宏-visual basic编辑器，新建一个模块，拷贝进去 然后，就可以吧pinyin(mystring)当一个工作比函数来使用了 例子 在a1单元格中有文字"阿中" 在b1单元格中输入函数=pinyin(a1) b1中则输出AZ Public Function pinyin(mystr As String) As Variant '自定义函数，目的：把单个汉字变为拼音的第一个字母。 On Error Resume Next mystr = StrConv(mystr, vbNarrow) Dim returnStr As String Dim i As Integer Dim curWord As String For i = 1 To Len(mystr) curWord = Mid(mystr, i, 1) If Asc(curWord) <> 0 And Err.Number <> 1004 Then returnStr = returnStr & getFirstLetterOfCnWord(curWord) End If Next i pinyin = returnStr End Function Public Function isCNWord(mystr As String) As Boolean Dim flag As Boolean flag = False If Len(mystr) <> LenB(mystr) Then flag = True End If isCNWord = flag End Function Public Function getFirstLetterOfCnWord(mystr As String) As String If Asc(mystr) < 0 Then If Asc(Left$(mystr, 1)) < Asc("啊") Then getFirstLetterOfCnWord = "0" Exit Function End If If Asc(Left$(mystr, 1)) >= Asc("啊") And Asc(Left$(mystr, 1)) < Asc("芭") Then getFirstLetterOfCnWord = "A" Exit Function End If
excel提取汉字的拼音首字母集锦
excel提取汉字的拼音首字母集锦 方法一：（最完美的方法） 如果你A列的汉字都在4个字符之内，那就在B列输入此公式： =LOOKUP(MID(A1,1,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"})&LOOKUP(MID(A1,2,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"})&LOOKUP(MID(A1,3,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"})&LOOKUP(MID(A1,4,1),{"","";"吖","A";"八","B";"嚓","C";"咑","D";"鵽","E";"发","F";"猤","G";"铪","H";"夻","J";"咔","K";"垃","L";"嘸","M";"旀","N";"噢","O";"妑","P";"七","Q";"囕","R";"仨","S";"他","T";"屲","W";"夕","X";"丫","Y";"帀","Z"}) 公式是长了一点，如果把{}里的数据定义为名称，可以转换更多的首字母 具体方法： 复制{}里的数据，插入-名称(或者按CTRL+F3)，定义名称，如图，定义“拼音”为名称，下面的“引用位置”的“=”号后面粘贴刚才复制的{}里的数据
java获取汉字拼音或拼音首字母
Java获取汉字拼音或拼音首字母 Posted on 2012-04-18 21:58 myfavorite阅读(1251) 评论(0)编辑收藏在进行模糊查询时，经常用到使用汉字拼音或者首字母进行匹配查询。以下是获取汉字拼音或者首字母的java代码实现 package com; import net.sourceforge.pinyin4j.PinyinHelper; import net.sourceforge.pinyin4j.format.HanyuPinyinCaseType; import net.sourceforge.pinyin4j.format.HanyuPinyinOutputFormat; import net.sourceforge.pinyin4j.format.HanyuPinyinToneType; import net.sourceforge.pinyin4j.format.HanyuPinyinVCharType; import net.sourceforge.pinyin4j.format.exception.BadHanyuPinyinOutputFormatCombination; public class GetPinyin { /** * 得到全拼 * * @param src * @return */ public static String getPingYin(String src) { char[] t1 = null; t1 = src.toCharArray(); String[] t2 = new String[t1.length]; HanyuPinyinOutputFormat t3 = new HanyuPinyinOutputFormat(); t3.setCaseType(HanyuPinyinCaseType.LOWERCASE); t3.setToneType(HanyuPinyinToneType.WITHOUT_TONE); t3.setVCharType(HanyuPinyinVCharType.WITH_V); String t4 = ""; int t0 = t1.length; try { for (int i = 0; i < t0; i++) { // 判断是否为汉字字符 if (https://www.360docs.net/doc/13481501.html,ng.Character.toString(t1[i]).matches("[\\u4E00-\\u9FA5]+")) { t2 = PinyinHelper.toHanyuPinyinStringArray(t1[i], t3); t4 += t2[0]; } else { t4 += https://www.360docs.net/doc/13481501.html,ng.Character.toString(t1[i]); } } return t4; } catch (BadHanyuPinyinOutputFormatCombination e1) {