货币转大写，自己想了很久，没有做出来，求助下，谢谢！

canyng2 · 发表于 2023-4-11 06:04

具体表格里面有说明

想转成下面的样式，谢谢你

wh72988 · 发表于 2023-4-11 08:59

=IF(U12<0,"负","")&IF(TRUNC(U12)=U12,TEXT(IF(U12<0,-U12,U12),"[DBNum2]")&"元整",IF(TRUNC(U12*10)=U12*10,TEXT(TRUNC(IF(U12<0,-U12,U12)),"[DBNum2]")&"元"&TEXT(RIGHT(U12),"[DBNum2]")&"角整",TEXT(TRUNC(U12),"[DBNum2]")&"元"&IF(ISNUMBER(FIND(".0",U12)),"零",TEXT(LEFT(RIGHT(U12,2)),"[DBNum2]")&"角")&TEXT(RIGHT(U12),"[DBNum2]")&"分"))

yfan17 · 发表于 2023-4-11 09:33

=TEXT(LEFT(RIGHT(TEXT($U12/1%," ￥0; ￥-0;"),(18-COLUMN(A$1))/2)),"[DBNum2]")

复制代码

C12单元格公式，向右粘贴到E2、G2、I2、K2、M2、O2、Q2

魚。。 · 发表于 2023-4-11 09:35

C12公式：（然后把C12复制粘贴到其他单元格）

=TEXT(MID(RIGHT(" ￥"&ROUND($U12/1%,2),8),COLUMN(B:B)/2,1),"[dbnum2]")

复制代码

xyxcc177 · 发表于 2023-4-11 10:42

本帖最后由 xyxcc177 于 2023-4-12 09:26 编辑

都是公式高手！发个VBA的

		自动登录	找回密码
密码			免费注册

[求助] 货币转大写，自己想了很久，没有做出来，求助下，谢谢！

评分

评分