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

admin

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

转自 ·青牛··yesky

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



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



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



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

xulanghui

你的方法好像行不通，我用的是OFFICE2003。<COLGROUP><COL style="WIDTH: 54pt" width=72><COL style="WIDTH: 176pt; mso-width-source: userset; mso-width-alt: 7520" width=235>123.5零百壹拾贰元肆角整1234.51零千零百壹拾贰元叁角伍分整

guankee

我也是OFFICE2003123.4        <COLGROUP><COL style="WIDTH: 152pt; mso-width-source: userset; mso-width-alt: 6464" width=202>0千0百0拾1元2角3分整

zzcad

我的跟2、3楼一样啊！

caoshuxue

我直接输入1234 ,就自动变成大写

2015

好像不行

mfkjatflf

不行啊，老兄!我是2000

[em04][em04]

ppp-ppp

不行的。我有一个函数转换公式。明天发上来。

远见卓识

可以利用ＶＢＡ编一个函数实现你的功能

远见卓识

Function D(Q)

YBB = Round(Q * 100)

Y = Int(YBB / 100)

J = Int(YBB / 10) - Y * 10

F = YBB - Y * 100 - J * 10

ZY = Application.WorksheetFunction.Text(Y, "[DBNUM2]")

ZJ = Application.WorksheetFunction.Text(J, "[DBNUM2]")

ZF = Application.WorksheetFunction.Text(F, "[DBNUM2]")

D = ZY & "元"

If F <> 0 And J <> 0 Then

D = D & ZJ & "角" & ZF & "分"

If Y = 0 Then

D = ZJ & "角" & ZF & "分"

End If

End If

If F = 0 And J <> 0 Then

D = D & ZJ & "角"

If Y = 0 Then

D = ZJ & "角"

End If

End If

If F <> 0 And J = 0 Then

D = D & ZJ & ZF & "分"

If Y = 0 Then

D = ZF & "分"

End If

End If

If Q = "" Then

D = 0

End IfEnd Function