如果将小写数字转换为这种大写格式，急！

aben37 · 发表于 2006-6-15 03:22

我需要取A1的小写数字转化为B2的“ 佰拾万仟佰拾元角分”格式
如
A1为200,012.01
转换为B2的“零佰贰拾零万零仟零佰壹拾贰元零角壹分”
找了很多公示都不行。

wxhnr · 发表于 2006-6-15 07:22

这个和你的要求有点不同，不知道能不能用。
=IF(ABS(RMBNumber)>0.994,TEXT(INT(FIXED(RMBNumber)),"[dbnum2]")&"元",)&IF(INT(FIXED(RMBNumber)*10)=INT(FIXED(RMBNumber))*10,IF(RIGHT(FIXED(RMBNumber))<>"0",IF(ABS(RMBNumber)>0.994,"零",),),LEFT(RIGHT(TEXT(RMBNumber,"[dbnum2].0角0分"),4),2))&IF(RIGHT(FIXED(RMBNumber))="0",IF(ABS(RMBNumber)>0,"整"",),RIGHT(TEXT(RMBNumber,"[dbnum2].0角0分"),2)) 把里面的RMBNumber替换成需要转换的数字

[此贴子已经被作者于2006-6-15 7:24:57编辑过]

浔人 · 发表于 2006-6-15 08:49

在函数版有介绍的，小写转大写

syy6542320 · 发表于 2006-6-15 08:54

打开Excel，按Alt+F11（或者选择菜单工具→宏→Visual Basic 编辑器），进入后新建模块（插入→模块），
键入以下语句： 

Function NCN(account) 'Nummary Capital Number 
ybb = Round(account * 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]") 
NCN = zy & "圆" 
If j = 0 And f = 0 Then 
NCN = 
NCN & "整" 
End If 
If f <> 0 And j <> 0 Then 
NCN = NCN & zj & "角" & zf & "分" 
If y = 0 Then 
NCN = 
zj & "角" & zf & "分" 
End If 
End If 
If f = 0 And j <> 0 Then 
NCN = NCN & zj & "角" 
If y = 0 Then 

NCN = zj & "角" 
End If 
End If 
If f <> 0 And j = 0 Then 
NCN = NCN & zj & zf & "分" 
If y = 0 Then 

NCN = zf & "分" 
End If 
End If 
If account = "" Then 
NCN = "" 
End If 
End Function 

 这样就可以了，关闭VB编辑器，进入Excel界面会发现在插入函数时多了一类“用户定义”，里面有个函数“NCN
”，就是你要的函数。起名为NCN，意思是“Nummary Capital Number”货币大写数字。如果不喜欢，可以在角
本里改，用理想的函数名替换"NCN"即可。 试试看吧！在A1里键入“1025.3”，在B1里写“=NCN(A1)”，效果不
错吧？ 关闭之前可以把你自己写的模块导出到一个.bas文件，以后想用的时候导入即可。因为是自己编写的，
所以没有数字签名，打开带有此函数的文件时会提示有风险。降低安全级别即可，打开之后再改回来。 
就说这么多了

aben37 · 发表于 2006-6-15 09:55

4楼说的函数好像符合我的需要，
按要求操作了，已生成自定义的NCN函数，
但在表格录入数据时出错，跳转到Visual Basic 编辑器
提示：编译出错
 语法出错
Function NCN(account) 'Nummary Capital Number（黄色）
ybb = Round(account * 100)
y = Int(ybb / 100)
j=（兰色）

robertjean · 发表于 2006-7-4 17:24

你看这样行不？1  =TEXT(INT(A5),"[dbnum2]")&"元"&IF(INT(A5*10)-INT(A5)*10=0,"",TEXT(INT(A5*10)-INT(A5)*10,"[dbnum2]")&"角")&IF(INT(A5*100)-INT(A5*10)*10=0,"整",TEXT(INT(A5*100)-INT(A5*10)*10,"[dbnum2]")&"分")2 =IF(ROUND(A5,2)<0,"无效数值",IF(ROUND(A5,2)=0,"零",IF(ROUND(A5,2)<1,"",TEXT(INT(ROUND(A5,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10=0,IF(INT(ROUND(A5,2))*(INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A5,2)*10)-INT(ROUND(A5,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10)=0,"整",TEXT((INT(ROUND(A5,2)*100)-INT(ROUND(A5,2)*10)*10),"[dbnum2]")&"分")))3 =IF(ISNUMBER(A7),IF(ROUND(A7,2)<0,"无效数值",IF(ROUND(A7,2)=0,"零",IF(ROUND(A7,2)<1,"",TEXT(INT(ROUND(A7,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A7,2)*10)-INT(ROUND(A7,2))*10=0,IF((INT(ROUND(A7,2)*100)-INT(ROUND(A7,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A7,2)*10)-INT(ROUND(A7,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A7,2)*100)-INT(ROUND(A7,2)*10)*10)=0,"整",TEXT((INT(ROUND(A7,2)*100)-INT(ROUND(A7,2)*10)*10),"[dbnum2]")&"分"))),"非数值！！！")

三青 · 发表于 2006-12-31 10:32

很实用，多谢！

xiaoye0013 · 发表于 2007-1-17 19:45

这样子也可以的=IF(A1<0,"负",)&IF(INT(ABS(A1)),TEXT(INT(ABS(A1)),"[dbnum2]")&"元",)&IF(INT(ABS(A1)*10)-INT(ABS(A1))*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1))*10,"[dbnum2]")&"角",IF(INT(ABS(A1))=ABS(A1),,"零"))&IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),"[dbnum2]")&"分","整")[em02]

格子纷飞 · 发表于 2007-1-18 14:03

8楼的，不错

7433518 · 发表于 2007-1-18 20:58

8楼的不错，已验证，收藏了，谢谢！

		自动登录	找回密码
密码			免费注册

[求助] 如果将小写数字转换为这种大写格式，急！