当前位置: 首页 > 图文教程 > 工具软件 > 办公软件 > Excel中人民币小写转换大写技巧

办公软件
Word窗体实现文档套打
谈巧除Word页眉折线
Word文档中特殊符号输入方法汇总
Word表格中快速复制公式
Word也能查农历
含封面文档的页码设置技巧
自定Word右键菜单
Word中为常用文档建立列表菜单
F4键重复输入字符和图形
用好Word中的“版本”功能
Word 表单保护密码移除漏洞
Word 2003的新颖“阅读版式”
巧用Word编报刊
Word中创建自动翻页功能
Word插入对象
Word 2000 制作优美印章
更改Word 2002的默认功能
用Word和Excel制作成绩单
巧将Word页保存成图片
Word中的数据计算

办公软件 中的 Excel中人民币小写转换大写技巧


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-01   浏览: 106 ::
收藏到网摘: n/a

要将人民币小写金额转换成大写格式,用Excel提供的格式,将自定义格式类型中的“[dbnum2]G/通用格式”改为“[dbnum2] G/通用格式“元””来实现。但在转换小数时却出现了问题,比如¥6,050.09只能转换为“陆仟零伍拾.零玖圆”。那么用Excel能不能解决这一先天不足呢?其方法有以下两种(以下均对B1转换,假设B1是通过函数ROUND( )四舍五入取得二位小数的小写金额数,其值为¥6,050.09)。

  一、在三个连续的同行单元格中转换

  1. B2中输入公式 “=IF(B1〈0,"金额为负无效",INT(B1))”,计算结果为¥6,050.00,然后点击“格式→单元格→数字→特殊→中文大写数字→确定”,B2显示“陆仟零伍拾”,再点击“格式→单元格→数字→自定义”,将“类型”编辑框中的“[dbnum2]G/通用格式”修改为:[dbnum2](“人民币”)G/通用格式“元”,此时B2显示:“(人民币)陆仟零伍拾元”。

  2. C2中输入“=IF(B1〈0,"",INT(B1 10)-INT(B1) 10)”,同样C2改为:[DBNum2]G/通用格式“角”,C2显示:“零角”。

  3. D2中输入“=IF(B1〈0,"",INT(B1 100)-INT(B1 10) 10)”,同样D2改为:[DBNum2]G/通用格式“分”, D2显示:“玖分”。

  这样在连续的三个同行单元格中实现了大写金额格式的转换,如图1所示。为了使转换符合财务格式,B2应右对齐,C2列宽无间隔,且不设左右边框线,D2要左对齐。

  

 

二、用Excel提供的函数转换

  个位为0,则不显示;不为0,显示“XXX元”;不为0、且角位和分位均为0,显示“XXX元整”;元角分位均为0,则显示“零元整”。

  小数点后面第一位为0、且元位或分位有一为0,则不显示;为0、且元位和分位均不为0,则显示“零”;不为0,显示“X角”。

  小数点后面第二位为0,则显示“整”;不为0,显示“X分”。

  根据以上思路在B2中输入公式:

  “IF(B1〈0,"金额为负无效",IF(OR(B1=0,B1=""),"(人民币)零元整"));

  IF(B1〈1,"(人民币)",TEXT(INT(B1),"[dbnum2](人民币)G/通用格式")&&"元")&&IF(INT(B1 10)-INT(B1) 10=0);

  IF(INT(B1) (INT(B1 100)-INT(B1 10) 10)=0,"","零"),TEXT(INT(B1 10)-INT(B1) 10,"[dbnum2]")&&"角")&&IF((INT(B1 100)-INT(B1 10) 10)=0,"整",TEXT((INT(B1 100)-INT(B1*10)*10),"[dbnum2]")&&"分")))”。

  确认后B2显示:“(人民币)陆仟零伍拾元零玖分”。以后使用时将公式复制到有关单元格中,若转换的对象B1发生了变化,可点击“编辑→替换”将B1替换掉。两种转换测试结果如图2所示。