设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

1234下一页
返回列表 发新帖
查看: 16215|回复: 38
打印 上一主题 下一主题

[基础应用] 将键入的阿拉伯数字自动转换成人民币大写金额

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2004-6-24 05:04:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
将键入的阿拉伯数字自动转换成人民币大写金额

转自 ·青牛··yesky

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



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



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



   (*假设此单元格金额为1234.51元*) → 设置单元格格式 → 数字 → 自定义 → 在类型框中输入 [DBNum2]0"千"0"百"0"拾"0"元"0"角"0"分""整" 即可将选中的单元格中的数字显示为大写金额:(壹千贰百叁拾肆元伍角壹分整)。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅

点击这里给我发消息

2#
发表于 2004-7-20 23:58:00 | 只看该作者
你的方法好像行不通,我用的是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零千零百壹拾贰元叁角伍分整
3#
发表于 2004-7-22 21:28:00 | 只看该作者
我也是OFFICE2003123.4        <COLGROUP><COL style="WIDTH: 152pt; mso-width-source: userset; mso-width-alt: 6464" width=202>0千0百0拾1元2角3分整
4#
发表于 2004-8-3 05:07:00 | 只看该作者
我的跟2、3楼一样啊!
5#
发表于 2004-8-6 00:53:00 | 只看该作者
我直接输入1234 ,就自动变成大写
6#
发表于 2004-9-4 17:07:00 | 只看该作者
好像不行
7#
发表于 2004-9-5 01:16:00 | 只看该作者
不行啊,老兄!我是2000

[em04][em04]
8#
发表于 2004-9-9 06:46:00 | 只看该作者
不行的。我有一个函数转换公式。明天发上来。
9#
发表于 2005-1-2 04:45:00 | 只看该作者
可以利用VBA编一个函数实现你的功能
10#
发表于 2005-1-2 04:47:00 | 只看该作者
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
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 20:40 , Processed in 0.113635 second(s), 34 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表