在Excel中，金额大小写自动保持一致

Question

如：A5单元格中填写金额大写，B5中是计算出来的小写金额
1.如何在我计算完B5中的数值，A5自动匹配大写？？反之？？
2.在我改变完B5中的数值，A5自动匹配大写？？反之？？
注：设置单元格格式，我已用了，还有没有更好的办法？自动方便的，可否有类似的软件？

Answer 1

Excel自动转换数字大小写具体的操作步骤如下：

1. 启动excel。按“alt+f11”快捷键打开“visual basic编辑器”。

2. 在“visual basic编辑器”中，单击“插入”菜单栏中的“模块”命令，插入一个模块。双击左侧“工程”窗口中的“模块1”选项，在窗口右边展开“模块1（代码）”编辑窗口，然后输入如下代码:

function dx(q)

dim cur as long,yuan as long

dim jiao as integer,fen as integer

dim cnyuan as string, cnjiao as string, cnfen as string

if q = "" then

dx = 0

exit function

end if

cur = round(q * 100)

yuan = int(cur / 100)

jiao = int(cur / 10) - yuan * 10

fen = cur - yuan * 100 - jiao * 10

cnyuan = application.worksheetfunction.text(yuan, "[dbnum2]")

cnjiao = application.worksheetfunction.text(jiao, "[dbnum2]")

cnfen = application.worksheetfunction.text(fen, "[dbnum2]")

dx = cnyuan & "元" & "整"

d1 = cnyuan & "元"

if fen <> 0 and jiao <> 0 then

dx = d1 & cnjiao & "角" & cnfen & "分"

if yuan = 0 then

dx = cnjiao & "角" & cnfen & "分"

end if

end if

if fen = 0 and jiao <> 0 then

dx = d1 & cnjiao & "角" & "整"

if yuan = 0 then

dx = cnjiao & "角" & "整"

end if

end if

if fen <> 0 and jiao = 0 then

dx = d1 & cnjiao & cnfen & "分"

if yuan = 0 then

dx = cnfen & "分"

end if

end if

end function

输 入完成后，关闭“visual basic编辑器”返回工作表。现在，我们可测试一下这个函数。首先，在a1单元格中输入一个小写数字的金额，例如123456.78，然后，在a2单元 格中输入公式：=dx(a1)，确认后即可将a1所表示的小写数字金额转换为大写的数字金额，并在a2单元格中显示出来。怎么样，方便吧？

Answer 2

一般是由于显示数据的单元格设置采用“数值，小数2位”的方式引起的，在原始数据上增加round()函数即可。

Answer 3

只能改变完B5中的数值，A5自动匹配大写，不能反之
a5=IF($B$5<=0,"",TEXT(INT($B$5),"[dbnum2]")&IF($B$5-INT($B$5)=0,"元整",IF(AND($B$5-INT($B$5)>0,LEN($B$5)-FIND(".",$B$5)=1),"元"&TEXT(MID($B$5,FIND(".",$B$5)+1,1)*1,"[dbnum2]")&"角整",IF(AND($B$5-INT($B$5)>0,LEN($B$5)-FIND(".",$B$5)=2,MID($B$5,FIND(".",$B$5)+1,2)*1<10),""&"元零"&TEXT(MID($B$5,FIND(".",$B$5)+1,2)*1,"[dbnum2]")&"分",IF(AND($B$5-INT($B$5)>0,LEN($B$5)-FIND(".",$B$5)=2,MID($B$5,FIND(".",$B$5)+1,2)*1>10),"元"&TEXT(MID($B$5,FIND(".",$B$5)+1,1)*1,"[dbnum2]")&"角"&TEXT(MID($B$5,FIND(".",$B$5)+2,1)*1,"[dbnum2]")&"分",)))))
将此公式直接复制到a5即可实现自动匹配b5的大写无论数字大小均适合

Answer 4

A5单元格填写下面内容（可直接复制）
=TEXT(INT(B5),"[dbnum2]")&"元"&IF(INT(B5*10)-INT(B5)*10=0,"",TEXT(INT(B5*10)-INT(B5)*10,"[dbnum2]")&"角")&IF(INT(B5*100)-INT(B5*10)*10=0,"整",TEXT(INT(B5*100)-INT(B5*10)*10,"[dbnum2]")&"分")