注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

凌晨阳光

 
 
 

日志

 
 

Excel数字大写函数和自定义函数  

2017-12-28 10:43:17|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

一、函数(具有通用性)

=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")

=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")
二、自定义函数
Function DX(N As Variant) As String
If IsNumeric(N) Then
N = Round(N, 2)
DX = Application.WorksheetFunction.Text(N, "[DBNum2]")
If N = Int(N) Then
DX = DX & "元整"
Else
DX = Replace(DX, ".", "元")
DX = IIf(Left(Right(DX, 2), 1) = "元", DX & "角", Left(DX, Len(DX) - 1) & "角" & Right(DX, 1) & "分")
DX = Replace(DX, "零角", "")
DX = Replace(DX, "零分", "")
End If
Else
DX = ""
End If
End Function
  评论这张
 
阅读(0)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018