求磁感应强度的公式小写转大写公式

2020年10月1日发(作者：柏青)
近来转了转几个EXCEL相关论坛，发现有部分网友在寻求数字金额转换为人民币大写的方
法 。出于好奇，我在网上搜索了一番，什么VBA、加载宏，公式函数各式方法争相亮相，应
有尽有。但我 的习惯是，只要能用公式解决的问题，坚决不使用VBA。所以我就特别地关注
使用公式来生成的方法， 结果是用公式的方法可谓是更加地灿烂缤纷，使人眼花缭乱。

通过分析我收集到的二十几个公式，发现比较牛，适合我口味的公式有三个，在此我将
其列出。

公式一：
SUBSTITUTE(SUBSTITUTE(IF(A1<0,负< br>元

]角
分
整零元零零元

公式二：
CON CATENATE(IF(A1<0,负

,元

F(RIGHT(TRUNC( A1*10),1)=角

(RIGHT(TRUNC(A1*100),1)=分

公式三：
IF(ROUND(A1,2)=0,
元整
零
零

m2]角
分
整

我用不同的数值对这三个公式进行了一番测试， 都达到了我的要求，至少到目前为止还
没有发现上述公式存在着什么错误。上述公式对负数的处理采取了 不同的方法。公式一和公
式二对负数是在其前部加上一个“负”字，而公式三则是按正数进行处理。我比 较推崇公式
三的方式，不是还有条件格式可以设置吗？若是负数就用条件格式来变为红色。

我不准备在此对上述公式进行分析解说。撰写本文的目的是我也想自己来“组装”一个
所谓 的通用公式。我只所以说是“组装”而不是叫什么“开发”或者是“拼凑”，是因为
EXCEL的函数现 成地摆在了那里，使用时就是为了达到某种目的，按照其固有的规则，将其
进行有机的组合，可谓“组装 ”。但是在这个过程中，也是要开动脑筋的，并非是随随便便
“拼凑”就能成功的。本文的目的就是想将 我在“组装”公式时的思路展现出来。

若用程序设计语言（比如用C语言）来写一个人 民币数字金额转大写金额会怎样考虑
呢？我想每一位数字都要考虑到。但在EXCEL中，单元格格式中 有一个“特殊”格式，里面
就有将小写数字转换为大写数字的格式。但要注意的是，这里转换的是数字而 不是金额。所
以转换出来后并不存在“元”、“角”、“分”、“整”等在大写金额中出现的字。但是，
“元”只出现在整数部分的后面，而小数部分只有角分两位。这样只要利用EXCEL的“特
殊 ”格式将数据分为整数部分、角位和分位三个部分来处理就行了。处理的顺序是先整数，
再角位、再分位 。

由于要分三个部分分别处理，然后根据情况分别与“元”，“角”，“分”及“整” 相
连接。连接的方式可以使用CONCATENATE()函数，如公式二，也可以使用连接符＆。而用 ＆
来连接，公式结构似乎会相对简单清晰一些，所以我选择了用＆来连接。

虽然对问题进行了分解，但需要考虑的细节相当多。

若单元格为0或者空，输出空，避 免出现“零”、“零元”等字样。对非数字字符不进
行处理，使用EXCEL自身的错误提示。

对负数按正数处理，再用条件格式将其转换为红色，不拟采用“负XXXXXX”的形式。

整数加“元”，若是纯整数，就只处理整数且加“整”，不再处理小数部分。若是纯小
数，放在小数部分 处理，不单独列出处理。角为0且分不为0，应输出“零”，只有角的就
加“整”

如果有尾数，即有3位以上小数（这种情况也许很少发生，但作为一个“通用”公式，
却不能不考虑这种 情况）。则有两种处理方式，一是截尾，另一则是四舍五入。由于两种方
式的排它性。决定做两个公式。

如果数值小于分，截尾公式输出空，而四舍五入公式则要考虑舍入问题。若有舍入输出< br>分，没有则输出空。

根据这个思路，我“组装”了下面两个公式。

公式四：
IF(A1=0,元
整

RIGHT(TEXT(A1,角 整
分

公式五：
IF(A1=0,元
整

))*1=0,角整
分

公式四是四舍五入公式，公式五则是截尾公式。两个公式的结构其实是一样的，只是使
用了不同的函数。 下面用公式四来说明。