在EXCEL中,我们常常用到数字的求和,我们可以很轻松的得出一排或者一列数的和值,但是可不可以在求和的时候,在生成小写答案的同时生成该求和结果所对应的大写的值???
- nicehost
-
确实没有,不过可以自己编一个!步骤如下:
打开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文件,以后想用的时候导入即可。因为是自己编写的,所以没有数字签名,打开带有此函数的文件时会提示有风险。降低安全级别即可,打开之后再改回来。
就说这么多了,如果还有什么不懂的再问我吧
- clou
-
可以的呀,将下面的单元格的"格式"项里面选"数字"-"特殊"-"中文大写数字"-"确定".然后让这个单元格"="上面要变成大写的单元格就ok拉,就这么简单
- 黑桃云
-
上面说的怎么都是那么复杂啊,设置单元格格式 特殊 中文大写数字
- max笔记
-
* 回复内容中包含的链接未经审核,可能存在风险,暂不予完整展示!http://post.b***.com/f?kz=5046129