您现在的位置是:Instagram刷粉絲, Ins買粉絲自助下單平台, Ins買贊網站可微信支付寶付款 >
01 本地訂閱轉換工具英文數字大寫(數字翻譯成英文大寫?)
Instagram刷粉絲, Ins買粉絲自助下單平台, Ins買贊網站可微信支付寶付款2024-06-13 03:08:54【】9人已围观
简介如何在excel中設置公式將數字轉換為英文大寫金額使用數字轉英文貨幣大寫“自定義函數”,具體使用方法如下:所需材料:Excel、數字轉英文貨幣大寫自定義函數(可通過網絡復制粘貼)。一、首先打開Exce
如何在excel中設置公式將數字轉換為英文大寫金額
使用數字轉英文貨幣大寫“自定義函數”,具體使用方法如下:
所需材料:Excel、數字轉英文貨幣大寫自定義函數(可通過網絡復制粘貼)。
一、首先打開Excel表格文件,按Alt+F11打開VBA窗口,插入一個“模塊”。
二、右鍵模塊1,菜單內點擊“導入文件”。
三、找到數字轉大寫英文貨幣的BAS格式文件,點擊“打開”。
四、這時就可以把該函數導入VBA模塊,另外如果是通過網格上粘貼的數字轉英文大寫金額函數,則真可以在下圖白色區域內Ctrl+V粘貼進來即可,導入函數后,關閉VBA窗口。
五、這時在數字單元格右邊單元格內輸入=SpellNumber(A1),按回車鍵即可得出大寫英文金額,其它單元格下拉填充即可。
英文版Excel中如何把數字轉換成中文大寫金額?
用VBA自定義一個大寫金額轉換的函數,在公式中輸入此函數名就可以了。
具體方法:按 Alt+F11 ,在VBA編輯器菜單中點 插入→模塊,將下面的函數復制到插入的模塊當中,
'===================================================================
Function CChinese(StrEng As String) As String
'將阿拉伯數字轉成中文字的程式例如:1560890 轉成 "壹佰伍拾陸萬零捌佰玖拾"。
'程式限制為不可輸入超過16個數字
If Not IsNumeric(StrEng) Or StrEng Like "*.*" Or StrEng Like "*-*" Then
If Trim(StrEng) <> "" Then MsgBox "無效的數字"
CChinese = "": Exit Function
End If
Dim intLen As Integer, intCounter As Integer
Dim strCh As String, strTempCh As String
Dim strSeqCh1 As String, strSeqCh2 As String
Dim strEng2Ch As String
strEng2Ch = "零壹貳叁肆伍陸柒捌玖"
strSeqCh1 = " 拾佰仟 拾佰仟 拾佰仟 拾佰仟"
strSeqCh2 = " 萬億兆"
StrEng = CStr(CDec(StrEng))
intLen = Len(StrEng)
For intCounter = 1 To intLen
strTempCh = Mid(strEng2Ch, Val(Mid(StrEng, intCounter, 1)) + 1, 1)
If strTempCh = "零" And intLen <> 1 Then
If Mid(StrEng, intCounter + 1, 1) = "0" Or (intLen - intCounter + 1) Mod 4 = 1 Then
strTempCh = ""
End If
Else
strTempCh = strTempCh & Trim(Mid(strSeqCh1, intLen - intCounter + 1, 1))
End If
If (intLen - intCounter + 1) Mod 4 = 1 Then
strTempCh = strTempCh & Mid(strSeqCh2, (intLen - intCounter + 1) \ 4 + 1, 1)
If intCounter > 3 Then
If Mid(StrEng, intCounter - 3, 4) = "0000" Then strTempCh = Left(strTempCh, Len(strTempCh) - 1)
End If
End If
strCh = strCh & Trim(strTempCh)
Next
CChinese = strCh
End Function
'===================================================================
'===================================================================
Function daxie(money As String) As String
'實現貨幣金額中文大寫轉換的程序
'程式限制為不可輸入超過16個數字
Dim x As String, y As String
Const zimu = ".sbqwsbqysbqwsbq" '定義位置代碼
Const letter = "0123456789sbqwy.zjf" '定義漢字縮寫
Const upcase = "零壹貳叁肆伍陸柒捌玖拾佰仟萬億圓整角分" '定義大寫漢字
If CDbl(money) >= 1E+16 Then daxie = "#VALUE!": Exit Function '只能轉換一億億元以下數目的貨幣!
x = Format(money, "0.00") '格式化貨幣
y = ""
For i = 1 To Len(x) - 3
y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)
Next
If Right(x, 3) = ".00" Then
y = y & "z" '***元整
Else
y = y & Left(Right(x, 2), 1) & "j" & Right(x, 1) & "f" '*元*角*分
End If
y = Replace(y, "0q", "0") '避免零千(如:40200肆萬零千零貳佰)
y = Replace(y, "0b", "0") '避免零百(如:41000肆萬壹千零佰)
y = Replace(y, "0s", "0") '避免零十(如:204貳佰零拾零肆)
y = Replace(y, "0j", "0") '避免零角
y = Replace(y, "0f", "") '避免零分
Do While y <> Replace(y, "00", "0")
y = Replace(y, "00", "0") '避免雙零(如:1004壹仟零零肆)
Loop
y = Replace(y, "0y", "y") '避免零億(如:210億 貳佰壹十零億)
y = Replace(y, "0w", "w") '避免零萬(如:210萬 貳佰壹十零萬)
y = IIf(x < 0.1, Right(y, Len(y) - 3), y) '避免零幾分(如:0.01零壹分;0.04零肆分)
y = IIf(Len(x) = 5 And Left(y, 1) = "1", Right(y, Len(y) - 1), y) '避免壹十(如:14壹拾肆;10壹拾)
y = IIf(Len(x) = 4, Replace(y, "0.", ""), Replace(y, "0.", ".")) '避免零元(如:20.00貳拾零圓;0.12零圓壹角貳分)
For i = 1 To 19
y = Replace(y, Mid(letter, i, 1), Mid(upcase, i, 1)) '大寫漢字
Next
daxie = y
End Function
'===================================================================
回到Excel工作表中,若要轉化A1單元格的數字,則可在其他任意單元格中輸入公式 =CChinese(A1)。要轉換成大寫金額,則可在其他任意單元格中輸入公式 =daxie(A1)。
excel中如何將阿拉伯數字自動轉換成英文大寫?
自訂函數的使用方法和內建函數大同小異。
使用插入函數的方式來使用該函數:
<一>
插入函數的方式可以從功能表的插入>>函數
或
一般工具列的自動加總旁按下拉式選單選其他函數
或
資料編輯列上的 Fx 按鈕
以上三種方法皆可插入函數。
<二>
函數類別選使用者定義
<三>
函數名稱選自訂函數SpellNumber>>確定
<四>
輸入數字或選參照的儲存格>>確定
上述方式可能會依不同的 Excel 版本而略有差異。
自訂函數的共用性與流
很赞哦!(77681)
相关文章
- 01 youtube官網打不開原因是什么如何進行切換(youtube打不開是什么問題?)
- 01 youtube官網打不開原因是什么請結合自身(為什么youtube打不開)
- 04 國際經濟與貿易專業本科代碼(國際經濟貿易專業的專業代碼??)
- 04 國外貿易電商平臺(十大跨境電商平臺有哪些?)
- 01 youtube官網打不開如何更換瀏覽器后自動打開頁面(macbook怎么刪除chrome的youtube)
- 04 國內貿易行業狀況分析(當前國際貿易就業形勢如何)
- 04 國際經濟與貿易英文自我介紹(求大神給寫篇大學畢業生的求職自我介紹,英文的,專業是國際經濟與貿易。)
- 04 國際教育服務貿易名詞解釋(國際商務是什么意思)
- 01 youtube官網打不開如何更換瀏覽器后刷新404怎么解決(youtube視頻打不開顯示錯誤代碼404)
- 01 youtube官網打不開如何更換瀏覽器怎么下載視頻教程(如何保存外網的視頻)
热门文章
站长推荐
04 國際服務貿易論文3000字(服務貿易論文參考文獻)
04 國際經濟與貿易考研深圳大學(考研經濟學院校排名)
01 youtube官網打不開如何更換瀏覽器主頁推薦手機版(macbook怎么刪除chrome的youtube)
01 youtube官網打不開原因是什么該操作已觸發(蘋果平板黑屏了打不開怎么辦)
01 youtube官網打不開如何更換瀏覽器怎么下載華為手機(youtube為什么打不開了呢?)
04 國際經濟與貿易認知實踐報告(本科學生認知實踐報告)
01 youtube官網打不開如何更換瀏覽器怎么樣使用新(macbook怎么刪除chrome的youtube)
01 youtube官網打不開原因是什么呢是什么東西(youtube為什么打不開了呢?)