Office中国论坛/Access中国论坛

标题: Excel如何实现页小计？ [打印本页]

作者: shisgs 时间: 2004-7-31 00:24
标题: Excel如何实现页小计？
Excel如何实现页小计？

作者: shisgs 时间: 2004-8-2 06:57
怎么没有人会啊？[em06]

作者: ui 时间: 2004-8-2 18:37
估计只好先合计好，再打印

作者: shisgs 时间: 2004-8-4 22:38
这太笨了噢！数据多时很麻烦的。

作者: rickylal211 时间: 2004-8-4 22:50
数据--分类汇总最好上传一范例，可以解决。

作者: shisgs 时间: 2004-8-5 00:01
不是分类汇总，是每页的小计，可不按类别分啊。

作者: liutf 时间: 2004-8-6 06:05
一般不行，只能先计算后打印

作者: 米粉 时间: 2004-8-7 04:06
的确有点难如果数据量很大的话，可以考虑编段程序，自动加汇总和分页。

作者: shisgs 时间: 2004-8-8 06:38
怎么变程啊？望指教！

作者: libra 时间: 2004-8-12 15:05
为什么非要用excel呢？

作者: accessnew 时间: 2004-8-13 20:29
他可能是公司格式的需要吧，自己写一个函数统计呗

作者: shisgs 时间: 2004-8-14 05:44
是的，各个单位上交财务的报表都要求有页小计。用Access当然很容易做到，但excel在基层用的更多，也基本可以满足要求。请教楼上，如何写这个函数啊？

作者: marco2 时间: 2004-8-15 01:49
给一个获得当前页号的方法给你（有点耗资源，不建议使用），有了这个页合计你就自己去写吧。

[attach]6087[/attach]

作者: shisgs 时间: 2004-8-16 07:38
呵呵，谢谢。是有点耗资源噢。思路应该有了，我试试。

作者: stanleypan 时间: 2004-8-17 05:54
'Using an XLM macro in VBASub ShowPageCount()

PageCount = 0

For Each sht In Worksheets

      sht.Activate

      Pages = ExecuteExcel4Macro("Get.Document(50)")

      PageCount = PageCount + Pages

Next sht

MsgBox "Total Pages = " & PageCount

End Sub

'Using VBA

Sub NumberOfPrintedPages()

Worksheets(1).DisplayAutomaticPageBreaks = True

HorizBreaks = Worksheets(1).HPageBreaks.Count

HPages = HorizBreaks + 1

VertBreaks = Worksheets(1).VPageBreaks.Count

VPages = VertBreaks + 1

NumPages = HPages * VPages

Worksheets(1).DisplayAutomaticPageBreaks = False

MsgBox NumPages

End Sub

作者: shisgs 时间: 2004-8-23 01:41
谢谢楼上！我对代码不熟悉哦。按13楼的提示，基本也可以实现了，就是格式不好设置，哪位大虾指教？

作者: shisgs 时间: 2004-8-23 01:43
[attach]6237[/attach]

呵呵，例子在这里，忘记上传了。

作者: Benjamin_luk 时间: 2004-8-25 21:38
应该是国营单位的做法吧!好老气呀, 难得一见

作者: okmijn 时间: 2005-12-11 06:24
用Access很容易

作者: 红池坝 时间: 2005-12-12 03:29
论坛里有的，自己去找找吧

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)