5分鐘搞定execl的大寫轉換
阿新 • • 發佈:2019-01-06
導讀:
http://tsingtsingqsun.spaces.live.com/Blog/cns!76D3BF15CB0BFC23!454.entry
函式:
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是小寫地址位. 本文轉自