excel提取貨幣數字圓角分
A. Excel 的元角分整!!
HI 我,幫你看看
1. 首先更正一下,到了角分,就不用整字了。整正對於單位元。另外,支票大寫需要補零,比如壹萬零千伍佰零十元。這個函數不是
2. 進入EXCEL 按 ALT + F11 進入VBA
3. 右擊VBA工作簿,插入---模塊,將以下代碼復制進去
4. 用=daxie() 公式調用
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) = 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
B. excel中,A1中是金額,比如59621231.03,怎麼把數字拆分到後邊對應的圓角分的單元格里
第一個單元格寫入公式
=LEFT(RIGHT(" ¥"&$A1*100,11-COLUMN(A1)))
右拉填充公式
C. 如何在excel把帶貨幣的價格中的數字提取出來
操作方法如下:
以下圖表格中的數據為例;數據截止到第6行。
D. 如何在excel將數字從貨幣符號中分解出來
如果其中有空格可以用分列的方法將其分開為兩列。
如果沒有空格,也沒有規律可以用以下公式提取:
=-LOOKUP(,-MID(A1,MIN(FIND({0;1;2;3;4;5;6;7;8;9},A1&1234567890)),ROW($1:$1024)))
E. 怎樣讓excel表格中的數字直接生成貨幣元角分
=IF(ROUND(A1,2)=0,"",IF(A1<0,"負","")&IF(ABS(A1)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[dbnum2]")&"元","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2<1,,"零")),"零分","整"))
如果顯示零元整 將 ROUND(A1,2)=0,"",改為ROUND(A1,2)=0,"零元整",
F. EXCEL表格匯總時貨幣怎樣自然生成大寫元角分整
=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"[>0][dbnum2];[<0]負[dbnum2];;")&TEXT(RIGHT(FIXED(A1),2),"元[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"元整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")
自定義單元格格式為
[DBNum2][$-804]yyyy"年"mm"月"dd"日"
G. EXCEL表格提取數字,單元格裡面的金額,提取到十萬、萬、千、百、十、元、角、分對應的格里,如圖:
E5:
=IF(COLUMN($N5)-COLUMN()=LEN($N5*100)+1,"¥",IF(COLUMN($N5)-COLUMN()<=LEN($N5*100),MID($N5*100,LEN($N5*100)-COLUMN($N5)+COLUMN()+1,1),""))
H. excel如何將帶小數的數字轉換為圓角分
假設你A2是金額(數字格式),在任意空單元格輸入
=SUBSTITUTE(SUBSTITUTE(IF(A2>-0.5%,,"負")&TEXT(INT(FIXED(ABS(A2))),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(A2),2),"[dbnum2]0角0分整;;"&IF(ABS(A2)>1%,"整",)),"零角整",IF(ABS(A2)<1,,"零")),"零分整","整")
I. EXCEL中怎麼在數字後面自動加元角分
以Excel20165版本為例,操作方法步驟如下:
步驟一、打開需要輸入的Excel表格文件。
J. excel中公式問題, 現金日記賬把數字抽取到元角分中
具體情況不明,提取字元的公式無誤(當然大於12位也就無實際意義了,第13位取不到)。建議:
1、查一下為什麼227731.83-188500.00=39231.8300000001,這里的188500是輸入進去的,還是計算值、復制值,是不是真正的兩位小數,還是因為單元格格式顯示出的兩位小數;
2、如果可以的話,你對原L117的公式改為:=round(原公式,2),變成真正的是兩位小數。
如果上述方法無法解決你的問題的話,那恐怕就要查證軟體是否存在bug了
另外,剛剛注意到,你的余額這一列單元格,都有一個綠色小三角,查證下為什麼會有這個小三角,出現小三角的情形一般有文本格式、相鄰單元格的公式不一致,按理說這里不應該用文本格式啊,查查你的余額計算公式吧。