頁: 1 [2] 
|
 |
|
 作者
|
主題: 請問EXCEL可以找出中文字對應的注音符號嗎 (閱讀 4068 次)
|
|
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
疏失更正[附件已被管理員刪除] |
|
|
|
« 最後編輯時間: 2007-04-02, 10:46:06 由 hsieh »
|
已記錄
|
回答滿意嗎?
記得告訴我哦!!
|
|
|
|
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
尊貴會員
 離線
會員性別: 
文章: 34
不恥下問,不斷學習,才有進步空間
|
這一篇在新windows系統下 已完全失效
|
|
|
|
|
已記錄
|
****************Hung-Chi Lin****************
微軟 Office專家認證 MOS MI 講師/監評委員
微軟官方網站 MicrosoftTechnet Office版_版主
OFFICE精英俱樂部 VBA交流版/財會版_版主
ExcelHelp Forum Excel討論區_�
|
|
|
hwongsin
小學生
離線
文章: 1
|
站長您好：
請問可以將中文字對應的注音符號檔案email給我參考嗎？謝謝。
信箱：hw5615@yahoo.com.tw
|
|
|
|
|
已記錄
|
|
|
|
|
頁: 1 [2] 
|
|
|
|
