找回密码
 注册
搜索
热搜: 超星 读书 找书
查看: 761|回复: 0

[【原创】] 长期从事人事和计算机基础教学工作,奉献我的EXCEL代码

[复制链接]
发表于 2006-8-5 10:18:20 | 显示全部楼层 |阅读模式
1、人民币大小写转换代码:
=\"人民币\"&IF(G17<0,\"负\",)&IF(INT(ABS(G17)),TEXT(INT(ABS(G17)),\"[dbnum2]\")&\"元\",)&IF(INT(ABS(G17)*10)-INT(ABS(G17))*10,TEXT(INT(ABS(G17)*10)-INT(ABS(G17))*10,\"[dbnum2]\")&\"角\",IF(INT(ABS(G17))=ABS(G17),,\"零\"))&IF(ROUND(ABS(G17)*100-INT(ABS(G17)*10)*10,),TEXT(ROUND(ABS(G17)*100-INT(ABS(G17)*10)*10,),\"[dbnum2]\")&\"分\",\"整\")
说明:1、G17是指小写的单元格。
    2、本代码需要写在大写的单元格内。
    3、本代码写法是符合会计制度上对人民大写要求。
2、新扣税代码(1600元起征)
=ROUND(IF((G7-1600)<=0,0,IF((G7-1600)<=500,(G7-1600)*0.05-0,IF((G7-1600)<=2000,(G7-1600)*0.1-25,IF((G7-1600)<=5000,(G7-1600)*0.15-125,IF((G7-1600)<=20000,(G7-1600)*0.2-375))))),2)
说明:1、G7为需要扣税的对象单元格。
    2、本金额在20000以下,若超出请自行加入嵌套。
3、自动输入法:
因设计几张表格,不方便用代码写出来,提醒用index()和match()来完成。
需要代码可以交流。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|网上读书园地

GMT+8, 2024-11-24 09:46 , Processed in 0.120254 second(s), 18 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表