小寫(xiě)金額轉(zhuǎn)大寫(xiě)的三種方法VBA實(shí)例教程

1、小寫(xiě)金額轉(zhuǎn)大寫(xiě)的三種方法 VBA 實(shí)例教程除非注明， 文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)， 轉(zhuǎn)載請(qǐng)保留鏈接 : ， VBA 交流 群 273624828 。 今天來(lái)講下將小寫(xiě)金額轉(zhuǎn)成大寫(xiě)金額的三種方法。 第一種方法在只是轉(zhuǎn)單個(gè)金額時(shí)非常實(shí)用，那就是用搜狗輸 入法。在中文狀態(tài)下先輸入一個(gè)英文字母 V ，然后輸入你的小寫(xiě)金 額，這時(shí)搜狗就會(huì)將你輸入的小寫(xiě)轉(zhuǎn)化為大寫(xiě)。比如輸入 v100 ，就會(huì)顯示一百和壹佰，輸入 v100.00 就會(huì)顯示“一 百元整”和“壹佰元整”。感興趣的可以自己去試下。 第二種方法是利用 Excel 函數(shù)。函數(shù)具體形式為 =TEXT(INT(A1),dbnum2G/ 通用格式 元;)&a

2、mp;SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(R MB(A1),2),dbnum20 角 0 分;整),零角,IF(A1A2<1,零 ),零分,整) 。這也是我在網(wǎng)上搜集到的一個(gè)公式，非常 好用，將里面 A1 變成相應(yīng)的單元格即可。既然是 Excel 函 數(shù)，那除了可以通過(guò)輸入拖動(dòng)的方法來(lái)使用外，自然也可以 嵌入到 VBA 程序中調(diào)用。我本人在應(yīng)用的時(shí)候習(xí)慣將這個(gè) 公式放到一個(gè)輔助的工作表中， 例如放在 sheet2 的 B1 單元 格，那我只要將要轉(zhuǎn)換的數(shù)值放入 sheet2 的 A1 單元格， 那B1 就是我要的結(jié)果， 將 B1 的結(jié)果調(diào)用出來(lái)即可?？聪旅娴?/p>

3、 例子，我 sheet1A 列是小寫(xiě)金額， 要在 B 列顯示成大寫(xiě)， 公 式放在 sheet2 的 B1 單元格Sub Excel 函數(shù)轉(zhuǎn)大寫(xiě) ()Dim iFor i = 1 To sheet1.Range(A &Rows.Count).End(xlUp).RowSheet2.Range(A1) = Sheet1.Range(A & i)數(shù)值放到 sheet2 的 A1 ，則 sheet2 的 B1 就是我們要的大寫(xiě)Sheet1.Range(B & i) = Sheet2.Range(B1)把 sheet2 的 B1 放到想放的位置NextEnd Sub第三種方法是利

4、用 VBA 自定義函數(shù)，然后在程序中調(diào)用即 可。下面的函數(shù)也是我在 ExcelHome 中搜集的。Function DX(M_MONEY As Double) 將人民幣小寫(xiě)金額轉(zhuǎn)換為中文大寫(xiě)金額 Dim M_code As StringOn Error GoTo 900M_MONEY = Round(M_MONEY, 2)If M_MONEY = 0 ThenM_code = GoTo 900End IfIf M_MONEY < 0 ThenM_code = 負(fù) M_MONEY = Abs(M_MONEY)End IfIf M_MONEY < 0.1 ThenM_code = M_

5、code &* 100),dbnum2) & 分 GoTo 900End IfIf M_MONEY >= 1 ThenM_code = M_code &dbnum2) & 元 End IfM_MONEY = Round(M_MONEY - Int(M_MONEY) * 100,2)If M_MONEY = 0 ThenM_code = M_code & 整 GoTo 900End IfIf M_MONEY >= 10 ThenM_code = M_code &/ 10),dbnum2) & 角 M_MONEY = M_MONE

6、Y Mod 10ElseM_code = M_code & 零 End IfIf M_MONEY = 0 ThenGoTo 900ElseM_code = M_code &dbnum2) & 分 End If900:DX = M_codeEnd Function下面看怎么調(diào)用函數(shù)Sub 自定義函數(shù)轉(zhuǎn)大寫(xiě) ()Dim iFor i = 1 To Range(A &Rows.Count).End(xlUp).RowRange(B & i) = DX(Range(A & i)NextEnd Sub 沒(méi)啥好解釋的了。本節(jié)示例文件下載地址： 1 您可能也喜歡：利用 InputBox 函數(shù)和方法接收輸入值 VBA 中的 Resize 函數(shù)Excel VBA 中 Find 函數(shù)的應(yīng)