将键入的阿拉伯数字自动转换成人民币大写金额

admin

将键入的阿拉伯数字自动转换成人民币大写金额

转自 ·青牛··yesky

在使用EXCEL过程中，在制作财务凭证时经常需要将数字表示为大写的数字金额，可用设置单元格格式的方法来实现：



　　1.首先鼠标右键单击需要用大写金额显示的单元格。



　　2.(*假设此单元格金额为123.50元*)　→ 设置单元格格式 → 数字 → 自定义 → 在类型框中输入　[DBNum2]0"百"0"拾"0"元"0"角""整"　即可将选中的单元格中的数字显示为大写金额：（壹百贰拾叁元伍角整）。



　　　(*假设此单元格金额为1234.51元*)　→　设置单元格格式　→　数字　→　自定义　→　在类型框中输入　[DBNum2]0"千"0"百"0"拾"0"元"0"角"0"分""整"　即可将选中的单元格中的数字显示为大写金额：（壹千贰百叁拾肆元伍角壹分整）。

wnsfzf

不行的

水仙

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

有颜色是引用的单元格,只要在引用单元格输入数值就可以自动生成大写!
希望大家成功!

ytklhg

谢谢楼主，很不错！学习了！

BFLK

用下面的函数
=IF(Round([A1],2)<0,"无效数值",IF(Round([A1],2)=0,"零",IF(Round([A1],2)<1,"",Text(Int(Round([A1],2)),"[dbnum2]") & "元") & IF(Int(Round([A1],2)*10)-Int(Round([A1],2))*10=0,IF(Int(Round([A1],2))*(Int(Round([A1],2)*100)-Int(Round([A1],2)*10)*10)=0,"","零"),Text(Int(Round([A1],2)*10)-Int(Round(A1,2))*10,"[dbnum2]") & "角") & IF((Int(Round([A1],2)*100)-Int(Round([A1],2)*10)*10)=0,"整",Text((Int(Round([A1],2)*100)-Int(Round([A1],2)*10)*10),"[dbnum2]") & "分")))

livewire

Excel2003版: 设置格式为特殊格式, 中文大写.

yanglong030

怎么不行啊,我都试过了,,都可以的,
       谢谢楼主了,

yanglong030

我上次下的教程被我SHIFT+DELETE删了,,唉,,可惜啊,,是我的心血啊,,,现在只有重来下了,,,,

yanglong030

我试过了的,行的,,真的很棒,高手啊,,,谢谢了,

rogerwei

其实最简单的方法是用搜狗拼音