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

特別提示

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

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

如有疑問，請提問留樣。