[大写的服!墨尔本买房就要挑No]墨尔本作为澳大利亚最大的城市,这里有新老建筑的有机并存,交相辉映,典雅的街道干净整齐,这里有很多美丽的公园和花园,茂密葱盛,而这里人文气息也很浓郁,人们说,去往一个城市生活,如果...+阅读
在与朋友开发表格模板时,为做一个能在Excel中构造数字的汉字写法(中文大写)的一段VB函数花了不少时间。事后仔细想来,其实实现数字读法的方法实际上至少有三种,即VB编程法、自动更正法及工作表函数的替换法。用VB编程实际上是最复杂的一种方法(但也是一劳永逸的方法),在很多时候完全可以用较简单的方法实现。以下分别介绍这几种方法。
自动更正法
使用自动更正功能,可以简化用户对大写汉字的输入操作,例如可以将“1 ”定义更正为“壹”,那么当要输入“壹”时,就可通过键入“1 ”来实现。另外,这种定义以后不仅在Excel中有效,在Word中也同样有效,因为“自动更正”程序是Office组件所公用的。
用“自动更正”是最简单易行的,用户可自由、方便地输入要写的大写读法。然而它的局限性也很明显,即它虽然给使用者提供了输入大写数字的方便手段,但终究还是需要人工输入,不能自动、实时地依当前的实际数字结果进行更新。
工作表函数替换法
要做到数值的自动更新,一般都会想到用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函数,具体方法与代换法也有类似之处,但小数点前的处理要复杂得多,相应的代码也太长
以下为关联文档:
在WPSOffice2005中实现多行合一在编辑政府公文中多行合一是经常要用到的一种格式,但不知为何在WPS 2005 政府版的金山文字中却没有提供多行合一的功能。笔者经过几番试验找到了两种解决方法.合并字符在金...
WinAPI字符及字符串函数8:IsCharUpper是否是个大写字母interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;Button...
活用WPS表格转换为歌词句首字母改大写从网上下载了许多英文歌曲的歌词(lrc格式),发现许多歌词的所有字母都是小写的,特别是句首单词的第一个字母没有大写,虽然并无大碍,但对于追求完美的我来说,也是一个不小的遗憾。...
WPS表格转换为歌词句首字母改大写从网上下载了许多英文歌曲的歌词(lrc格式),发现许多歌词的所有字母都是小写的,特别是句首单词的第一个字母没有大写,虽然并无大碍,但对于追求完美的我来说,也是一个不小的遗憾。...
在PowerPoint中实现表格的动态填充我比较喜欢使用PowerPoint来制作课件,一次一位化学老师让我帮他解决这样的问题:利用PowerPoint展示一张空表,然后随着实验的进展动态地填写表格。由于在PowerPoint中插入的表...
在Excel2007中实现老式工具栏Excel2007中老式工具栏的限制如果想在Excel 2007中创建一个工具栏,应注意下面的一些限制:不能够自由浮动总是显示在加载项选项卡自定义工具栏组中Excel会忽略一些mandBar...
Word中实现文本与表格的相互转换将文本转换成表格 1、插入分隔符 (分隔符:将表格转换为文本时,用分隔符标识文字分隔的位置,或在将文本转换为表格时,用其标识新行或新列的起始位置。)(例如逗号或制表符),以指示...
日期中的大写、缩写与标点在英语里,表达日期时常涉及字母的大写、单词的缩写和标点符号。现将其要点归纳如下: 一、字母的大写 表示星期、月份的第一个字母要大写。如Sunday,Monday…Saturday,January…D...
小议城市小区环境建设中实用性和观赏性的有机统一随着人们生活水平的提高,小区建设得到飞速发展,人们对居住环境的要求也越来越高。人们厌倦了城市的喧器、拥挤,越来越渴望能回归自然、接近自然,于是借助一系列象征、融会、引入...