[已解决]怎样把小写金额自动变成大写金额？

ying6460226

请问一下怎么样能使小写金额自动变成大写金额？

最佳答案

月排行榜 / 总排行榜

dxwzm

2008-12-13 12:48

如A1为小写数字，则在B1里输入：=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(A1>-0.5%,,"负")&TEXT(INT(FIXED(ABS(A1))),"[dbnum2]")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]元0角0分;;元"&IF(ABS(A1)>1%,"整",)),"零角",IF(ABS(A1)<1,,"零")),"零元",),"零分","整")

跳转到最佳答案楼层

星矢

如果没有小数,选取单元格,右键--设置单元格格式--数字--特殊--中文大写

天意fe

你可以在网站里面搜索，有很多公式可以完成

dxwzm

如A1为小写数字，则在B1里输入：=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(A1>-0.5%,,"负")&TEXT(INT(FIXED(ABS(A1))),"[dbnum2]")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]元0角0分;;元"&IF(ABS(A1)>1%,"整",)),"零角",IF(ABS(A1)<1,,"零")),"零元",),"零分","整")

yaoxuejian

[em02]学习·

zyjs029

简单点的直接设置自定义格式：[dbnum2]

自力

QUOTE:

以下是引用zyjs029在2008-12-13 13:02:00的发言：

简单点的直接设置自定义格式：[dbnum2]

          1212.35      结果是

壹仟贰佰壹拾贰.叁伍

独自飞舞

代码如下:我一直用着

Function dx(q)
  ybb = Round(q * 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]")
  dx = zy & "元" & "整"
  DI = zy & "元"
  If F <> 0 And J <> 0 Then
     dx = DI & ZJ & "角" & ZF & "分"
     If Y = 0 Then
        dx = ZJ & " 角" & ZF & "分"
        End If
     End If
  If F = 0 And J <> 0 Then
     dx = DI & ZJ & "角" & "整"
     If Y = 0 Then
        dx = ZJ & "角" & "整"
           End If
  End If
  If F <> 0 And J = 0 Then
  dx = DI & ZJ & ZF & "分"
  If Y = 0 Then
     dx = ZF & "分"
     End If
  End If
  If q = " " Then
     dx = 0
       End If
     End Function
 Sub BAOXIAO()
 End Sub