單元格阿拉伯數轉換貨幣大寫數字
A. 在excel中如何講阿拉伯數字格式轉化為大寫貨幣格式,例如表格中為2.3元,如何轉化為貳圓叄角整
打開VB編輯器,新建一模塊,輸入以下代碼:
Public Function RMBDX(M)
RMBDX = Replace(Application.Text(Round(M + 0.00000001, 2), "[DBnum2]"), ".", "元")
RMBDX = IIf(Left(Right(RMBDX, 3), 1) = "元", Left(RMBDX, Len(RMBDX) - 1) & "角" & Right(RMBDX, 1) & "分", IIf(Left(Right(RMBDX, 2), 1) = "元", RMBDX & "角整", IIf(RMBDX = "零", "", RMBDX & "元整")))
RMBDX = Replace(Replace(Replace(Replace(RMBDX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "負")
End Function
假如你要轉換的數值在A1單元格,在B1或其他單元格輸入= RMBDX(A1)
這是自定義函數,office 2003裡面應該有帶的。
B. excel中怎麼將表示金額的阿拉伯數字轉換成中文大寫
在單元格格式里有,只是只能把整數轉換,小數部分不可以的。設置見下圖:
C. EXCEL單元格中的阿拉伯數字怎樣轉換成大寫漢字
用這個函數可以實現 打開Excel,按Alt+F11或者選擇菜單工具→宏→Visual Basic 編輯器進入後新建模塊(插入→模塊),鍵入以下語句:
Function NCN(account) 'Nummary Capital Number
ybb = Round(account * 100)
y = Int(ybb / 100)
j = Int(ybb / 10) - y * 10
f = ybb - y * 100 - j * 10
zy = Application.WorksheetFunction.Text(y, "[dbnum2]")
zj = Application.WorksheetFunction.Text(j, "[dbnum2]")
zf = Application.WorksheetFunction.Text(f, "[dbnum2]")
NCN = zy & "圓"
If j = 0 And f = 0 Then
NCN = NCN & "整"
End If
If f <> 0 And j <> 0 Then
NCN = NCN & zj & "角" & zf & "分"
If y = 0 Then
NCN = zj & "角" & zf & "分"
End If
End If
If f = 0 And j <> 0 Then
NCN = NCN & zj & "角"
If y = 0 Then
NCN = zj & "角"
End If
End If
If f <> 0 And j = 0 Then
NCN = NCN & zj & zf & "分"
If y = 0 Then
NCN = zf & "分"
End If
End If
If account = "" Then
NCN = ""
End If
End Function
這樣就可以了,關閉VB編輯器,進入Excel界面會發現在插入函數時多了一類「用戶定義」,裡面有個函數「NCN」,意思是「Nummary Capital Number」貨幣大寫數字。如果不喜歡,可以在角本里改,用理想的函數名替換"NCN"即可。
關閉之前可以把你自己寫的模塊導出到一個.bas文件,以後想用的時候導入即可。因為是自己編寫的,所以沒有數字簽名,打開帶有此函數的文件時會提示有風險。降低安全級別即可,打開之後再改回來。
D. 阿拉伯數字 轉換成 人民幣大寫
用Excel在你想輸入數字的單元格右鍵快捷菜單選擇「設置單元格格式」在 「數字」的選項下的「特殊」中選擇中文大寫數字(有兩個,選第二個是繁體)點擊「確認」就好了
阿拉伯數字,是現今國際通用數字。最初由印度人發明,後由阿拉伯人傳向歐洲,之後再經歐洲人將其現代化。正因阿拉伯人的傳播,成為該種數字最終被國際通用的關鍵節點,所以人們稱其為「阿拉伯數字」(也可以說是人們弄錯,誤稱為阿拉伯數字)。
阿拉伯數字由0,1,2,3,4,5,6,7,8,9共10個計數符號組成。採取位值法,高位在左,低位在右,從左往右書寫。藉助一些簡單的數學符號(小數點、負號、百分號等),這個系統可以明確的表示所有的有理數。為了表示極大或極小的數字,人們在阿拉伯數字的基礎上創造了科學記數法。
中文大寫金額數字應用正楷或行書填寫,如壹、貳、叄、肆、伍、陸、柒、捌、玖、拾、佰、仟、萬、億、元、角、分、零、整(正)等字樣,不得用一、二(兩)、三、四、五、六、七、八、九、十、毛、另(或0)填寫,不得自造簡化字。如果金額數字書寫中使用繁體字,如貳、陸、億、萬、圓的,也應受理。
人民幣大寫的正確寫法還應注意以下幾項:
一、中文大寫金額數字到「元」為止的,在「元」之後、應寫「整」(或「正」)字;在「角」之後,可以不寫「整」(或「正」)字;大寫金額數字有「分」的,「分」後面不寫「整」(或「正」)字。
二、中文大寫金額數字前應標明「人民幣」字樣,大寫金額數字應緊接「人民幣」字樣填寫,不得留有空白。大寫金額數字前未印「人民幣」字樣的,應加填「人民幣」三字,在票據和結算憑證大寫金額欄內不得預印固定的「仟、佰、拾、萬、仟、佰、拾、元、角、分」字樣。
E. excel:阿拉伯數字轉化為金額大寫
付款金額: "¥123,456,789.12"
大寫: 壹億貳仟叄佰肆拾伍萬陸仟柒佰捌拾玖元壹角貳分
單元格B6函數編輯如下:
" =IF(ROUND(B6,2)<0,""無效數值"",IF(ROUND(B6,2)=0,""零"",IF(ROUND(B6,2)<1,"""",TEXT(INT(ROUND(B6,2)),""[dbnum2]"")&""元"")&IF(INT(ROUND(B6,2)*10)-INT(ROUND(B6,2))*10=0,IF(INT(ROUND(B6,2))*(INT(ROUND(B6,2)*100)-INT(ROUND(B6,2)*10)*10)=0,"""",""零""),TEXT(INT(ROUND(B6,2)*10)-INT(ROUND(B6,2))*10,""[dbnum2]"")&""角"")&IF((INT(ROUND(B6,2)*100)-INT(ROUND(B6,2)*10)*10)=0,""整"",TEXT((INT(ROUND(B6,2)*100)-INT(ROUND(B6,2)*10)*10),""[dbnum2]"")&""分"")))"
函數應用分析:
一、ROUND,數學和三角函數:將數字按指定位數舍入
" (ROUND(B6,2),即對單元格B6的內容進行四捨五入處理,且保留兩位小數"
二、INT,數學和三角函數:將數字向下舍入到最接近的整數
" INT(ROUND(B6,2),即對單元格B6在進行四捨五入保留兩位小數的基礎上,去掉小數點後面的位數,即只顯示整數,此時,INT(ROUND(B6,2)和INT(B6)效果是一樣的。"
三、TEXT,文本函數:設置數字格式並將其轉換為文本;[dbnum2],格式函數
" TEXT(INT(ROUND(B6,2)),""[dbnum2]""),即對INT(ROUND(B6,2))以[dbnum2]格式進行顯示。"
[dbnum2],為單元格格式代碼(亦可稱之為格式函數),格式描述為:中文大寫數字,更多單元格格式代碼,請點擊查詢
四、&,文本連接符,有合並單元格內容的功能,運用在函數公式中,起到連接文本(或是數字)內容的作用。
" TEXT(INT(ROUND(B6,2)),""[dbnum2]"")&""元"",即將數字按要求轉化為中文大寫後加「元」,完成單元格B6「元」單位設置。"
五、IF條件函數、IF嵌套函數、組合函數應用:
"第一層條件函數為:如果(ROUND(B6,2)<0,則單元格B6顯示結果為「無效數值」,否則……(以第二層條件函數表達)"
"第二層條件函數為:如果(ROUND(B6,2)=0,則單元格B6顯示結果為「零」,否則……(以&連接IF條件函數表達)"
第三層條件函數為:嵌套組合函數,結構為:IF***&元IF***&角&IF***分
"A、「元」位數據的讀取:IF(ROUND(B6,2)<1,"""",TEXT(INT(ROUND(B6,2)),""[dbnum2]"")&""元"")"
讀取個位數以上的數據,以「元」結束,如果小於1,則不必顯示什麼內容
"B、「角」位數據的讀取:IF(INT(ROUND(B6,2)*10)-INT(ROUND(B6,2))*10=0,IF(INT(ROUND(B6,2))*(INT(ROUND(B6,2)*100)-INT(ROUND(B6,2)*10)*10)=0,"""",""零""),TEXT(INT(ROUND(B6,2)*10)-INT(ROUND(B6,2))*10,""[dbnum2]"")&""角"")"
" 第1層:如果單元格B6小數點後第一位為0,則……(以第2層條件函數表達),否則,計算為
「TEXT(INT(ROUND(B6,2)*10)-INT(ROUND(B6,2))*10,""[dbnum2]"")&""角""」"
" 第2層:在小數點後第二位(末位數)為0的情況下,對小數點後第一位數字計算為"""",即不讀取角位數據,否則(末位數不為0的情況),
小數點後第一位讀取為「零」;"
"C、「分」位數據的讀取:IF((INT(ROUND(B6,2)*100)-INT(ROUND(B6,2)*10)*10)=0,""整"",TEXT((INT(ROUND(B6,2)*100)-INT(ROUND(B6,2)*10)*10),""[dbnum2]"")&""分"")))"
如果單元格B6末位數為0,則以「整」結束,而則就以「分」結束;
六、公式應用說明:
"INT(ROUND(B6,2)*10),對單元格B6數字先擴大10倍再進行舍位,即去掉小數點後的位數,此時個位數為單元格B6數據的小數點後第一位數字;"
"INT(ROUND(B6,2))*10,對單元格B6數字先去掉小數點後的位數,再擴大10倍,此時,個位數為零;"
"INT(ROUND(B6,2)*10)-INT(ROUND(B6,2))*10=0,說明單元格B6小數點後第一位為「零」,否則結果就是單元格B6小數點後第一位數字!"
"INT(ROUND(B6,2)*100),對單元格B6數字先擴大100倍再進行舍位,即去掉小數點後的位數,此時個位數為單元格B6數據的小數點後第二位數字(亦即末位數)"
"INT(ROUND(B6,2)*10)*10,對單元格B6數字先擴大10倍再舍位,同時再擴大10倍,即將單元格B6數據的小數點後第二數(末位數)去掉後整體擴大100倍"
"INT(ROUND(B6,2)*100)-INT(ROUND(B6,2)*10)*10=0,說明單元格B6小數點後第二位為「零」,否則結果就是單元格B6小數點後第二位數字!"
F. 如何在電子表格中將阿拉伯數字轉換為大寫金額
方法一、在A1單元格輸入數字,B1單元格輸入「=SUBSTITUTE(SUBSTITUTE(IF(ISNUMBER(FIND(".",A1)),TEXT(LEFT(A1,FIND(".",A1)-1),"[dbnum2]")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[dbnum2]")&"角"&TEXT(MID(A1,FIND(".",A1)+2,1),"[dbnum2]")&"分",TEXT(A1,"[dbnum2]")&"元整"),"角分","角整"),"-","負")」,回車即可。
方法二、在A1單元格輸入數字,B1單元格輸入「=IF(A2<0,"負","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分","整")」,回車
G. excel中阿拉伯數字如何轉換為大寫金額
具體操作方法如下:
1、打開Excel軟體。
H. 如何在EXCEL中將阿拉伯數字轉換為大寫人民幣的形式
1、首先在excel單元格中輸入需要轉換為大寫金額的數字,例如輸入「98765」並選中該單元格。
I. excel:阿拉伯數字轉化為金額大寫
=NUMBERSTRING(A1,2)