在Excel表格中数字转金额.docx

在Excel表格中，怎样将带小数点的小写数字转换成中文大写？比如说在表格中输入然后转换成中文大写壹拾贰点叁贰陆补充 - 3个月前在同一单元格中,再次输入不同的数字,中文大写也跟着变化补充 - 3个月前特别说明,此单元格的数字不是金额,只是普通带小数点的数字,小数点后有一至四位小数.最佳答案 - 由投票者2个月前选出问题：在Excel表格中，怎样将带小数点的小写数字转换成中文大写？比如说在表格中输入然后转换成中文大写壹拾贰点叁贰陆在同一单元格中,再次输入不同的数字,中文大写也跟着变化回答：一、在输入的当前单元格直接转换，没有现成的格式函数。但通过VBA代码还是能够实现的。（VBA代码我在后面讲）如果想简单一点的话，通过相玲单元格转换大写还是方便一点。如果在 A1 输入小写，就在 B1 输入如下公式：=IF(A10,SUBSTITUTE(TEXT(A1,DBnum2),.,点),IF(A10,SUBSTITUTE(TEXT(A1,DBnum2),.,点),)二、如果你坚持要在输入数据的单元格中直接转换中文大写，只好用VBA程序代码了，只是比较烦。代码如下：Private Sub Worksheet_Change(ByVal aa As Range)On Error GoTo errorIf aa.Column = 1 ThenSelect Case aaCase Is 0aa = Replace(Application.Text(aa, DBnum2), ., 点)Case Is 0 ，如果输入 =0 的数字会有意想不到结果。因为代码中没有处理0和设置单元格格式-数字-特殊-数字中文大写是最简单及常用的方法由于单元格的内容仍然是数字 12.326, 并非文本格式“壹拾贰点叁贰陆”, 故miaowu老师提议用“查找-替换”嘛，把“.”换成“点”是不可行的故我提议用以下的公式:假设A1是 12.326在任何一格输入公式:=SUBSTITUTE(TEXT($A$1,DBNum2$-804G/通用格式),.,点)便会出现 壹拾贰点叁贰陆由于中文大写主要是作金额, 单位是 元/角/分公式变成:=TEXT(INT(A1),DBNum2$-804G/通用格式)&元&IF(INT(A1*10)-INT(A1)*10)=0,TEXT(INT(A1*10)-INT(A1)*10,DBNum2$-804G/通用格式)&角)&IF(INT(A1*100)-INT(A1*10)*10=0,TEXT(INT(A1*100)-INT(A1*10)*10,DBNum2$-804G/通用格式)&分)便会出现 壹拾贰元叁角贰分注意: 此公式会将小数后第三个位舍去, 如公式要求四舍五入进位, 公式内所有 A1 要改成ROUND(A1,2), 公式便要长很多在Excel中将小写数字转化为中文大写元角分数字=IF(B1-INT(B1)=0,TEXT(INT(B1),DBNum2$-804G/通用格式)&元整,IF(B1*100-INT(B1*10)*10=0,TEXT(INT(B1),DBNum2$-804G/通用格式)&元&TEXT(INT(B1*10)-INT(B1)*10,DBNum2$-804G/通用格式)&角整,IF(INT(B1*10)-INT(B1)*10=0,TEXT(INT(B1),DBNum2$-804G/通用格式)&元零&TEXT(INT(B1*100)-INT(B1*10)*10,DBNum2$-804G/通用格式)&分,TEXT(INT(B1),DBNum2$-804G/通用格式)&元&TEXT(INT(B1*10)-INT(B1)*10,DBNum2$-804G/通用格式)&角&TEXT(INT(B1*100)-INT(B1*10)*10,DBNum2$-804G/通用格式)&分)以上是代码 直接复制 粘贴到你 要生成元角分 的单元格里 然后在 B1单元格里直接输入 数字。你就能看到 目标单元格里生成的元角分。对财会非常有用的 自动生成元角分。具体例子1.在B1格输入小写100目标单元格变大写 壹佰元整2.在B1格输入小写100.10目标单元格变大写 壹佰元一角整3.在B1格输入小写100.01目标单元格变大写 壹佰元零一分友看了之后提出 0.45 生成肆角伍分是 前面会多出一个零元为解决这个问题 特别为 小于1元的数字格 编制了新的代码如果数据中有小于一的 请筛选出来后 再使用以下代码=IF(B7*100-INT(B7*10)*10=0,TEXT(INT(B7*10)-INT(B7)*10,DBNum2$-804G/通用格式)&角整,IF(INT(B7*10)-INT(B7)*10=0,TEXT(INT(B7*100)-INT(B7*10)*10,DBNum2$-804G/通用格式)&分,TEXT(INT(B7*10)-IN