性欧美大战久久久久久久野外黑人,午夜专区

Excel表格中將小數(shù)點的小寫數(shù)字轉(zhuǎn)換成中文大寫？

甘苦人生2010 >《execl文章》

2012.08.30

關(guān)注

比如說在表格中輸入１２．３２６然后轉(zhuǎn)換成中文大寫＂壹拾貳點叁貳陸．回答列表在同一單元格中,再次輸入不同的數(shù)字,中文大寫也跟著變化。

特別說明,此單元格的數(shù)字不是金額,只是普通帶小數(shù)點的數(shù)字,小數(shù)點后有一至四位小數(shù).
暈，沒見過。
問題：在Excel表格中，怎樣將帶小數(shù)點的小寫數(shù)字轉(zhuǎn)換成中文大寫？
比如說在表格中輸入１２．３２６然后轉(zhuǎn)換成中文大寫＂壹拾貳點叁貳陸．
在同一單元格中,再次輸入不同的數(shù)字,中文大寫也跟著變

一、在輸入的當前單元格直接轉(zhuǎn)換，沒有現(xiàn)成的格式函數(shù)。但通過VBA代碼還是能夠?qū)崿F(xiàn)的。（VBA代碼我在后面講）
如果想簡單一點的話，通過相玲單元格轉(zhuǎn)換大寫還是方便一點。
如果在 A1 輸入小寫，就在 B1 輸入如下公式：
=IF(A1>0,SUBSTITUTE((TEXT(A1,"[DBnum2]")),".","點"),IF(A1<0,"負"&SUBSTITUTE((TEXT(ABS(A1),"[DBnum2]")),".","點"),""))
上面的公式中考慮了輸入負數(shù)和零的問題，如不考慮負數(shù)和零，公式可以簡化如下：
=IF(A1>0,SUBSTITUTE((TEXT(A1,"[DBnum2]")),".","點"),"")

二、如果你堅持要在輸入數(shù)據(jù)的單元格中直接轉(zhuǎn)換中文大寫，只好用VBA程序代碼了，只是比較煩。
代碼如下：
Private Sub Worksheet_Change(ByVal aa As Range)
On Error GoTo error
If aa.Column = 1 Then
Select Case aa
Case Is > 0
aa = Replace(Application.Text(aa, "[DBnum2]"), ".", "點")
Case Is < 0
aa = "負" & Replace(Application.Text(Abs(aa), "[DBnum2]"), ".", "點")
Case Is = 0
aa = ""
End Select
End If
error: Exit Sub
End Sub

說明：
1。我說的代碼實際上是用Execl自帶的VBA編程語言編制的一個小程序。這個程序在你打開工作表的時候已在后臺準備運行，當工作表中某個單元格內(nèi)容發(fā)生變化時馬上運行。在程序運行中程序會自動判別，還在第一列的單元格中輸入的小寫數(shù)字都轉(zhuǎn)換成中文大寫，在其他單元格中輸入的數(shù)字不轉(zhuǎn)換大寫。程序是在后臺運行的，在工作表窗口是看不見的，只能看見程序運行后的結(jié)果。在工作表的單元格中不能設(shè)置這些程序代碼。程序代碼只能在VBA編碼窗口中編制。打開VBA編程窗口的方法有好幾種，這里只說一種。在已打開的工作表中，右擊您要轉(zhuǎn)換中文大寫的工作表標簽，在彈出的菜單中選擇查看代碼，這時VBA編碼窗口已打開。把上面的代碼輸入到代碼窗口中。當然可以用復(fù)制的方法把代碼復(fù)制過去，這樣不容易錯。最后關(guān)閉代碼窗口，自動回到工作表窗口。這時你在A1中輸入數(shù)字試試看，是否得到中文大寫的效果。

2。在上面程序代碼中，已設(shè)置為在工作表的第一列任何單元格中輸入小寫的數(shù)字都會馬上轉(zhuǎn)換成大寫。其它單元格中輸入的數(shù)據(jù)不會轉(zhuǎn)換。如想在其它列的單元格中轉(zhuǎn)換數(shù)據(jù)，請修改第三行代碼------Column = 1---- 中的數(shù)字。數(shù)字1代表第一列，數(shù)字2代表第二列，依次類推。

