請問EXCEL可以找出中文字對應的注音符號嗎

[hsieh]

程式碼:

Function C_EN(mystr, mytype, dot1, dot2)
Dim kk$, test$, i%, s%
'函數說明
'自訂函數C_EN
　　'此函數有3個引數mystr , 輸入一中文字串
'mytype指傳回之英文之大小寫狀況
'mytype=1傳回大寫之通用拼音之英文字串
'mytype=2傳回小寫之通用拼音之英文字串
'mytype=3傳回第一字大寫之通用拼音之英文字串
'dot1為輸出字串之姓與名分隔符號
'dot2為為輸出字串之名連接符號
Dim Arr()
For k = 1 To Len(Trim(mystr))
　 test = Replace(Replace(Replace(Trim(TINTLGNTCode(Mid(mystr, k, 1))), "ˊ", ""), "ˇ", ""), "ˋ", "")
　 If test <> "" Then
　　Ans = WorksheetFunction.VLookup(test, [對照], 6)
　　ReDim Preserve Arr(s)
　　Select Case mytype
　　Case 1
　　 Arr(s) = UCase(Ans)
　　Case 2
　　 Arr(s) = LCase(Ans)
　　Case 3
　　 Arr(s) = UCase(Mid(Ans, 1, 1)) & LCase(Mid(Ans, 2))
　　End Select
　　 s = s + 1
　　End If
Next
For i = UBound(Arr) To 1 Step -1
kk = Arr(i) & dot2 & kk
Next
C_EN = Arr(0) & dot1 & Left(kk, Len(kk) - Len(dot2))
End Function

疏失更正

[附件已被管理員刪除]

[joviwang]

hsieh 前輩你好：
1、Ans = WorksheetFunction.VLookup(test, [對照], 5)
會對應到第5欄的漢語拼音，我把5改成6之後，好像Ucase沒反應，每個字都變大寫(原來的第6欄，每個字母都大寫)

2、謝謝。 -:)

[joviwang]

對不起，不是來灌水的。
Dim kk$, test$, i%, s%
'函數說明
'自訂函數C_EN
　　'此函數有3個引數mystr , 輸入一中文字串
'mytype指傳回之英文之大小寫狀況
'mytype=1傳回大寫之通用拼音之英文字串
'mytype=2傳回小寫之通用拼音之英文字串
'mytype=3傳回第一字大寫之通用拼音之英文字串
'dot1為輸出字串之姓與名分隔符號
'dot2為為輸出字串之名連接符號
Dim Arr()
For k = 1 To Len(Trim(mystr))
　 test = Replace(Replace(Replace(Trim(TINTLGNTCode(Mid(mystr, k, 1))), "ˊ", ""), "ˇ", ""), "ˋ", "")
　 If test <> "" Then
　　Ans = WorksheetFunction.VLookup(test, [對照], 6)
　　ReDim Preserve Arr(s)
　　Select Case mytype
　　Case 1
　　 Arr(s) = UCase(Ans)
　　Case 2
　　 Arr(s) = LCase(Ans)
　　Case 3
　　 Arr(s) = UCase(Mid(Ans, 1, 1)) & LCase(Mid(Ans, 2))
　　End Select
　　 s = s + 1
　　End If
Next
For i = UBound(Arr) To 1 Step -1
kk = Arr(i) & dot2 & kk
Next
C_EN = Arr(0) & dot1 & Left(kk, Len(kk) - Len(dot2))
End Function


上列程式修改2個地方以符合小弟的需求：
1、Ans = WorksheetFunction.VLookup(test, [對照], 6)
原來的5，改成6(第6欄為通用拼音)。
2、Case 3
　　 Arr(s) = UCase(Mid(Ans, 1, 1)) & LCase(Mid(Ans, 2))
第2個字母以後，呈現小寫

謝謝hsieh 前輩。

[HUNGCHILIN]

這一篇在新windows系統下 已完全失效