怎样设置excel表可以在输入小写金额的同时自动填充大写金额
最新回答
雪蝶宿秋风
2025-06-26 16:57:33
B1 输入公式
=IF(A1,TEXT(INT(A1),"[dbnum2]G/通用格式;[dbnum2]负G/通用格式;")&"元"&IF(INT(A1*10)-INT(A1)*10=0,IF(INT(A1)*(INT(A1*100)-INT(A1*10)*10)=0,"","零"),TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角")&IF((INT(A1*100)-INT(A1*10)*10)=0,"整",TEXT((INT(A1*100)-INT(A1*10)*10),"[dbnum2]")&"分"),"")
这样A1输入数字，B1 直接显示
大写金额
雨中的恋人
2025-06-26 18:50:05
如上图所示，设置一下单元格格式就能解决您的问题。
聆听ゝ尔伈
2025-06-26 15:59:44
将小写金额用Excel自动转换为大写金额
此时弹出“设置单元格格式”栏，在“数组”栏内的分类中选择“特殊”，类型选为“中文大写数字”，再按“确定”即可。
将小写金额用Excel自动转换为大写金额
之前框选的小写金额变成了大写金额。
月亮供电不足
2025-06-26 02:36:04
将下面的自定义函数复制到你的excel模块中
Public Function renminbi(Amountin)
renminbi = Replace(Application.Text(Round(Amountin + 0.00000001, 2), "[DBnum2]"), ".", "元")
renminbi = IIf(Left(Right(renminbi, 3), 1) = "元", Left(renminbi, Len(renminbi) - 1) & "角" & Right(renminbi, 1) & "分", IIf(Left(Right(renminbi, 2), 1) = "元", renminbi & "角整", IIf(renminbi = "零", "", renminbi & "元整")))
renminbi = Replace(Replace(Replace(Replace(renminbi, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")
End Function
你就可以像正常使用函数一样，用=renminbi(数字）的方法得到金额的大写了
寄纸筏
2025-06-26 17:31:13
1
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"万",IF(AND(MOD(ABS(A1%),1000)<100,MOD(ABS(A1%),1000)>=10),"万零","万")),"零分","整")
当然上例只是众多函数处理方法中的其中一个，可以在一张空表的A1单元格输入任意数值，把如上公式复制到B1单元格，即可看到效果。
热门标签