3。如果不考慮負數(shù)、零等情況的話，代碼可以簡化如下：
Private Sub Worksheet_Change(ByVal aa As Range)
If aa.Column = 1 Then
aa = Replace(Application.Text(aa, "[DBnum2]"), ".", "點")
End If
End Sub
采用簡化代碼的情況下，輸入的數(shù)字必須 >0 ，如果輸入 <=0 的數(shù)字會有意想不到結(jié)果。因為代碼中沒有處理0和<0數(shù)字的語句。請涼解。

五、上面的公式和程序代碼只解決特定問題的，不要直接用于人民幣大小寫的轉(zhuǎn)換。

請多提意見！
問題己解決
你用替換功能呀。這個適合大批量的轉(zhuǎn)換。
沒有這樣的功能吧.
這很容易呀，在Excel中就有這樣的轉(zhuǎn)換。選擇要轉(zhuǎn)換的數(shù)據(jù)，或者先在單元格中進行設(shè)置，右鍵/設(shè)置單元格格式，選擇數(shù)字選項卡，選擇左邊的分類為特殊，然后選擇右邊的類型為中文大寫數(shù)字，確定即可。
如此設(shè)置小數(shù)點的＂．＂不能轉(zhuǎn)換成＂點＂．
在maya123215的回答的基礎(chǔ)上，再“查找-替換”嘛，把“.”換成“點”。
maya123215老師用的方法: 右鍵->設(shè)置單元格格式->數(shù)字->特殊->數(shù)字中文大寫
是最簡單及常用的方法
由于單元格的內(nèi)容仍然是數(shù)字 12.326, 并非文本格式“壹拾貳點叁貳陸”, 故miaowu老師提議用“查找-替換”嘛，把“.”換成“點”是不可行的
故我提議用以下的公式:
假設(shè)A1是 12.326
在任何一格輸入公式:
=SUBSTITUTE(TEXT($A$1,"[DBNum2][$-804]G/通用格式"),".","點")
便會出現(xiàn) 壹拾貳點叁貳陸
由于中文大寫主要是作金額, 單位是元/角/分
公式變成:
=TEXT(INT(A1),"[DBNum2][$-804]G/通用格式")&"元"&IF((INT(A1*10)-INT(A1)*10)=0,"",TEXT(INT(A1*10)-INT(A1)*10,"[DBNum2][$-804]G/通用格式")&"角")&IF(INT(A1*100)-INT(A1*10)*10=0,"",TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2][$-804]G/通用格式")&"分")
便會出現(xiàn) 壹拾貳元叁角貳分
注意: 此公式會將小數(shù)后第三個位舍去, 如公式要求四舍五入進位, 公式內(nèi)所有 A1 要改成ROUND(A1,2), 公式便要長很多
呵呵，很好用，但有一個問題，假如小數(shù)點后面出現(xiàn)零，就不正確了，如6968.05，就變成了：陸仟玖佰陸拾捌元伍分，但實際需要的是：陸仟玖佰陸拾捌元零伍分，如何實現(xiàn)。
再就是后面是零角零分的情況如何實現(xiàn)。
還有要在本單元格轉(zhuǎn)換如何實現(xiàn)，也就是說轉(zhuǎn)換后的大寫金額顯示在小寫數(shù)字所在的單元格。
剛看到你的意見
公式顯示是可以解決 “零角伍分” 或 “零伍分”的問題, 但公式較長
在單元格設(shè)置自定義格式祇可做固定位數(shù), 如 1.25 變成壹元貳角伍分
如 21.25 便不成了
如需我進一步跟進, 請留下e-mail, 并說明有否VBA知識, 我可傳檔案給你
如認為我的答案可行, 請投我一票, 謝謝!
呵呵各位！有什么好的方法給我發(fā)郵件sunshinejpv@yahoo.com

本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊舉報。

打開APP，閱讀全文并永久保存查看更多類似文章

自定義格式代碼都在這里

Excel中將數(shù)字轉(zhuǎn)化為中文小寫或者中文大寫，職場辦公效率神技能

玩轉(zhuǎn)WPS表格 - 神奇的 TEXT 函數(shù)

帶有小數(shù)點的小寫金額轉(zhuǎn)換成大寫

Excel 數(shù)字小寫金額轉(zhuǎn)大寫金額方法大全

單元格格式的自定義詳解

更多類似文章 >>

九色国产,午夜在线视频,新黄色网址,九九色综合,天天做夜夜做久久做狠狠,天天躁夜夜躁狠狠躁2021a,久久不卡一区二区三区