欧美一级特黄级AAA片

excel中將中文姓名直接轉為中文拼音的多種方法

將中文姓名直接轉為中文拼音

第一種如圖:

第二種給Excel加個自定義函數

執行“工具→宏→Visual Basic編輯器”命令,或者直接按“Alt+F11”組合鍵,進入Visual Basic編輯狀態。也就是圖中所用的灰色的編輯界面,點擊“插入→模塊”命令
內容 太長,在網盤下載
https://pan.baidu.com/s/1pLguxFd 

第三種,在EXCEL中獲取漢字首拼的方法如下:

1、依次點擊【文件】-【選項】-【自定義功能區】-【主選項卡】-勾選【開發工具】。
2、點擊確定后,導航菜單內將增加一項【開發工具】。
3、打開【開發工具】菜單,點擊【Visual Basic】,彈出代碼窗口,在窗口左側空白處,點擊右鍵,選擇【插入】-【模塊】。窗口右側將出現白色背景框。
4、將以下內容粘貼到右側框中:
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 >= 53679 And tmp <= 54480) Then
getpychar = "Y"
ElseIf (tmp >= 54481 And tmp <= 62289) Then
getpychar = "Z"
Else '如果不是中文,則不處理
getpychar = char
End If
End Function

'逐個取ASC碼
Function getpy(str)
For i = 1 To Len(str)
getpy = getpy & getpychar(Mid(str, i, 1))
Next i
End Function
5、點擊菜單中的【保存】,彈出提示框后,點【是】,再點擊【確定】。
6、關閉代碼窗口,回到Excel。鼠標選定需要獲取漢字首拼列的第一行。在函數框中輸入=getpy(B2)(即調用自定義函數,獲取B2單元格中漢字內容首字母),點擊回車,就可看到獲取到B2單元格中內容的首字母。
7、鼠標定位到單元格C2右下角,光標變成黑色十字,按住鼠標左鍵下拉,獲取全部內容的首字母。完成

聊城興企網絡

專注于網絡推廣服務,為企業提供快速建站,小程序、網站seo優化一站式服務方案,為企業快速提高網站排名,獲取新客戶。!

| 北京 天津 河北 山西 內蒙古 遼寧 吉林 黑龍江 上海 江蘇 浙江 安徽 福建 江西 山東 河南 湖北 湖南 廣東 廣西 海南 重慶 四川 貴州 云南 西藏 陜西 甘肅 青海 寧夏 新疆 臺灣
18963523858 掃描微信