大小写换算(大小写转换是哪个键)

旧城等待， 2023-09-26 14:13 3阅读 0赞

### 4怎么大小写3670？3670.4怎么大小写 ###

叁仟陆佰柒拾点肆，如果帮到你，请给给好评哦，谢谢啦

![大小写换算(大小写转换是哪个键)\_大小写换算(大小写转换是哪个键)][6449f47798462ddeb0f59dc5665fe17b.jpeg]

### 银行存款的大小写不一致怎么办？银行存款的大小写不一致怎么办?银行 ###

一般来讲,大小写出现不一致的时候,以大写为准.当然,你最好先咨询一下出票的单位为什么会出现这种情况

### 大写金额转换规则 ###

如果你的金额在A1单元格，

=IF(A1=0,"",CONCATENATE(IF(INT(A1)=0,"",TEXT(INT(A1),"人民币

\[DBNum2\]\[$-804\]G/通用格式元

")),IF(INT(MID(RIGHT(FIXED(A1,2,1),2),1,1))=0,IF(INT(MID(RIGHT(FIXED(A1,2,1)

,1),1,1))=0,"",IF(INT(A1)=0,"","零")),TEXT(INT(MID(RIGHT(FIXED(A1,2,1),2),1,

1)),"\[DBNum2\]\[$-804\]G/通用格式角

")),IF(INT(MID(RIGHT(FIXED(A1,2,1),1),1,1))=0,"整

",TEXT(INT(MID(RIGHT(FIXED(A1,2,1),1),1,1)),"\[DBNum2\]\[$-804\]G/通用格式分

"))))

复制上去就可以了壹拾万壹仟元整

壹拾万伍仟零贰拾元伍角壹分

壹仟零伍元零玖分

壹仟零壹拾元伍角

(一)阿拉伯数字中间有“0”时，中文大写金额要写“零”字。如￥1，409．50，应写成人民币壹仟肆佰零玖元伍角。

(二)阿拉伯数字中间连续有几个“0”时，中文大写金额中间可以只写一个“零”字。如￥6，007．14，应写成人民币陆仟零柒元壹角肆分。

(三)阿拉伯金额数字万位或元位是“0”，或者数字中间连续有几个“0”，万位、元位也是“0”，但千位、角位不是“0”时，中文大写金额中可以只写一个零字，也可以不写“零”字。如￥1，680．32，应写成人民币壹仟陆佰捌拾元零叁角贰分，或者写成人民币壹仟陆佰捌拾元叁角贰分；又如￥107，000．53，应写成人民币壹拾万柒仟元零伍角叁分，或者写成人民币壹拾万零柒仟元伍角叁分。

(四)阿拉伯金额数字角位是“0”，而分位不是“0”时，中文大写金额“元”后面应写“零”字。如￥16，409．02，应写成人民币壹万陆仟肆佰零玖元零贰分；又如￥325．04，应写成人民币叁佰贰拾伍元零肆分。这需要编程 (以下是在网上找的，我经常用的)

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

if fen = 0 and jiao <> 0 then

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

if yuan = 0 then

dx = cnjiao & "角" & "整"

end if

if fen <> 0 and jiao = 0 then

dx = d1 & cnjiao & cnfen & "分"

if yuan = 0 then

dx = cnfen & "分"

end if

end function

输 入完成后，关闭“visual basic编辑器”返回工作表。现在，我们可测试一下这个函数。首先，在a1单元格中输入一个小写数字的金额，例如123456.78，然后，在a2单元 格中输入公式：=dx(a1)，确认后即可将a1所表示的小写数字金额转换为大写的数字金额，并在a2单元格中显示出来。怎么样，方便吧？在EXCEL中用以下函数即可实现：SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(A95)),"\[dbnum2\];; ")&SUBSTITUTE(TEXT(MOD(ABS(A95),1)/1%,"\[>9\]\[dbnum2\]元0角0分;\[>0\]\[dbnum2\]元零0分;元整"),"零分","整")," 元零",)," 元",)

![大小写换算(大小写转换是哪个键)\_大小写换算(大小写转换是哪个键)\_02][02]

### 大写金额转换规则 ###

如果你的金额在A1单元格，

=IF(A1=0,"",CONCATENATE(IF(INT(A1)=0,"",TEXT(INT(A1),"人民币

\[DBNum2\]\[$-804\]G/通用格式元

")),IF(INT(MID(RIGHT(FIXED(A1,2,1),2),1,1))=0,IF(INT(MID(RIGHT(FIXED(A1,2,1)

,1),1,1))=0,"",IF(INT(A1)=0,"","零")),TEXT(INT(MID(RIGHT(FIXED(A1,2,1),2),1,

1)),"\[DBNum2\]\[$-804\]G/通用格式角

")),IF(INT(MID(RIGHT(FIXED(A1,2,1),1),1,1))=0,"整

",TEXT(INT(MID(RIGHT(FIXED(A1,2,1),1),1,1)),"\[DBNum2\]\[$-804\]G/通用格式分

"))))

复制上去就可以了壹拾万壹仟元整

壹拾万伍仟零贰拾元伍角壹分

壹仟零伍元零玖分

壹仟零壹拾元伍角

(一)阿拉伯数字中间有“0”时，中文大写金额要写“零”字。如￥1，409．50，应写成人民币壹仟肆佰零玖元伍角。

(二)阿拉伯数字中间连续有几个“0”时，中文大写金额中间可以只写一个“零”字。如￥6，007．14，应写成人民币陆仟零柒元壹角肆分。

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

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

if fen = 0 and jiao <> 0 then

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

if yuan = 0 then

dx = cnjiao & "角" & "整"

end if

if fen <> 0 and jiao = 0 then

dx = d1 & cnjiao & cnfen & "分"

if yuan = 0 then

dx = cnfen & "分"

end if

end function

[6449f47798462ddeb0f59dc5665fe17b.jpeg]: https://img-blog.csdnimg.cn/img_convert/6449f47798462ddeb0f59dc5665fe17b.jpeg
[02]: https://img0.baidu.com/it/u=1358677447,1041225003&fm=26&fmt=auto