公式再议“Excel环境下金额数字大写转换的方法探讨”

再议“Excel环境下金额数字大写转换的方法探讨”

[摘要]利用公式法对Excel环境下金额数字进行大写转换是非常实用的方法,通过对公式代码进行优化,不仅增加了公式的功能,还可以简化录入、增强公式的可理解性、方便公式再加工,通过对公式法进行原理解析,可以方便初学者使用和理解公式,也有利于对公式的改造和应用领域的拓展。

[关键词]Excel;大写转换;公式;代码优化;原理解析

一、引言

拜读了《中国管理信息化》 2009年第6期王光伟的文章《Excel环境下金额数字大写转换的方法探讨》(以下简称王文)后收获很大,该文中列举的金额数字大写转换的几种方法在财会工作中具有很强的实用性和较高的实用价值。在实际工作中广大财会人员并非都具备丰富的计算机编程知识,利用VBA编写金额大写转换程序或自定义函数有一定难度,且不同财会人员对金额大写转换有不同需求,为了适应不同需求而修改程序或自定义函数的过程比较烦琐,为此,本文只探讨利用公式法对金额数字实施大写转换。

二、公式法代码优化

王 文 中 公 式 法 的 公 式 为=IF(TYP E(FIND(“.”,TEXT(E2,”[db num2]”),1))=16,T EXT(E2,”[db num2]”)&” 元整 ”,L EF T(T EX T(E2,”[db num2]”),F IN D(“.”,TEX T(E2,”[db num2]”),1)-1)&”元”&IF(LEN(MI D(TEX T(E2,”[db num2]”),F IND(“.”,TEX T(E2,”[db num2]”),1)+1,2))=1,MID(TE X T(E2,”[db num2]”),F IN D(“.”,T E XT(E2,”[db num2]”),1)+1,1)&” 角整”,IF(MI D(T EX T(E2,”[db num2]”),F IN D(“.”,T E XT(E2,”[db num2]”),1)+1,1)=“零”,

” 零 ”&M ID(T EXT(E2,”[db num2]”),F IN D(“.”,T EX T(E2,”[db num2]”),1)+2,1)&”分 ”,(M ID(T EXT(E2,”[db num2]”),F IN D(“.”,T EX T(E2,”[db num2]”),1)+1,1)&”角 ”&(M ID(T EXT(E2,”[db num2]”),F IN D(“.”,T EX T(E2,”[db num2]”),1)+2,1)&”分”)))))(以下简称公式1)。公式1虽然逻辑关系简单,但代码较长,嵌套较多,结构复杂,且作者未对该公式的原理进行详细解释,因而Excel函数知识掌握有欠缺的人员在使用该公式时,录入、理解和再加工都有一定难度。经测试,该公式在如下方面存在改善空间: