报表中怎么设置大写数字的公式呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报表中怎么设置大写数字的公式呢？

共有12897人关注过本帖树形打印复制链接主题：报表中怎么设置大写数字的公式呢？

jack_cn_3847

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：9 积分：155 威望：0 精华：0 注册：2012/8/20 11:38:00

报表中怎么设置大写数字的公式呢？ 发帖心情

Post By：2012/12/21 9:55:00 [只看该作者]

小弟制作了一个报表，其中有一个单元格内，需要把计算出来的金额，在后一个单元格内转化成大写数字，如37000.00，要转化成叁万柒千元整。不知该怎么样编写公式呢？

e-png

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2012/12/21 10:04:00 [只看该作者]

Output.Show(CUMoney(123.23))

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/21 10:09:00 [只看该作者]

http://www.foxtable.com/help/topics/1345.htm

jack_cn_3847

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：9 积分：155 威望：0 精华：0 注册：2012/8/20 11:38:00

Post By：2012/12/21 13:58:00 [只看该作者]

我用的是EXCEl报表，也能使用这个公式么？是直接把公式输入到单元格里么？

lin_hailun

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/21 14:07:00 [只看该作者]

不能直接套用在excel中的，如果要用excel公式的话参考下面的。

把A2替换成你的单元格就行了

=IF(ABS(A2)& lt;0.005,"",IF(A2<0,"负",)&IF(INT(ABS(A2)),TEXT(INT(ABS(A2))," [dbnum2]")&" 元",)&IF(INT(ABS(A2)*10)-INT(ABS(A2))*10,TEXT(INT(ABS(A2)*10)-INT(ABS(A2))*10," [dbnum2]")&"角",IF(INT(ABS(A2))=ABS(A2),,IF(ABS(A2)<0.1,,"零")))& amp;IF(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),TEXT(ROUND(ABS(A2)*100- INT(ABS(A2)*10)*10,),"[dbnum2]")&"分","整"))

lin_hailun

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/21 14:11:00 [只看该作者]

例子。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:利用公式生成中文大写金额.xls

jack_cn_3847

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：9 积分：155 威望：0 精华：0 注册：2012/8/20 11:38:00

Post By：2012/12/21 14:40:00 [只看该作者]

以下是引用lin_hailun在2012-12-21 14:07:00的发言：
不能直接套用在excel中的，如果要用excel公式的话参考下面的。

把A2替换成你的单元格就行了

=IF(ABS(A2)& lt;0.005,"",IF(A2<0,"负",)&IF(INT(ABS(A2)),TEXT(INT(ABS(A2))," [dbnum2]")&" 元",)&IF(INT(ABS(A2)*10)-INT(ABS(A2))*10,TEXT(INT(ABS(A2)*10)-INT(ABS(A2))*10," [dbnum2]")&"角",IF(INT(ABS(A2))=ABS(A2),,IF(ABS(A2)<0.1,,"零")))& amp;IF(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),TEXT(ROUND(ABS(A2)*100- INT(ABS(A2)*10)*10,),"[dbnum2]")&"分","整"))

公式在excel中运行没有问题，可是作为模板导入，打开后，出现“数据可能丢失的错误”，还请大哥帮忙看看是不是模板设置有问题呢？