三九宝宝网宝宝百科宝宝知识

在Excel的使用中数字生成大写数字的快捷办法

02月09日 编辑 39baobao.com

[BY2671系列数字兆欧表]BY2671系列数字兆欧表是武汉博宇电力设备有限公司专业生产的,其具体型号和参数如下: BY2671数字兆欧表(1000V) BY2671F数字兆欧表(2500V) BY2671G数字兆欧表(5000V) 简介 数字兆欧表...+阅读

一、解决问题的思路

在Excel中自定义一个函数,该函数可以将任意数值转换为人民币大写金额。编制该函数代码时我是这样考虑:将输入的数值分为整数、十分位、百分位三个部分,将这几个部分单独转换为[dbnum2] 格式,再根据出现的各种可能和字符“元”、“角”、“分”进行组合。

二、自定义Excel函数

进入Visual Basic 开发环境,选择“插入→模块”,在出现的代码窗口输入如下代码:

Function d(q)

ybb = Round(q * 100)

'将输入的数值扩大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

'如没有输入任何数值为0

End If

End Function

三、函数的使用

例如要将123.45元转换为人民币大写金额,只需在单元格中输入“=d(123.45)”,再按回车,即转换为“壹佰贰拾叁元肆角伍分”。

为了确保该函数能随时调用,我们需要将上述代码另存为名为“D”,文件类型为“Microsoft Excel 加载宏”的文件,以后在使用时只需点击“工具→加载宏→D→确定”则可。

如果想在另外的电脑上使用该函数,可以将加载宏文件“D”复制到它们的Windows/Application Data/Microsoft/AddIns下,在使用时同样是点击“工具→加载宏→D→确定”。

以下为关联文档:

数字绝缘电阻测试仪分国内和国外都有哪些品牌谁做的比较好呢国外用的多的就是日本共立的,国内用的多的就是鄂电电力的 绝缘耐压试验设备 SJTU系列冲击电压发生器 YDQ系列充气超轻型试验变压器 YDQD系列带抽头充气式多用高压试验变压器...

数字信号光纤传输中误码产生的原因误码的产生是由于在信号传输中,衰变改变了信号的电压,致使信号在传输中遭到破坏,产生误码。噪音、交流电或闪电造成的脉冲、传输设备故障及其他因素都会导致误码(比如传送的信号...

请教高手:用Excel怎样给一组数字排序排序:很多时候大家排序完以后,想回到开始没有排序前的状态,那么我们只需要在第一列插入“序号”按序号排序就可以恢复到没有排序之前的状态,因为排序只是方便大家查看数据(这样可...

求教:用matlab程序处理数字的代码!a=2.356; %假定一数值 zs=fix(a); %取整数部分2 ys=a-zs; %取小数部分0.356 czs=num2str(zs);%又数字格式变为字符格式 cys=num2str(ys);%又数字格式变为字符格式 lzs=length(czs...

有没有matlab高手请教几个关于数字语音编码的程序问题耐心点看,还不懂就把MATLAB书前面几章看一下。xn=wavread('ysp.wav',[1000,2000]); %将ysp.wav文件中每个频道1000个到2000个数据赋给xn。这个程序中只有一个频道。x (1)=0; %...

php生成数组键值大写和小写有区别吗$a['a'] = 1; $a['A'] = 1; # 1.数组键名不区分大小写 var_dump($a,$A); # 2.变量名区分大小写(包括类的成员变量) /* Notice: Undefined variable: A in /var//html/biogate/...

奥比岛好听的名字没有数字的。谢谢大家咯你好,我也是夏桥街迷,我提供的名字: 夏桥街(夏桥街的人物),不是夏桥街的:甜心之粉色宝贝、美丽彩虹佡子、公主MM小雪儿(这里的MM是妹妹),奥比之星天使、甜馨天使、甜心天使、啦啦队彩...

图书的数字编码中国标准书号的结构,由一个国际标准书号(1SBN)和一个图书分类、种次号两部分组成。中国标准书号的第一部分国际标准书号(ISBN)是这个编号系统的主体,可以单独使用。它由10位数组成...

图书编码数字的含义图书ISBN编号将由现在的10位数系统升级到13位,新的13位数的国际标准图书编号的执行日期为2007年1月1日。 10位数的ISBN系统是由组号、出版者号、书序号、校验号四部分组成的,...

推荐阅读
图文推荐