5分钟搞定execl的大写转换

导读： 　　

函数：

Function rmbb(M)

y = Int(Abs(M))

j = Round(Abs(M) - y, 2)

f = (j * 10 - Int(j * 10)) / 10

a = Application.Text(y, "[DBNum2]")

d = "元"

　　If j <0.1 Then e = ""Else e = "角" 　　If f <0.01 Then g = "整"Else g = "分" 　　If f <0.01 Then c = ""Else c = Application.Text(Round(f * 100, 0), "[DBNum2]") 　　If j = 0 Then b = ""Else b = Application.Text(Int(j * 10), "[DBNum2]") 　　If M <0 Then z = "负"Else z = "" 　　rmbb = z &a &d &b &e &c &g 　　End Function 　　1．Execl 中工具〉宏〉Visual Basic编辑器 　　2．右击”bisual basic 编辑器”的”this workbook”,选择插入->模块”,插入一个新模块,接着输入上面的函数. 　　3．输入后关闭编辑器返回. 　　4．开始转换单元格内输入”=rmbb(E3)”?? E3是小写地址位. 本文转自 http://tsingtsingqsun.spaces.live.com/Blog/cns!76D3BF15CB0BFC23!454.entry