excel表格獲取漢字大寫首拼函數（自定義宏）

本文轉載自查看原文 2019-01-27 11:55 831

打開excel，按Alt+F11，插入-模塊，復制粘貼下邊的函數

 1 Function pinyin(p As String) As String
 2 
 3 　　i = Asc(p)
 4 
 5 　　Select Case i
 6 
 7 　　Case -20319 To -20284: pinyin = "A"
 8 　　Case -20283 To -19776: pinyin = "B"
 9 　　Case -19775 To -19219: pinyin = "C"
10 　　Case -19218 To -18711: pinyin = "D"
11 　　Case -18710 To -18527: pinyin = "E"
12 　　Case -18526 To -18240: pinyin = "F"
13 　　Case -18239 To -17923: pinyin = "G"
14 　　Case -17922 To -17418: pinyin = "H"
15 　　Case -17417 To -16475: pinyin = "J"
16 　　Case -16474 To -16213: pinyin = "K"
17 　　Case -16212 To -15641: pinyin = "L"
18 　　Case -15640 To -15166: pinyin = "M"
19 　　Case -15165 To -14923: pinyin = "N"
20 　　Case -14922 To -14915: pinyin = "O"
21 　　Case -14914 To -14631: pinyin = "P"
22 　　Case -14630 To -14150: pinyin = "Q"
23 　　Case -14149 To -14091: pinyin = "R"
24 　　Case -14090 To -13319: pinyin = "S"
25 　　Case -13318 To -12839: pinyin = "T"
26 　　Case -12838 To -12557: pinyin = "W"
27 　　Case -12556 To -11848: pinyin = "X"
28 　　Case -11847 To -11056: pinyin = "Y"
29 　　Case -11055 To -2050: pinyin = "Z"
30 
31 　　Case Else: pinyin = p
32 
33 　　End Select
34 
35 End Function
36 
37 Function getpy(str)
38 
39 　　For i = 1 To Len(str)
40 
41 　　getpy = getpy & pinyin(Mid(str, i, 1))
42 
43 　　Next i
44 
45 End Function

然后關掉窗口，在excel表格里邊就可以使用這個函數了，例如：

=getpy(A1)

搞掂，不過如果需要永久這些大寫首拼的話需要保存支持宏的格式，否則下次再打開就丟失啦，也可以復制出來，自己衡量吧~

免責聲明！

本站轉載的文章為個人學習借鑒使用，本站對版權不負任何法律責任。如果侵犯了您的隱私權益，請聯系本站郵箱yoyou2525@163.com刪除。

猜您在找 Excel使用vba自定義函數 WORD自定義宏 Excel表格中自定義樣式太多，刪除辦法：函數式宏定義和自定義函數的區別是什么？ layui打印表格自定義函數 layui打印表格自定義函數 sqlserver 獲取漢字拼音的首字母（大寫）函數 EPLAN 自定義窗口宏尺寸在Unity中使用自定義宏自定義NSLog宏輸出