体验零代码搭建

在Excel中实现中文大写数字的方法

网友投稿  ·  2024-03-08 14:03  ·  所有内容  ·  阅读 2617


在Excel中实现中文大写数字的方法,需要的朋友可以参考下。 一、自动更正法

  使用自动更正功能,可以简化用户对大写汉字的输入操作,例如可以将“1//”定义更正为“壹”,那么当要输入“壹”时,就可通过键入“1//”来实现。另外,这种定义以后不仅在Excel中有效,在Word中也同样有效,因为“自动更正”程序是Office组件所公用的。

在Excel中实现中文大写数字的方法,需要的朋友可以参考下。 一、自动更正法

  使用自动更正功能,可以简化用户对大写汉字的输入操作,例如可以将“1//”定义更正为“壹”,那么当要输入“壹”时,就可通过键入“1//”来实现。另外,这种定义以后不仅在Excel中有效,在Word中也同样有效,因为“自动更正”程序是Office组件所公用的。

在Excel中实现中文大写数字的方法

  用“自动更正”是最简单易行的,用户可自由、方便地输入要写的大写读法。然而它的局限性也很明显,即它虽然给使用者提供了输入大写数字的方便手段,但终究还是需要人工输入,不能自动、实时地依当前的实际数字结果进行更新。

  二、工作表函数替换法

  要做到数值的自动更新,一般都会想到用VB构造函数法,但其实我们可采用一个简单的方法,即工作表函数的替换法。顾名思义,所谓“工作表函数的替换法”,就是将原来的结果换去一部分。那么换什么,又怎样换?

  我们知道,在Excel中,提供了多种数字的显示格式。其中文版实际上也包括数字的大写读法显示格式,但遗憾的是这个功能对一般用户来说基本上不能用,因为Microsoft在实现这个数字显示格式时犯了一个小小的错误,例如“33.56”这个数,它显示出来的是“叁拾叁.伍陆”。很显然,没有将小数点作有效处理。

  虽然这个显示格式是错的,但其劳动成果还是能为我们所用——只要能设法将其小数点作有效处理。做到这一点也并不难,可以先将数字以其内置的中文大写显示格式转变为文本格式,即使用TEXE( )函数将其结果转化为字符串,然后将小数点“.”用汉字“点”换掉(使用SUBSTITUTE( )函数。

  例如,若要将B1单元格内容重写为大写,则可以在单元格中输入如下公式:

复制代码代码如下:

=SUBSTITUTE(TEXT(B1,"G/通用格式"),".","点")

使用这样一个小小的公式应当说并不复杂,不过,这样做仍不能满足某些情况下的要求,因为使用大写表示数额一般只应用于财会方面,其他很少这么用。在上例中,对数字“33.56”,往往要求结果写为“叁拾叁元伍角陆分”。那么,如何将“33.00”写为“叁拾叁元整”呢?

  实现这一功能的逻辑也不太复杂。我们可以看到,Excel显示格式的小数点前的数字读法是没有错的,可将其取出来作为一个字符串;小数点后面的数字则麻烦些,必取出来,再以低位是否都为“0”来判断是要写“整”还是“零”。还要将“元”、“角”、“分”等字串适当地插入,最后把几个字串连接起来就行了。我们仍将B1 单元格内容作格式转化,则具体实现如下:

复制代码代码如下:

=TEXT(INT(B1),"G/通用格式")&"元"&IF((INT(B1*10)-INT(B1) *10)=0," ",TEXT(INT(B1*10) - INT (B1) * 10 ,"G/通用格式") &"角")&IF((INT(B1*100)-INT(B1*10) *10)=0,"整",TEXT (INT (B1*100) - INT ( B1*10) *10,"G/通用格式")&"分")

写这么一长串的公式看来似乎有些吓人,但是,如果在常要修改数据的表中或在模板里以这个方法实现大写汉字显示的话,则以后不但省事而且不易出错。

  三、VB编程法的思路

  可以用VB写一个函数,以后可像Excel的内部函数一样直接被调用,不过这需要熟悉VB编程。在编程过程中可用一般的方法调用VB函数,也可以借用我们前面所列“代换法”中的函数。但前面的公式中用的大多是Excel的工作表函数,在VB中不能直接使用,若非要用,也只能通过层次关系调用它(即用“Application WorksheetFunction”方式调用)。

  但个人认为最好自己用VB函数写,因为这样的话,较通用且可移植性好。若只用VB函数,具体方法与代换法也有类似之处,但小数点前的处理要复杂得多,相应的代码也太长。
上一篇:Excel 文件体积变大的原因分析与解决方法 下一篇:轻松去掉excel中同一列中的重复数据的方法

相关文章

Excel教程
Excel表格下拉列表怎么设置

Excel表格下拉列表怎么设置呢?很多用户对此还不是很清楚,小编这里就给大家带来有关Excel表格下拉列表怎么设置的回答,希望能够对大家有所帮助。......

2023-01-18

详细阅读
Excel教程
Excel如何打印选定区域

Excel如何打印选定区域呢?很多用户对此还不是很清楚,小编这里就给大家带来有关Excel如何打印选定区域的回答,希望能够对大家有所帮助。......

2023-01-18

详细阅读
Excel教程
Excel怎么设置英文首字母大写

Excel怎么设置英文首字母大写?Excel中输入英文首字母大写怎么操作?当我们需要将Excel表格中的英文单词,把首字母全部大写,该怎么操作呢,怎么将Excel中英文首字母大写,Excel怎么设置英文首字母大写,下面就和小编一起来看看吧!......

2023-01-18

详细阅读
Excel教程
Excel怎么给所有的数字加10

Excel怎么给所有的数字加10?Excel数字怎么全部加10?怎么全部加1?当我们在使用Excel时,所有的数字都少10,或者1,该怎么给所有的数字都+10、+1呢,Excel怎么给所有的数字加10,EXcel数字怎么全部加10,下面就和小编一起来看看吧!......

2023-01-18

详细阅读
Excel教程
Excel怎么设置日期自动更新

Excel怎么设置日期自动更新?Excel怎么设置日期自动更新?当我们Excel表格中的日期需要实时更新到最新日期,该怎么设置呢,怎么将Excel表格日期自动更新到最新日期,Excel怎么设置日期自动更新,下面就和小编一起来看看吧!......

2023-01-18

详细阅读

热门文章

1如何快速删除 Excel 表格中的批注 2excel查找后如何整行复制 3Excel行高如何设置? 4excel撤销合并单元格并填充相应内容的宏 5如何把Excel表格中的内容复制到word文档中,有两种方式 6excel单位如何添加 7如何为Excel表格快速隔行填充颜色 8Excel工作表中,日期格式5-16和5月16日,它们之间可以快速切换

最新文章

Excel表格下拉列表怎么设置 Excel如何打印选定区域 Excel怎么设置英文首字母大写 Excel怎么给所有的数字加10 Excel怎么设置日期自动更新 Excel负数怎么变正数 Excel两个日期之间的时间差怎么算 XML文件怎么转换成Excel表格文件

标签列表

Win10(14425) Word(12024) excel(11871) excel教程(11781) WPS(10781) 表格(10677) WPS文字(9982) win7(7118) 设置(5665) 如何(4954) win10教程(4889) excel函数(4705) word教程(4599) 微信(4505) 方法(4092) 单元格(4044) 文字(3953) 函数(3760) Mac(3589) 路由器(3515)


经营指标是企业经营管理中不可或缺的一部分 << 上一篇
2024-03-08 13:03
经营管理应用系统的应用
2024-03-08 14:03
下一篇 >>

相关推荐