在Excel中如何把阿拉伯数字自动转换成大写数字？

自订函数的使用方法和内建函数大同小异。
使用插入函数的方式来使用该函数：
<一>
插入函数的方式可以从功能表的插入>>函数
或
一般工具列的自动加总旁按下拉式选单选其他函数
或
资料编辑列上的 Fx 按钮
以上三种方法皆可插入函数。
<二>
函数类别选使用者定义
<三>
函数名称选自订函数SpellNumber>>确定
<四>
输入数字或选参照的储存格>>确定

上述方式可能会依不同的 Excel 版本而略有差异。

自订函数的共用性与流通性
如果你要在本机的任何一个活页簿都可以使用这个函数，则建议你建立一个个人巨集活页簿，并将该函数放在个人巨集活页簿内。
如果要使用这个函数的活页簿会四处在网路上流通的话，则建议将该函数附属在该活页簿内，让它随著档案在网路上奔走，不然当档案到了其他人的电脑上，而其他人的 excel 内并无 SpellNumber 这个函数时，则会出现 #NAME? 的错误值。

已记录

--------------------------------------------------------------------------------
BEFORE ASKING, YOU SHOULD RTFH, RTFM, STFW...

leonchou
论坛维护群

离线

文章: 1160

Re: 将数字转换成英文的货币表示法
« 回覆文章 #1 於: 2005-03-27, 23:51:34 »

--------------------------------------------------------------------------------
上述的微软网页亦可由此进入
http://support.microsoft.com/support/kb/articles/Q213/3/60.ASP

另提供一以内建函数转英文大写金额的方式：
在此提供的是使用 Excel 内建工作表函数达成的e68a84e799bee5baa6e79fa5e98193336
[数字转英文大写] 功能，无巨集、无VBA。
可自选货币（Currency）符号，适合外国支票、汇票或相关文件使用。
内建函数应该对一般人来说比较容易理解。

由於这个是以前用 Excel97 做的，如果你认为有任何
可改进之处，或新版有更理想的做法，
(其实新版应该要纳为内建功能了不是吗)
欢迎提出来讨论。

[2003/12/19]
1.修改为支援到千万(8位数)，
2.修正了小数超过两位时的Bug (采四舍五入方式)。

[2004/3/22]
修正没有小数时的 Bug
(例如 123 会显示成 ONE HUNDRED TWENTY THREE AND CENTS THREE)

[2004/4/9]
修正小数只有一位时的Bug，例如 123.40，它会显示成
one hundred twenty three and cents FORTY FOUR only.

用内置函数numbeistring，或者用代码定义数字格式都可以达到把阿拉伯百数字转换成度大写数字的目的。

1、numbeistring的用法如下，假设需要转换的数字位于A1，公式为=numberstring（A1，2），要注意的是，numberstring转换成数字不包括知小数点后数字的转换，如100.15，转换后显示为壹佰，缺失小数点后数字。
2、用代码的形式配合文道本函数text可用于财务上的阿拉伯数字转换成大写数字，具体如下，假设A1单元格中数字为100.15，设置公式为=TEXT(A1*100,"[DBnum2]0万0仟0佰0拾0元0角0分")，显示结果为"零万零仟壹佰零拾伍元壹角伍分版"。
两种转换方法都视需求而使用，权也可以通过上述的两种函数，另外增加转换之后输入的数字格式。
只能编写VBA宏或函数来实现。

具体公式copy如下：

1. B1公式下拉：

2. =SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式圆zhidao;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")