Recently encountered a lot of work needed to turn Chinese into English initials, Baidu out mostly with VBA, you need to enable macros not say, but a lot of words can not be converted at night to find a use LOOKUP and MID functions can simply be Chinese convert Pinyin initials, such as: "love accessories" turn into "AFL", now for everyone to share.
Tools / materials
-
Windows 7
-
EXCEL2013 version
Method / Step
-
1
Right-click any cell, defined names.
-
2
Enter the name: PY
A reference position input: = { "", "acridine", "eight", "Ca", "fight the", "Duo", "fat", "ga", "Ha", "Ji", "cracking", " refuse "," mother "," Soft Fleece "
"噢","帊","七","冄","仨","他","屲","夕","丫","帀";"","A","B","C","D","E",
"F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"}
-
3
In cell entry the results to be converted: = LOOKUP (MID (A2,1,1), PY) & LOOKUP (MID (A2,2,1), PY) & LOOKUP (MID (A2,3,1), PY) & LOOKUP (MID (A2,4,1), PY) & LOOKUP (MID (A2,5,1), PY).
If there are 6 word is added after "& LOOKUP (MID (A2,6,1), PY)" and so on.
-
4
Drop down to fill.
Personal feeling with VBA faster than direct test not found can not be converted.
END
Precautions
-
测试为win7,若电脑为XP系统引用位置则改为:={"","吖","八","嚓","咑","鵽","发","猤","铪","夻","咔","垃","嘸","旀", "噢","妑","七","囕","仨","他","屲","夕","丫","帀";"","A","B","C","D","E", "F","G","H","J","K","L","M","N","O","P","Q","R","S","T","W","X","Y","Z"}
-
For more than one pronunciation can only return an outcome.