[已解决]自动调用最后一行数据后金额转换问题

sdwffw

问题见附件sheet2表，请老师指教，非常感谢。 Book1.zip (9.21 KB, 下载次数: 14)

2013-3-28 16:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zyouong

2013-3-28 17:52

Book11.rar (7.98 KB, 下载次数: 15)

2013-3-28 17:52 上传

点击文件名下载附件

跳转到最佳答案楼层

zyouong

Book11.rar (7.76 KB, 下载次数: 6)

2013-3-28 16:46 上传

点击文件名下载附件

sdwffw

谢谢老师。不过B5单元格未自动变为大写数额

1032446692

sdwffw 发表于 2013-3-28 16:51
谢谢老师。不过B5单元格未自动变为大写数额

哪像在那个单元格填写公式？B5单元格又是什么东西？

sdwffw

老师，B5单元格是把“工业国发”的最后一行“审查费”单元格用index函数调过来的，想变为大写金额

zyouong

Book11.rar (7.98 KB, 下载次数: 15)

2013-3-28 17:52 上传

点击文件名下载附件

redsheep

B5公式  =IF(INDIRECT("工业国发!c"&COUNTA(工业国发!C:C))<0,"负","")&TEXT(INT(INDIRECT("工业国发!c"&COUNTA(工业国发!C:C))),"[dbnum2]")&"元"&IF(RIGHT(INT(INDIRECT("工业国发!c"&COUNTA(工业国发!C:C))*10),1)<>"0",TEXT(RIGHT(INT(INDIRECT("工业国发!c"&COUNTA(工业国发!C:C))*10),1),"[dbnum2]")&"角"&IF(RIGHT(INT(INDIRECT("工业国发!c"&COUNTA(工业国发!C:C))*100),1)<>"0",TEXT(RIGHT(INT(INDIRECT("工业国发!c"&COUNTA(工业国发!C:C))*100),1),"[dbnum2]")&"分","整"),IF(RIGHT(INT(INDIRECT("工业国发!c"&COUNTA(工业国发!C:C))*100),1)<>"0","零"&TEXT(RIGHT(INT(INDIRECT("工业国发!c"&COUNTA(工业国发!C:C))*100),1),"[dbnum2]")&"分","整"))



F5公式     =MOD(INT(INDIRECT("工业国发!$c"&COUNTA(工业国发!$C:$C))*(10^(COLUMN()-9))),10)
G5-K5的公式复制F5的就好

redsheep

讲一下   取数字用到的公式是   INDIRECT("工业国发!c"&COUNTA(工业国发!C:C))     这里注意的就是第一张表C列不允许有空着的格,否则公式取数就会出错(这里统计的是非空单元格的个数来判断该是第几行),要是你真有用不着的行也需要填个注明废掉的标记


然后B5 用的是这个公式  =if(a1<0,"负","")&TEXT(INT(A1),"[dbnum2]")&"元"&IF(RIGHT(INT(A1*10),1)<>"0",TEXT(RIGHT(INT(A1*10),1),"[dbnum2]")&"角"&IF(RIGHT(INT(A1*100),1)<>"0",TEXT(RIGHT(INT(A1*100),1),"[dbnum2]")&"分","整"),IF(RIGHT(INT(A1*100),1)<>"0","零"&TEXT(RIGHT(INT(A1*100),1),"[dbnum2]")&"分","整"))

这个公式是用来写金额很好用的公式   基本是按照会计实务里的要求写的,比如有角无分的时候也写整,只有分的时候有零没有整

redsheep

另外,在第二张表上 设置一个无字体颜色的辅助单元格更好,可以取到金额之后再用大写公式    看上去就美多了,而且就可以让第一张表允许存在空格了

取数公式  =INDIRECT("工业国发!c"&MAX(IF(工业国发!C1:C1000<>"",ROW(工业国发!C1:C1000),"")))     用ctrl+shift+回车  3键确认