当前位置：文档之家 › 在EXCEL中将数字转换成中文大写

在EXCEL中将数字转换成中文大写

  • 格式：doc
  • 大小：87.00 KB
  • 文档页数：4

1.打开【工具】——【宏】——【VBA编辑器】
2.【插入】——【模块】
3.在新打开的窗口输入以下代码
4.关闭VBA编辑窗口
5.如果想把A1单元格的数字在A2单无格中转换成金额，可以在A2输入=dx(A1),"dx"
为刚才VBA定义的函数名
6.在A1输入一个数字，便会在A2显示大写金额
代码如下：
Function dx(q)
ybb = Round(q * 100) '将输入的数值扩大100倍，进行四舍五入
y = Int(ybb / 100) '截取出整数部分
j = Int(ybb / 10) - y * 10 '截取出十分位
f = ybb - y * 100 - j * 10 '截取出百分位
zy = Application.WorksheetFunction.Text(y, "[dbnum2]") '将整数部分转为中文大写
zj = Application.WorksheetFunction.Text(j, "[dbnum2]") '将十分位转为中文大写
zf = Application.WorksheetFunction.Text(f, "[dbnum2]") '将百分位转为中文大写
dx = zy & "元" & "整"
d1 = zy & "元"
If f <> 0 And j <> 0 Then
dx = d1 & zj & "角" & zf & "分"
If y = 0 Then
dx = zj & "角" & zf & "分"
End If
End If
If f = 0 And j <> 0 Then
dx = d1 & zj & "角" & "整"
If y = 0 Then
dx = zj & "角" & "整"
End If
End If
If f <> 0 And
如何把EXECL中小写数字转换成中文大写？且要求分位。

悬赏分：30 - 解决时间：2009-2-7 10:04
要分位，可以一个单元格显示一位，且不要“万、仟、佰、拾、角、分”这样的单位。

具体如图所示。

提问者：txhbj - 二级
最佳答案
如图例，数字金额所在位置为P2。

