[挑战]功能最全、最短（7行）的人民币大写函数

415823168

编译错误：变量未定义
Function ldy888(M)
y = Int(Round(100 * Abs(M)) / 100)
j = Round(100 * Abs(M) + 0.00001) - y * 100
f = Round((j / 10 - Int(j / 10)) * 10)
A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
b = IIf(j > 9.4, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 0.4, "零", "")))
c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
ldy888 = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))
End Function

fish_gz

thank thank you.

xiaohw

我从网上收集了一些公式,
大家来这些单元格公式如何改进.

xiaohw

我从网上收集了一些公式,
大家来这些单元格公式如何改进.

xiaohw

接着上一个帖子.

MIKE888

看了，谢谢

nightcatgx

偶寫了一個，其中第一行的代碼要加0.0000001以排除 VBA的round函數4舍5入的BUG [   ROUND(0.145,2)=0.14,    汗一個先！]




Function URMB(Sdata)
     
     Number = Abs(Round(Sdata + 0.0000001, 2))
     
     Fen = IIf(Round((Application.WorksheetFunction.Round(Number, 2) - Application.WorksheetFunction.RoundDown(Number, 1)) * 100, 0) = 0, "", Application.WorksheetFunction.Text(Round((Number - Application.WorksheetFunction.RoundDown(Number, 1)) * 100, 0), "[DBNum2]") & "¤&#192;")
     
     Jiao = IIf(Fen = "", IIf(Round((Application.WorksheetFunction.RoundDown(Number, 1) - Int(Number)) * 10, 0) = 0, "", Application.WorksheetFunction.Text(Round((Application.WorksheetFunction.RoundDown(Number, 1) - Int(Number)) * 10, 0), "[DBNum2]") & "¨¤&#190;&#227;"), Application.WorksheetFunction.Text(Round((Application.WorksheetFunction.RoundDown(Number, 1) - Int(Number)) * 10, 0), "[DBNum2]") & "¨¤")
         
     Yuan = IIf(Fen = "" And Jiao = "", Application.WorksheetFunction.Text(Int(Number), "[DBNum2]") & "¤&#184;&#190;&#227;", Application.WorksheetFunction.Text(Int(Number), "[DBNum2]") & "¤&#184;")
   
     URMB = IIf(Sdata < 0, "&#173;t" & Yuan & Jiao & Fen, Yuan & Jiao & Fen)


End Function

nightcatgx

Sorry,有亂碼添！
轉換一下====>

Function URMB(Sdata)
     
     Number = Abs(Round(Sdata + 0.0000001, 2))
     
     Fen = IIf(Round((Application.WorksheetFunction.Round(Number, 2) - Application.WorksheetFunction.RoundDown(Number, 1)) * 100, 0) = 0, "", Application.WorksheetFunction.Text(Round((Number - Application.WorksheetFunction.RoundDown(Number, 1)) * 100, 0), "[DBNum2]") & "分")
     
     Jiao = IIf(Fen = "", IIf(Round((Application.WorksheetFunction.RoundDown(Number, 1) - Int(Number)) * 10, 0) = 0, "", Application.WorksheetFunction.Text(Round((Application.WorksheetFunction.RoundDown(Number, 1) - Int(Number)) * 10, 0), "[DBNum2]") & "角整"), Application.WorksheetFunction.Text(Round((Application.WorksheetFunction.RoundDown(Number, 1) - Int(Number)) * 10, 0), "[DBNum2]") & "角")
         
     Yuan = IIf(Fen = "" And Jiao = "", Application.WorksheetFunction.Text(Int(Number), "[DBNum2]") & "元整", Application.WorksheetFunction.Text(Int(Number), "[DBNum2]") & "元")
   
     URMB = IIf(Sdata < 0, "负" & Yuan & Jiao & Fen, Yuan & Jiao & Fen)


End Function

25038860

原帖由 ldy888 于 2006-1-3 16:48 发表
一直相找一个和表里的IF函数一样功能 的语句，
VBA中的IF用法和表里的不同，看了别人的程序才知道有 IIF语句，和表里的 IF 一样用法。
汗....
[[em06]
[此贴子已经被作者于2006-1-3 16:59:25编辑过]

me too,同汗！！

蔡宛宏

很高深啊  不知道怎么才能看懂