查看: 1586|回复: 11
请教高人，如何将人民币小写转换成大写
阅读权限20
在线时间 小时
求教高人，请问EXCEL里如何将F6表格里录入的小写数字后，在F6表格里显示大写的人民币格式。如图
解释说明，这个功能是在WPS表格里实现的，想在excel表里也能这样，请问我该怎么做呢？多谢！
(55.91 KB, 下载次数: 23)
17:50 上传
阅读权限100
在线时间 小时
论坛有代码，搜一下 人民币大写函数
阅读权限95
在线时间 小时
这是在论坛上搜到的，供你参考。
20:30 上传
点击文件名下载附件
52.6 KB, 下载次数: 225
阅读权限20
在线时间 小时
chxw68 发表于
这是在论坛上搜到的，供你参考。
多谢您的帮助，这里面的数据非常全面，但是我想要的是在F6格里录入小写，在F6格里显示大写这种的，要强调的是在同一个格里完成。现在我看到的答案都是在一个格里录入小数，在另外一个格里反映出一串大写的，而我想要的是在同一个格里录入小数，显示出大写的，请各位多多指点。
利用单元格change事件就可以实现。&
阅读权限20
在线时间 小时
yanan4451 发表于
多谢您的帮助，这里面的数据非常全面，但是我想要的是在F6格里录入小写，在F6格里显示大写这种的，要强调 ...
利用单元格change事件就可以实现。请3楼的高手能详细指点一下吗？
阅读权限20
在线时间 小时
& & & & & & & &
chxw68 发表于
这是在论坛上搜到的，供你参考。
高人，请问利用单元格change事件就可以实现的大小写金额转换，您能具体指点一下吗？我想要实现的大小写转换是在同一个单元格里完成，即在A1单元格里录入123.10后，在A1单元格反应出来的是相对应的大写金额（壹佰贰拾叁元壹角整）
阅读权限95
在线时间 小时
本帖最后由 wj2368 于
11:27 编辑
Function N2RMB(M)
Dim n%, t$
& & N2RMB = Replace(Application.Text(Round(M + 0.), &[DBnum2]&), &.&, &元&)
& & N2RMB = IIf(Left(Right(N2RMB, 3), 1) = &元&, Left(N2RMB, Len(N2RMB) - 1) & &角& & Right(N2RMB, 1) & &分&, _
& && && && && & IIf(Left(Right(N2RMB, 2), 1) = &元&, N2RMB & &角整&, _
& && && && && && &&&IIf(N2RMB = &零&, &&, N2RMB & &元整&)))
& & N2RMB = Replace(Replace(Replace(Replace(N2RMB, &零元零角&, &&), &零元&, &&), &零角&, &零&), &-&, &负&)
& & n = InStr(N2RMB, &元&)
& & If n && 0 Then
& && &&&t = Mid(N2RMB, n - 1, 1)
& && &&&If InStr(&拾佰仟万亿&, t) & 0 Then
& && && && &If Mid(N2RMB, n + 1, 1) && &零& Then
& && && && && & N2RMB = Left(N2RMB, n) & &零& & Right(N2RMB, Len(N2RMB) - n)
& && && && &End If
& && &&&End If
& & End If
End Function
阅读权限95
在线时间 小时
& & & & & & & &
yanan4451 发表于
多谢您的帮助，这里面的数据非常全面，但是我想要的是在F6格里录入小写，在F6格里显示大写这种的，要强调 ...
Function DX(m)
& & DX = Replace(Application.Text(Round(m + 0.), &[dbnum2]&), &.&, &元&)
& & DX = IIf(Left(Right(DX, 3), 1) = &元&, Left(DX, Len(DX) - 1) & &角& & Right(DX, 1) & &分&, IIf(Left(Right(DX, 2), 1) = &元&, DX & &角整&, IIf(DX = &零&, &&, DX & &元整&)))
& & DX = Replace(Replace(Replace(Replace(DX, &零元零角&, &&), &零元&, &&), &零角&, &零&), &-&, &负&)
End Function
你在需要输入大写的单元格中使用公式：=DX(100.01)就行了。
阅读权限20
在线时间 小时
chxw68 发表于
Function DX(m)
& & DX = Replace(Application.Text(Round(m + 0.), &[dbnum2]&), &.&, &元& ...
高手，我是菜鸟，怎么弄都弄不明白。您能直接给做好了吗？因为后面还有后续的表格，所以我现在只需完成这步了。而且只能这样操作才行哦，多谢了！
11:54 上传
点击文件名下载附件
19.63 KB, 下载次数: 25
阅读权限95
在线时间 小时
修改好了。
12:28 上传
点击文件名下载附件
20.19 KB, 下载次数: 95
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师【求助】WPS表格中如何输入“人民币大写（元）”字样_wps吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：311,818贴子：
【求助】WPS表格中如何输入“人民币大写（元）”字样收藏
说明：在一个单元格中，相当于有两行输入，第一行写“人民币”，第二行写“大写”，然后在这些字的后面，一二行中间的位置，写“（元）”字样，可能表达的不太清楚，还望大神不吝赐教，不胜感激！！！
2017看中超 牛魔王购票有保障！
建议：1、将“人民币”“ 大写”这些在实际数字前的文字，单独输入在世佳数字左侧的单元格中；2、将该单元格右边框设置为无；3、将数字所在的单元格属性设置为：特殊-人民币大写完成上述步骤后，即可获得相似的显示效果
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或(window.slotbydup=window.slotbydup || []).push({
id: '3284507',
container: s,
size: '0,0',
display: 'inlay-fix'
Excel表格输入数字转换成人民币大写
用Excel制作财务报表的时候，经常需要将数字表示为大写的中文数字金额，可以用设置&单元格格式&的方法来实现自动转换大写金额。也可以用公式来实现。下面说的这两种方法，大家可以选择性使用：
1、用公式实现数字转换人民币大写
鉴于EXCEL本身提供将数字转换为大写表示的功能根本不能正常应用在实际投标或财务应用之中，所以要自己建设，通过在EXCEL表格框（例如在&B1&单元）中直接输入以下公式：
=SUBSTITUTE(SUBSTITUTE(IF(ISNUMBER(FIND(&.&,A1)),TEXT(LEFT(A1,FIND(&.&,A1)-1),&[dbnum2]&)&&元&&TEXT(MID(A1,FIND(&.&,A1)+1,1),&[dbnum2]&)&&角&&TEXT(MID(A1,FIND(&.&,A1)+2,1),&[dbnum2]&)&&分&,TEXT(A1,&[dbnum2]&)&&元整&),&角分&,&角整&),&-&,&负&)
然后在&A1&中输入数字，就可看到效果。可以下拉B1单元格来复制公式，在A列输入数字，就会在B列显示大写的人民币。效果如下：
2、用设置单元格格式的方法来实现数字转换人民币大写
框选你要转换的数字-左键-选择&设置单元格格式&-在数字的标签里选择&特殊&就可以看到人民币大写的样式如下图：
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------您还可以使用以下方式登录
当前位置：&>&&>& > WPS表格中数字转换为人民币大写的方法
wps表格大小写转换 WPS表格中数字转换为人民币大写的方法
&　　WPS表格中数字转换为人民币大写的方法& & & & &1、打开WPS表格，选中要设置人民币大写的单元格，鼠标右键，点击&设置单元格格式&，如下图。　　2、弹出&单元格格式&对话框，在&数字&选项卡，分类里选择&特殊&，然后在类型里选择&人民币大写&，单击&确定&按钮，如下图。　　3、人民币大写设置完成，请看下图。
欢迎转载：
推荐： 　　　把数值转换为人民币大写格式对于财务人员是很必要的一件事情，面对着大量的支票、工资单使用公式设置那是相当麻烦的，不过在WPS2005中却可以轻松完成此项工作，而且省事省力，事半功倍，下面以某单位的工资表为例为大家详细介绍下把工资总和转换成人民币大写格式，为此而烦恼的相关工作人员可以借此机会学习下哦，希望本教程对大家有所帮助。一、在&分类&中选择&特殊&在类型中选择&人民币大写&实现数值就变人民币大写格式 二、在&分类中&选择&自定义&在类型中选择&[DBNUM2][$RMB]/通用格式:[红色]&实现自定义人民币大写格式例如，某单位的工资表，最后要把工资总和书写成人民币大写格式。首先单击要转换为人民币大写格式的单元，选中设置单元格式菜单然后在单元格式菜单选中分类中的特殊类型中的人民币大写最后确定后数值就变成了人民币大写格式我们也可以在大写格式前加入&人民币&三字，在第二步中我们选择自定义类型中我们选中&[DBNUM2][$RMB]/通用格式:[红色]&，在前面加入&人民币&三字，在示例中看到&人民币XX元XX角XX分&单击确定后就变成了带有&人民币&三字的人民币大写格式最近更新：免责声明：本文仅代表作者个人观点,与本网无关。看完本文，记得打分哦：很好下载Doc格式文档马上分享给朋友：?知道苹果代表什么吗实用文章，深受网友追捧比较有用，值得网友借鉴没有价值，写作仍需努力相关综合教程：
48小时热门