首页
问答
词典
文集
工具
退出登录
登录
我要提问
搜索
问答首页
Excel2003如何仅在预览中进行每页汇总？
正
2
0
1
3
-
0
6
-
0
2
1
0
:
0
2
:
0
3
版本:
1
/
1
2
0
1
3
-
0
6
-
0
2
1
0
:
0
2
:
0
3
版本:
1
/
1
如果想在Excel2003预览中对每一页进行汇总，请问有什么方法？
如果想在Excel2003预览中对每一页进行汇总，请问有什么方法？
Excel
Excel2003
汇总
每页
更多标签...
每页汇总
vba
预览
版权归作者所有。任何形式转载须联系作者获得授权。
作者：
正解网
来源：正解网
链接：
https://www.zhengjie.com/question/fdc1f62c
投票
8
好问题
烂问题
修改
分享
扫码分享
分享到新浪微博
分享给QQ好友
分享到QQ空间
复制网址
OK了，粘贴即可！
问题状态
正解:
1
个
解答:
1
个
同问:
0
人
浏览:
97
次
相关问题
如何用Excel2003进行分类汇总？
正解:
1
解答:
1
同问:
0
使用Excel处理数据时如何进行跨表操作？
正解:
1
解答:
1
同问:
0
怎样在一个Excel工作簿中增加工作表？
正解:
1
解答:
1
同问:
0
Excel工作表怎样作重新命名？
正解:
1
解答:
1
同问:
0
在Excel表格中，如何将默认的灰色网格线去掉？
正解:
1
解答:
1
同问:
0
修改提问
Excel2003如何仅在预览中进行每页汇总？
如果想在Excel2003预览中对每一页进行汇总，请问有什么方法？
Excel
Excel2003
汇总
每页
每页汇总
vba
预览
提交
图片
把图片文件拖到这里即可上传
上传完，点击「插入图片」按钮插入
title
插入图片
图片链接:
图片描述:
添加
取消
视频
title
插入视频
视频链接:
添加
取消
出于安全考虑，目前正解网仅支持腾讯视频（支持 HTTPS）的视频播放页链接
提交
1
个解答
正
2
0
1
3
-
0
6
-
0
2
1
0
:
0
2
:
0
3
版本:
1
/
1
2
0
1
3
-
0
6
-
0
2
1
0
:
0
2
:
0
3
版本:
1
/
1
只需观看完一个15秒以内的短视频广告，即可查看解答。只需观看完一个15秒以内的短视频广告，即可查看解答。
看完广告，即可查看解答。只需观看完一个15秒以内的短视频广告，即可查看解答。
只需观看完一个15秒以内的短视频广告，即可查看解答。只需观看完一个15秒以内的短视频广告，即可查看解答。
看完广告，即可查看解答。只需观看完一个15秒以内的短视频广告，即可查看解答。
1840 人已浏览过此解答
免费查看解答
×
打开手机微信扫一扫免费查看解答
3步免费查看解答
2步免费查看解答
1️⃣ 长按保存下方小程序码
2️⃣ 打开手机微信的扫一扫
3️⃣ 点击右上角相册选取此码
1️⃣ 长按下方的小程序码
2️⃣ 在弹出的菜单中识别图中的小程序码
小程序码已失效
👉请点此刷新👈
60
s
自动显示解答
修改解答
用VBA可实现这功能。 ##操作步骤 首先打开一个Excel文件，在工具栏中依次点击「工具」—「宏」—「VB编辑器」，输入下面代码即可： 1、新建按钮,在单击事件中加入代码： Private Sub CommandButton1_Click() NN End Sub 2、新建模块,将以下代码复制进去： Sub NN() Application.ScreenUpdating = False insesum ActiveSheet.PrintPreview delesum Application.ScreenUpdating = True End Sub Sub insesum() ii = 0 For i = 2 To ActiveSheet.Range("a30000").End(xlUp).Row If Rows(i).PageBreak = -4105 Then Rows(i - 1).Insert With Range(Cells(i - 1, 1), Cells(i - 1, 2)) .Formula = "=sum(a" & i - ii - 1 & ":a" & i - 2 & ")" .Font.Bold = True End With ii = 0 Else ii = ii + 1 End If Next i = ActiveSheet.Range("a30000").End(xlUp).Row With Range(Cells(i + 1, 1), Cells(i + 1, 2)) .Formula = "=sum(a" & i - ii - 2 & ":a" & i & ")" .Font.Bold = True End With End Sub Sub delesum() ii = ActiveSheet.Range("a30000").End(xlUp).Row Rows(ii).Delete For i = Worksheets(1).UsedRange.Rows.Count To 2 Step -1 If Rows(i).PageBreak = -4105 Then Rows(i - 1).Delete End If Next End Sub
提交
图片
把图片文件拖到这里即可上传
上传完，点击「插入图片」按钮插入
title
插入图片
图片链接:
图片描述:
添加
取消
视频
title
插入视频
视频链接:
添加
取消
出于安全考虑，目前正解网仅支持腾讯视频（支持 HTTPS）的视频播放页链接
提交
我的解答
提交
图片
把图片文件拖到这里即可上传
上传完，点击「插入图片」按钮插入
title
插入图片
图片链接:
图片描述:
添加
取消
视频
title
插入视频
视频链接:
添加
取消
出于安全考虑，目前正解网仅支持腾讯视频（支持 HTTPS）的视频播放页链接
提交
∧
回顶部
