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了
另外,刚刚注意到,你的余额这一列单元格,都有一个绿色小三角,查证下为什么会有这个小三角,出现小三角的情形一般有文本格式、相邻单元格的公式不一致,按理说这里不应该用文本格式啊,查查你的余额计算公式吧。