那位朋友能指教. 金额大写转换.

zv1185

其它网站上说的不能用,高手帮助修一下好吗,谢谢

老鬼

http://www.office-cn.net/forum.php?mod=viewthread&tid=24422

红池坝

试试这个公式：=IF(A1=0,"零元整",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]")&"分","整"))

dengyf

Function dxje(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]")

zj = Application.WorksheetFunction.Text(j, "[dbnum2]")

zf = Application.WorksheetFunction.Text(f, "[dbnum2]")

dxje = zy & "元" & "整"

     d1 = zy & "元"

     If f <> 0 And j <> 0 Then

       dxje = d1 & zj & "角" & zf & "分"

       If y = 0 Then

         dxje = zj & "角" & zf & "分"

       End If

     End If

     If f = 0 And j <> 0 Then

       dxje = d1 & zj & "角" & "整"

       If y = 0 Then

         dxje = zj & "角" & "整"

       End If

     End If

     If f <> 0 And j = 0 Then

       dxje = d1 & zj & zf & "分"

       If y = 0 Then

         dxje = zf & "分"

       End If

     End If

     If q = "" Then

       dxje = 0 '如没有输入任何数值为0

     End If

   End Function

红池坝

如果是普通应用，我上面的公式就行了如果真要用函数，还是老鬼哥哥推荐的那个好，简洁明了但是如果要说功能强大，还是下面这个好：http://www.office-cn.net/Article/Class5/Class16/200411/644.html