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的方法，轉換後的單元格內容，不再是阿拉伯數字，而是中文文本。

特別提示

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

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

如有疑問，請提問留樣。