數字轉英文 係excel度點set方程式?
唔該!!
數字轉英文 係excel度點set方程式?
2007-03-01 9:19 am
回答 (4)
2007-03-01 9:25 am
✔ 最佳答案
儲存格格式數值
文字
2007-03-04 5:05 am
Function changE(mun As Long)
Dim munE As String
If mun = 0 Then
changE = ""
ElseIf mun Mod 26 = 0 Then
munE = changE(mun \ 27) & Choose((mun Mod 26 + 1), "Z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
changE = munE
Else
munE = changE(mun \ 26) & Choose((mun Mod 26 + 1), "Z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
changE = munE
End If
End Function
Dim munE As String
If mun = 0 Then
changE = ""
ElseIf mun Mod 26 = 0 Then
munE = changE(mun \ 27) & Choose((mun Mod 26 + 1), "Z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
changE = munE
Else
munE = changE(mun \ 26) & Choose((mun Mod 26 + 1), "Z", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
changE = munE
End If
End Function
2007-03-01 3:36 pm
2007-03-01 10:25 am
唔係太明你問乜喎.....
你係想將數字轉英文?
數字就係數字，又點去轉英文呢？
或是你係想將 1 轉做one，10 就轉做 ten?
你係想將數字轉英文?
數字就係數字，又點去轉英文呢？
或是你係想將 1 轉做one，10 就轉做 ten?
收錄日期: 2021-04-13 17:02:03
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20070301000051KK00276