Excel人民幣大寫轉換函式

使用excel自定義函式（VBA）實現人民幣由小寫數字轉換為大寫數字。

操作方法

（01）1.啟動excel，按alt+F11組合鍵開啟vba編輯視窗，並插入一個新模組。如圖：

（02）2.在《模組1》的編輯視窗中填寫如下程式碼：Public Function RMBDX(M)'人民幣大寫函式RMBDX = Replace((Round(M + 0.00000001, 2), "[DBnum2]"), ".", "元")RMBDX = IIf(Left(Right(RMBDX, 3), 1) = "元", Left(RMBDX, Len(RMBDX) - 1) & "角" & Right(RMBDX, 1) & "分", IIf(Left(Right(RMBDX, 2), 1) = "元", RMBDX & "角整", IIf(RMBDX = "零", "", RMBDX & "元整")))RMBDX = Replace(Replace(Replace(Replace(RMBDX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "負")End Function

（03）3.切換回EXCEL的介面，測試函式。測試成功，即可使用。

（04）在任意單元各種輸入需要轉換的數值，然後如入函式=RMBDX(A1)回車

（05）這樣自定義的函式雖然可以像內建函式一樣使用，不過卻並不是真正的內建函式，只能用於當前工作簿。

（06）工作簿的儲存。可以將工作簿儲存為xls格式或者儲存為XLSM格式（啟用巨集的文件）

大寫數字轉換的方法

（01）如果僅需要轉換為中文大寫數字，可通過設定單元格格式的方法進行轉換選中單元格——滑鼠右鍵——設定單元格格式——特殊——中文大寫

（02）同理，轉為中文小寫的方法，如此相似。

（03）注意：使用單元格格式的方法，修改的僅僅是顯示的內容，單元格的內容實際上還是阿拉伯數字；使用自定義函式RMBDX的方法，轉換後的單元格內容，不再是阿拉伯數字，而是中文文字。

特別提示

這樣自定義的函式雖然可以像內建函式一樣使用，不過卻並不是真正的內建函式，只能用於當前工作簿。

如對您有幫助，請投票支援，謝謝！

如有疑問，請提問留樣。