[分享]小写数字转换成大写金额的宏

havonly

下载后打开 工作簿 ，另存为 加载宏 （路径EXCEL会自动选择的）， 在 [工具]—[加载宏]—选定宏 [数字转大写金额] 即可象EXCEL的其他函数一样使用（保存在 用户定义 那里） 例如 A1=12.22 在B1单元格输入 =DAXIE(A1),即可得出: 壹拾贰元贰角贰分 很实用,试一试！ 8vcevRcz.rar (5.11 KB, 下载次数: 770)

2005-12-8 15:12 上传

点击文件名下载附件
小写数字转换成大写金额的宏

[此贴子已经被taller于2005-12-8 18:19:41编辑过]

plxmm

吖，偶以为是求助的帖子呢。谢谢你的分享啊。[em24]

taller

楼主的下面的代码，可以在工作表中引用吗？至少在我这里不行

Sub DaXie(XiaoXie As Single) ' As Single

unfanxio

谢谢楼主

qee用

以下是引用[I]taller[/I]在2005-12-8 18:23:03的发言：[BR]

楼主的下面的代码，可以在工作表中引用吗？至少在我这里不行

Sub DaXie(XiaoXie As Single) ' As Single

请楼主先测试一下。 创意不错。

lotustower

财务金额的自动化大小写转换 --- MicroSoft China

http://support.microsoft.com/default.aspx?scid=kb;zh-cn;890704

ExcelHome 對這連結好像有問題，copy and paste 吧 Function dx(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][$-804]G/通用格式") '将整数部分转为中文大写 zj = Application.WorksheetFunction.Text(j, "[DBNum2][$-804]G/通用格式") '将十分位转为中文大写 zf = Application.WorksheetFunction.Text(f, "[DBNum2][$-804]G/通用格式") '将百分位转为中文大写 dx = zy & "元" & "整" d1 = zy & "元" If f <> 0 And j <> 0 Then dx = d1 & zj & "角" & zf & "分" If y = 0 Then dx = zj & "角" & zf & "分" End If End If If f = 0 And j <> 0 Then dx = d1 & zj & "角" & "整" If y = 0 Then dx = zj & "角" & "整" End If End If If f <> 0 And j = 0 Then dx = d1 & zj & zf & "分" If y = 0 Then dx = zf & "分" End If End If If q = "" Then dx = 0 '如没有输入任何数值为0 End If End Function

[此贴子已经被作者于2005-12-30 18:21:42编辑过]

爱痕

也可以用函数作：

=IF(数字单元格<0,"负",)&IF(INT(ABS(数字单元格)),TEXT(INT(ABS(数字单元格)),"[dbnum2]")&"元",)&IF(INT(ABS(数字单元格)*10)-INT(ABS(数字单元格))*10,TEXT(INT(ABS(数字单元格)*10)-INT(ABS(数字单元格))*10,"[dbnum2]")&"角",IF(INT(ABS(数字单元格))=ABS(数字单元格),,"零"))&IF(ROUND(ABS(数字单元格)*100-INT(ABS(数字单元格)*10)*10,),TEXT(ROUND(ABS(数字单元格)*100-INT(ABS(数字单元格)*10)*10,),"[dbnum2]")&"分","整")

傻根

我看到并实际使用的函数

=TEXT(INT(引用的数字单元格),"[Dbnum2]G/通用格式")&"元"&IF((INT(引用的数字单元格*10)-INT(引用的数字单元格)*10)=0,IF((INT(引用的数字单元格*100)-INT(引用的数字单元格*10)*10)<>0,"零",""),TEXT(INT(引用的数字单元格*10)-INT(引用的数字单元格)*10,"[Dbnum2]G/通用格式") & "角") & IF((INT(引用的数字单元格*100)-INT(引用的数字单元格*10)*10)=0,"整",TEXT(INT(引用的数字单元格*100)-INT(引用的数字单元格*10)*10,"[Dbnum2]G/通用格式")&"分")

ldy888

都太长了

这是最短的，无金额限制，

http://club.excelhome.net/viewthread.php?tid=143657

田中一草

学习下 正愁呢