您现在的位置是:Instagram刷粉絲, Ins買粉絲自助下單平台, Ins買贊網站可微信支付寶付款 >
01 本地訂閱轉換工具英文數字大寫(數字翻譯成英文大寫?)
Instagram刷粉絲, Ins買粉絲自助下單平台, Ins買贊網站可微信支付寶付款2024-06-16 00:20:13【】7人已围观
简介如何在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 版本而略有差異。
自訂函數的共用性與流
很赞哦!(574)
相关文章
- tiktok為什么看不到評論(tiktok軟件評論怎么翻譯中文)
- 01 我國對外貿易地理方向評價(中國對外貿易地理方向)
- tiktok為什么點贊不見了(為什么tiktok關注和點贊刷新就消失)
- 01 我國農產品對外貿易問題研究(求論文一篇,題目是《我國農產品國際貿易狀況及發展對策》。)
- 01 我國海外利益面臨哪些威脅(我果國海外利益安全面臨的威脅挑戰主要有?)
- 01 我國海外利益面臨著哪些威脅多選(新興領域和海外利益面臨新挑戰有哪些?)
- tiktok為啥一直加載(抖音一鍵成片為啥一直加載中)
- tiktok為什么限制國內用戶(為什么抖音國際版tiktok看不了了呢?)
- 01 我國的自由貿易試驗區有哪幾個(中國有幾個自由貿易港)
- 01 我國對外貿易最發達的省(中國經濟發達的省份有哪些?)
热门文章
站长推荐
tiktok主播工資(如何成為TikTok公會的主播)
01 我國服務貿易進出口數據(1至7月我國服務進出口總額達33922.1億元,這一數據說明了什么?)
01 我國哪一年加入瀕危野生動物國際貿易公約(我國于多久加入瀕危野生動植物種國際貿易公約)
01 我國海外戰略性利益主要包括( )等內容(海外戰略性利益安全包括)
01 我國對外貿易的商品結構如何(我國出口商品結構?我們作業阿,幫忙 。)
01 我國國際貿易發展的特點及未來趨勢(當前國際貿易發展趨勢與特點)
tiktok主播招聘(tiktok里最開放的主播)
01 我國水果進出口貿易現狀(求論文一篇,題目是《我國農產品國際貿易狀況及發展對策》。)