怎样设置excel表可以在输入小写金额的同时自动填充大写金额

Answer 1

如果你输入的金额数值从a1开始，想要大写金额在b列b1开始显示。那么就在b1单元格输入公式

=IF(a1<0,"负",)&TEXT(TRUNC(ABS(a1)),"[DBNum2]G/通用格式")&"元"&IF(ROUND(a1,3)=ROUND(a1,),"整",TEXT(RIGHT(TRUNC(a1*10),1),"[DBNum2]G/通用格式")&"角"&IF(ROUND(a1,3)=ROUND(a1,1),"整",TEXT(RIGHT(ROUND((a1*100),),1),"[DBNum2]G/通用格式")&"分"))

公式中a1是单元格引用，你可以根据实际需求替换。

Answer 2

如上图所示，设置一下单元格格式就能解决您的问题。

Answer 3

选定区域 设置单元格格式 选特殊 中文大写数字

Answer 4

右键-单元格格式-特殊-中文大写数字

Answer 5

用设置的方法，可以得到数字的大写形式，但不能得到财务金额的形式，要得到财务金额的方式，需要一个自定义函数
将下面的自定义函数复制到你的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(数字）的方法得到金额的大写了