[求助]分类分页打印工程报表

xiazhexue

xflIQj0T.rar (12.06 KB, 下载次数: 51)

2007-8-15 08:14 上传

点击文件名下载附件
大侠走过，不能错过，急用！！！

附件有两张表，打印页来源于录入页，详细情况见附件，高手帮忙呀，急用！！！！

[此贴子已经被山菊花于2007-8-18 12:19:32编辑过]

山菊花

1、在O4:O16建立分类表，作B3数据有效性数据源，为B3设置数据有效性。

2、插入—名称—定义：

动态引用“录入”表原始数据：

预算编号=OFFSET(录入!$A$2,,,COUNTA(录入!$A:$A)-1)

按B3单元格的工程项目名称，返回符合条件的行号：

x=IF(LEFT(预算编号,LEN(打印!$B$3))=打印!$B$3,ROW(预算编号))

3、按X引用记录：

A6=IF((J$15-1)*14+ROW(1:1)>COUNT(x),"",INDEX(录入!A:A,SMALL(x,(J$15-1)*14+ROW(1:1))))

其它公式见附件。

4、统计：

B20="共"&ROUNDUP(COUNT(x)/14,0)&"页，共"&COUNTIF(录入!A:A,B3&"*")&"项，本页"&IF(A19="",MOD(COUNT(x),14),14)&"项"

C20=SUMIF(录入!$A:$A,$B3&"*",录入!C:C)

(如果只合计本页数据可直接用公式“=SUM(C6:C19)”)

5、添加按钮，双击按钮，写入代码：

QUOTE:

Private Sub CommandButton1_Click()
Dim Rng As Range
For Each Rng In Range("name")
Range("b3") = Rng
Range("j15") = 1
Do Until Range("a6") = ""
ActiveSheet.PrintOut
Range("j15") = Range("j15") + 1
Loop
Next
End Sub

点击按钮可打印全部报表。

W1C2nm8A.zip (17.87 KB, 下载次数: 171)

2007-8-18 12:20 上传

点击文件名下载附件
[求助]分类分页打印工程报表

xiazhexue

真是太谢谢山菊花版主了，多谢高手指教！！！！初学函数，不怎么懂，慢慢研究您的成果吧，呵呵.

shizang

太高深了，看不懂啊