高手帮忙

qrsk

在Sheet1中是我的原始数据。我想在打印的时候是Sheet2的效果，先谢谢你的帮助了。

[此贴子已经被作者于2005-5-24 13:47:10编辑过]

红池坝

使用公式：e12=IF(f12=0,"零元整",IF(f12<0,"负",)&IF(INT(ABS(f12)),TEXT(INT(ABS(f12)),"[dbnum2]")&"元",)&IF(INT(ABS(f12)*10)-INT(ABS(f12))*10,TEXT(INT(ABS(f12)*10)-INT(ABS(f12))*10,"[dbnum2]")&"角",IF(INT(ABS(f12))=ABS(f12),,"零"))&IF(ROUND(ABS(f12)*100-INT(ABS(f12)*10)*10,),TEXT(ROUND(ABS(f12)*100-INT(ABS(f12)*10)*10,),"[dbnum2]")&"分","整"))具体请参考：http://www.office-cn.net/forum.php?mod=viewthread&tid=25250

qrsk

谢谢！还有一个问题没有解决。在Sheet1中是我的原始数据。我想在打印的时候是Sheet2的效果

红池坝

你的sheet2表除了增加“合计”外，没有发现sheet1表有什么本质的区别，因此，你完全可以直接在sheet1表中加上“合计”。如果是想在打印的时候自动分页合计，有两个办法，一个是不用代码，实用分类汇总：首先添加一个复制列，输入页号，然后隐藏之。再进行“分类汇总”，以页为“汇总”分类，并对“金额”进行求和，选中“每组数据分页”即可另一个办法是用VBA代码，论坛里好像有位兄弟提供了这个代码，可惜偶现在一时找不到了。

qrsk

谢谢　我来找找看