万位公式：=IF(INT($P$2/10000)=0,"×",MID("壹贰叁肆伍陆柒捌玖",INT($P$2/10000),1))
千位：=IF((INT($P$2/1000)-INT($P$2/10000)*10)=0,"×",MID("壹贰叁肆伍陆柒捌玖
",(INT($P$2/1000)-INT($P$2/10000)*10),1))
百位：=IF((INT($P$2/100)-INT($P$2/1000)*10)=0,"×",MID("壹贰叁肆伍陆柒捌玖
",(INT($P$2/100)-INT($P$2/1000)*10),1))
十位：=IF((INT($P$2/10)-INT($P$2/100)*10)=0,"×",MID("壹贰叁肆伍陆柒捌玖
",(INT($P$2/10)-INT($P$2/100)*10),1))
元位=IF((INT($P$2/1)-INT($P$2/10)*10)=0,"×",MID("壹贰叁肆伍陆柒捌玖
",(INT($P$2/1)-INT($P$2/10)*10),1))
角位：=IF((INT($P$2/0.1)-INT($P$2/100)*1)=0,"×",MID("壹贰叁肆伍陆柒捌玖
",(INT($P$2/0.1)-INT($P$2/100)*1),1))
分位：=IF((INT($P$2/0.01)-INT($P$2/100)*0.1)=0,"×",MID("壹贰叁肆伍陆柒捌玖
",(INT($P$2/0.01)-INT($P$2/100)*0.1),1))
函数：
Function rmbb(M)
y = Int(Abs(M))
j = Round(Abs(M) - y, 2)
f = (j * 10 - Int(j * 10)) / 10
a = Application.Text(y, "[DBNum2]")
d = "元"
If j <0.1 Then e = ""Else e = "角" If f <0.01 Then g = "整"Else g = "分" If f <0.01 Then c = ""Else c = Application.Text(Round(f * 100, 0), "[DBNum2]") If j = 0 Then b =
""Else b = Application.Text(Int(j * 10), "[DBNum2]") If M <0 Then z = "负"Else z = "" rmbb = z &a &d &b &e &c &g End Function 1．Execl 中工具〉宏〉Visual Basic编辑器2．右击”bisual basic 编辑器”的”this workbook”,选择插入->模块”,插入一个新模块,接着输入上面的函数. 3．输入后关闭编辑器返回. 4．开始转换单元格内输入”=rmbb(E3)”?? E3是小写地址位。

合集下载

把单元格中数字快速转化为中文大写的方法

把单元格中数字快速转化为中文大写的方法

把单元格中数字快速转化为中文大写的方法将单元格中数字快速转化为中文大写的方法介绍在Excel中，有时我们需要将数字转化为中文大写，例如将12345转化为一万二千三百四十五。

本文将介绍几种快速将单元格中数字转化为中文大写的方法。

方法一：使用Excel自带函数Excel自带了一个函数=TEXT(value, "[$-0804][DBNum2]G/通用格式")，可以将数字转化为中文大写形式。

使用步骤： 1. 在一个空白单元格中输入=TEXT(A1, "[$-0804][DBNum2]G/通用格式")，其中A1为要转化的数字所在的单元格。

2. 按下Enter键即可看到转化后的中文大写数字。

方法二：使用VBA宏如果需要频繁使用该功能，可以使用VBA宏将其封装为一个函数，以便更加方便地调用。

使用步骤： 1. 按下ALT + F11打开VBA编辑器。

2. 在VBA编辑器中，选择要添加宏的工作簿。

3. 在模块中，插入以下VBA代码：Function ChineseNumber(ByVal Value As Variant) As S tringDim MyNumber As CurrencyDim DecimalPlace As IntegerDim Count As IntegerDim DecimalSeparator As StringDim Temp As StringDim DecimalValue As StringDim DecimalWords As StringDim ReturnValue As StringDecimalSeparator = "点"ReDim Place(9) As StringPlace(2) = "十"Place(3) = "百"Place(4) = "千"Place(5) = "万"Place(6) = "十"Place(7) = "百"Place(8) = "千"Place(9) = "亿"' Convert MyNumber to string, separate integral and decimalMyNumber = Trim(CStr(Value))DecimalPlace = InStr(MyNumber, ".")If DecimalPlace > 0 ThenDecimalValue = GetTens(Left(Mid(MyNumber, Decima lPlace + 1) & "00", 2))MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End IfCount = 1Do While MyNumber <> ""Temp = GetHundreds(Right(MyNumber, 3))If Temp <> "" Then ReturnValue = Temp & Place(Co unt) & ReturnValueIf Len(MyNumber) > 3 ThenMyNumber = Left(MyNumber, Len(MyNumber) - 3) ElseMyNumber = ""End IfCount = Count + 1LoopSelect Case ReturnValueCase ""ReturnValue = "零"Case "一十"ReturnValue = "十"End SelectChineseNumber = ReturnValue & DecimalSeparator & Dec imalValueEnd FunctionFunction GetHundreds(ByVal MyNumber)Dim Result As StringIf Val(MyNumber) = 0 Then Exit FunctionMyNumber = Right("000" & MyNumber, 3)' Convert the hundreds place.If Mid(MyNumber, 1, 1) <> "0" ThenResult = GetDigit(Mid(MyNumber, 1, 1)) & "百"End If' Convert the tens and ones place.If Mid(MyNumber, 2, 1) <> "0" ThenResult = Result & GetTens(Mid(MyNumber, 2))ElseResult = Result & GetDigit(Mid(MyNumber, 3))End IfGetHundreds = ResultEnd FunctionFunction GetTens(TensText)Dim Result As StringResult = "" ' Null out the temporary funct ion value.If Val(Left(TensText, 1)) = 1 Then ' If value betw een 10-19...Select Case Val(TensText)Case 10: Result = "十"Case 11: Result = "十一"Case 12: Result = "十二"Case 13: Result = "十三"Case 14: Result = "十四"Case 15: Result = "十五"Case 16: Result = "十六"Case 17: Result = "十七"Case 18: Result = "十八"Case 19: Result = "十九"Case ElseEnd SelectElse ' If value betw een 20-99...Select Case Val(Left(TensText, 1))Case 2: Result = "二十"Case 3: Result = "三十"Case 4: Result = "四十"Case 5: Result = "五十"Case 6: Result = "六十"Case 7: Result = "七十"Case 8: Result = "八十"Case 9: Result = "九十"Case ElseEnd SelectResult = Result & GetDigit _(Right(TensText, 1)) ' Retrieve ones place. End IfGetTens = ResultEnd FunctionFunction GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = "一"Case 2: GetDigit = "二"Case 3: GetDigit = "三"Case 4: GetDigit = "四"Case 5: GetDigit = "五"Case 6: GetDigit = "六"Case 7: GetDigit = "七"Case 8: GetDigit = "八"Case 9: GetDigit = "九"Case Else: GetDigit = ""End SelectEnd Function4.按下CTRL + S保存宏。

excel 函数 阿拉伯数字转中文

excel 函数 阿拉伯数字转中文

excel 函数阿拉伯数字转中文
在Excel中，我们经常需要将阿拉伯数字转换为中文，以便更好地呈现和理解数据。

幸运的是，Excel 提供了一些内置函数来实现这一目的。

1. 数字转中文大写函数：
在 Excel 中，我们可以使用 VBA 函数将阿拉伯数字转换为中文大写。

这个函数可以将任何数字转换为中文大写，例如将数字 123 转换为“一百二十三”。

下面是一个示例：
```=CHINESE(123)```
2. 货币转中文大写函数：
如果你想将货币金额转换为中文大写，那么你可以使用以下函数： ```=CHINESE(123,'[DbNum2]')```
这个函数可以将任何金额转换为中文大写，例如将￥123 转换
为“壹佰贰拾叁元整”。

3. 日期转中文函数：
如果你想将日期转换为中文，那么你可以使用以下函数：
```=TEXT(A1,'[$-zh-CN]yyyy年mm月dd日')```
这个函数可以将任何日期转换为中文，例如将 2021/8/1 转换为“2021年8月1日”。

总之，通过使用这些函数，你可以很容易地将阿拉伯数字转换为中文，在数据分析和报告制作中更加得心应手。

EXCEL中将表示金额的阿拉伯数字转换成中文大写的方法

EXCEL中将表示金额的阿拉伯数字转换成中文大写的方法

excel中怎么将表示金额的阿拉伯数字转换成中文大写1、假设数字在A1单元格，目标单元格公式：=SUBSTITUTE(SUBSTITUTE(IF(IS NUMBER(FIND(".",A1)),TEXT(LEFT(A1,FIND(".",A1)-1),"[dbnum2]")&"元"&TEXT(MID(A1,FIND(".",A1)+1,1),"[dbnum2]")&"角"&TEX T(MID(A1,FIND(".",A1)+2,1),"[dbnum2]")&"分",TEXT(A1,"[dbnum2]")&"元整"),"角分","角整"),"-","负")2、要结果的单元格输入公式=IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(T RUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00" ))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2) ),"[DBNum2]")&"分","整")，A2是数字格。

手把手教你转换出中文大写金额

手把手教你转换出中文大写金额

手把手教你转换出中文大写金额大家在使用Excel的时候,是否会遇到要把一个或一些阿拉伯数字转换成中文大写金额的计算要求呢?如果只是偶尔需要对少数几个数字进行转换,干脆手工操作啦,但如果要进行转换的数字较多或经常要转换时,该怎么办呢?一向无往不胜的Excel能为你做些什么呢?其实,这个不难,最少有三种方法可以实现。

<br>一、设置单元格格式:<br>用这个办法能直接将阿拉伯数字转换成中文大写金额,而且操作简单。

右击需要转换的单元格,在弹出的快捷菜单中选择“单元格格式”,然后在“数字”选项卡中选择“自定义”,在“类型”中写入“[DBNum2]G/通用格式"元"”后按确定即可。

瞧,321是不是已经变成了“叁佰贰拾壹元”了?<br> 可惜的是,这个办法只能处理整数,而对带有小数的数字无能为力。

当然也有过朋友通过对此法进行一定的扩展而可以处理部分带小数的数字,但效果不是很理想。

<br>二、利用中文大写金额转换函数:<br>先别急,这个函数你在Excel里是找不到的,微软毕竟不是大陆公司!这个函数被收集在本站开发的“Excel扩展函数集”里,下载这个函数集,按说明进行安装后,在Excel中运用一个叫EHDXRMB()的函数就可以将任意数字转换成中文大写金额。

具体情况在此就不多进行介绍了。

<br>三、利用公式进行转换:<br>所谓“自力更生,丰衣足食”,这第三种方法就是自己编写公式进行转换。

虽然吝啬的小编连白开水也舍不得给我,但我还是一如既往地发扬大公无私之精神将独门密技告之天下,包学包会,不会免费再学……(小编:STOP!再要是废话就OUT!)<br>为了照顾一些Excel初学者,我们先来了解一下什么是Excel里的公式与函数。

Excel之所以计算功能异常强大,百分之八十的功劳就在于用户可以创建公式进行计算。