EXCEL怎样实现打印时自动核算本页合计及累计?

作者&投稿:化钟 (若有异议请与网页底部的电邮联系)
EXCEl打印时如何每页能自动计算合计数?~

没这样统计过,网上看到别人这样做:
首先添加一列“页号”,然后安装每页行数-1的办法输入页码,然后隐藏之。
然后“分类汇总”(以页为关键字分类,对金额一栏求和),注意勾选“每组数据分页”选项。(为避免破坏原始数据,建议复制原始表为一个新的临时表后进行)

后来看到别人一个VBA作品,很不错,现在转过来,也许对你有用:

比如A列是“产品”,B列是“金额”
Dim i, t, l, x, rr, dr, tt As Integer
Dim rrr As String
Public Sub Fyhz()
t = 2
Do
i = InputBox("请输入每页拟打印的行数: (不能超过一页的范围!!!)")

If i <= 0 Or i = "" Then
MsgBox ("每页行数必须大于1!")
Else
Exit Do
End If
Loop
i = Int(i)
x = i + 1
l = Range("A65536").End(xlUp).Row
Do While l >= x

Rows(x + 1).Insert Shift:=xlDown
Cells(x + 1, 1) = "本页小计"
Cells(x + 1, 2).Formula = "=SUM(R[-" + CStr(i) + "]C:R[-1]C)"
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(x + 2)
x = (i + 1) * t
t = t + 1
l = l + 1
Loop

If l Mod (i + 1) 1 Then
rr = l Mod (i + 1)
rr = rr - 1
rrr = CStr(rr)
Cells(l + 1, 1) = "本页小计"
Cells(l + 1, 2).FormulaR1C1 = "=SUM(R[-" + rrr + "]C:R[-1]C)"
End If
Cells(l + 2, 1) = "合计"
Cells(l + 2, 2).FormulaR1C1 = "=SUM(R[-" + CStr(l + 1) + "]C:R[-1]C)/2"
Range(Cells(1, 1), Cells(l + 1, 2)).Locked = True
ActiveSheet.Protect
Cells(1, 1).Select

我是放弃了的,每页能自动计算合计数的作用就是便于手动复核,其他人都不关心,在目前的电算条件下,形式大于内容,好像已无必要了。

你可以在菜单“工具”--“保护”--“保护工作表”在下面的框中选择“锁定单元格”设置就可以了。
看你合计细不细,单纯的可以用求和按钮选定要求和的区域就可以求和了。
函数挺多的。
1.sum ()
在单元格输入“=sum(A1:A2:A3...)”是求A1,A2,A3...和。

输入=sum(A1:B1:C1...)求一列的和。
其实也有自动求和的更简单点。
2.AVERAGE()
求平均值选定你要求的单元格区域即可。
3.count()统计数值型数据的个数,不计文本。
4.countif(range,criteria)
统计符合条件的数据的个数。
假如A3:A6中的内容分别是“apples“,“oranges,”\"peaches\",“apples”
countif(A3:A6,\"apples\")=2.
5.if(logical,v1,v2)条件函数
这个很简单的

使用函数方法

本页小计=IF(MOD(ROW(),J$1+2)=1,"本页小计",IF(MOD(ROW(),J$1+2)=2,"累计",COUNT(A$2:A22)+1))

数据==IF($A23="本页小计",SUM(INDIRECT("R[-"&$J$1&"]C:R[-1]C",0)),IF($A23="累计",SUMIF($A$3:$A23,"本页小计",C$3),VLOOKUP($A23,Data!$A:$H,COLUMN(),0)))

具体的你可以看些不件



你想算合计金额直接用公式算不就行了.
对文档保护:工具-保护工作簿
下面说说函数的用法:=sum(单元格区域)例:=sum(a1:a5)
=rode(区域) 这是计算某区域出现频率最多的数据
=rank(单元格,区域) 计算名次
例:=rank(b1,$b$1:$b$7) 后面的必须加$
公式太多了!写不完
你有事在QQ问我 469766572

想法很好!
前面的问题是面子,“问题补充”是实质。
这不是“有点难”,纯属于程序开发问题。


...3中共有100页的内容按1至100的页码连接打印出来怎么打?
首先将两页分别设置页码,然后在工作表标签上选定该两个工作表,单击打印按钮,这样打印出来的页码就是连续的。

Excel打印预览时表格内容显示不全,该怎么办
excel打印预览显示不全的原因。1、excel表格列数过多导致打印不全,EXCEL内容太多了,已经超过了一张纸,系统就会将超过内容的那一列单元格自动打印的下一页,所以导致内容无法布满全页。此种情况,我们可以通过调整缩放比例来进行页面调整。2、页面设置界面——调整缩放比例到合适3、上述情况比较特殊,...

excel筛选快捷键ctrl加什么详情
筛选快捷键为Ctrl+Shift+LMicrosoft Excel是Microsoft为使用Windows和Apple Macintosh操作系统的电脑编写的一款电子表格软件直观的界面出色的计算功能和图表工具,再加上成功的市场营销,使Excel成为最流行的个人计算机数据处理。xcel全选快捷键ctrl加A,Ctrl+A也是office组件以及Windows系统中的全选快捷键Excel中...

表格太长怎么快速求和
现如今科技的发展,数据需要的是越来越多,有的朋友在表格中做了数据不知道怎么快速求和,下面就来说一下。xcel表格多列求和方法:1.打开需要求和的excel表格 2.选中显示和数字的那列的单元格,点击左上角的插入函数 3.选中和函数,你也可以选择度其他的计算方法 4.输入你要求和的起始列和终止列,...

表格折扣多少公式怎么算?
xcel折扣公式的计算方法取决于折扣的方式和折扣的条件。以下是一些常见的折扣公式:打折:折扣后的价格 = 原价 * 折扣率例如,如果原价为10元,打8折,那么折扣后的价格为10 * 0.8 = 8元。满减:折扣后的价格 = 原价 - 折扣金额例如,如果原价为10元,满5元减2元,那么折扣后的价格为10 - 2...

为什么电子表格打不开
问题十:excel表双击都打不开了怎么办 如果是2003版本的,打开EXCEL,选择工具 ==》选项==》常规中把“忽略其他应用程序”去掉对号试一下。 如果是2007版本的,选择亥XCEL选项==》高级==》常规处把“忽略使用动态数据交换(DDE)的其他应用程序”去掉对号试下。

excel表格怎么设置页眉页脚 xcel表格如何设置页眉页脚
1、打开一个Excel表。在“页面布局”中,找到红色线框标注的“页面设置”按钮。2、点开“页面设置”按钮,弹出如下所示对话框。把对话框切换到“页眉\/页脚”选项,这时页眉和页脚都还没有设置内容。3、点开“页眉”设置框后面的黑色小三角,我们可以选择页眉处要显示的内容,也可以单击“自定义页眉”...

Microsoft Excel 工作表快捷键列表
五、xcel中输入并计算公式的快捷键 键入公式 =(等号) 关闭单元格的编辑状态后,将插入点移动到编辑栏内 F2 在编辑栏内,向左删除一个字符 Backspace 在单元格或编辑栏中完成单元格输入 Enter 将公式作为数组公式输入 Ctrl+Shift+Enter 取消单元格或编辑栏中的输入 Esc 在公式中,显示“插入函数”对话框 Shift+F3...

excel怎么按百分比排序
先设置单元格格式为【百分比】然后用排序工具进行排序就可以了。具体的操作步骤如下:所需材料:电脑、Excel 1、打开文件,然后选中百分比那一列数据,单击右键选择【设置单元格格式】2、然后选择【百分比】——【两位小数】3、更改为单元格格式之后在工具栏的右上角选择【排序和筛选】4、然后选中百分比...

如何用签名xcel文档
Word Excel文档电子签名是怎么操作的?随着不断深化的信息化进程,大部分企业都基本上实现了网上办公,因此在日常工作中就需要在网络上传递大量的word、excel文档,所以保证传递中的文档信息安全至关重要。电子签名技术的推广和应用,不仅解决了数据信息的完整性、真实性和可靠性的问题,更在一定程度上推动了...

克拉玛依市14755398574: EXCEL怎样实现打印时自动核算本页合计及累计?
庾肤怡那: 试试这个——分页小计 http://www.excelba.com/showdown.asp?soft_id=29

克拉玛依市14755398574: EXCEL表格中,怎样设置可以达到自动计算的目的? -
庾肤怡那: 操作方法如下:1.打开一个EXCEL文件;2.选择两个方框输入两个数据.此处以输入1,2为例进行加法运算;3.选择需要填写答案的方框;4.在此方框中输入“=";5.点击要参加运算的第一个自变量;6.点击答案应该所在的方框,输入“+”;7.点击另一个自变量;8.点击回车,便得到答案.

克拉玛依市14755398574: 我要经常打印excel数据表格,每次打印以后想记录下每次打印的数据,用excel能实现自动记录么? -
庾肤怡那: 可以利用workbook的BeforePrint事件实现,例如:Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheet1.Cells(1, 1).Value = Sheet1.Cells(1, 1).Value & Chr(10) & "打印时间:" & Now() End Sub 这段代码是在你执行打印前,在sheet1工作表的A1单元格记录打印时间,不知道你需要记录什么打印数据,可以修改代码实现.

克拉玛依市14755398574: EXCEL中如何实现要打印的数据自动连续记录下来就是我在EXCEL表中几个 单元格中输入了数据,并打印, 这时
庾肤怡那: Sub MK888() ' ' Sheets("表1").Select Dim s2 As Variant s2 = [COUNTA(表2!B:B,0)] Sheets("表2").Cells(s2, 2) = Cells(5, 5) Sheets("表2").Cells(s2, 4) = Cells(12, 2) Sheets("表2").Cells(s2, 5) = Cells(12, 9) ...

克拉玛依市14755398574: 怎样做EXCEL账本记账表格自动计算呢 -
庾肤怡那: 增加辅助列吧,你这个表只能用于打印,记账是不适用的. 上传带列标的图,或发文件给我.

克拉玛依市14755398574: Excel怎么设置打印一次内容自动等于另外表格的依次列内容,如=另外表格的a1打印后自动变成另外表格的a2 -
庾肤怡那: 方法如下: 假设编码在G1单元格,使用下面代码可实现打印和自动编码递增. 按ALT+F11打开VBA窗口,插入一个模块,把下面代码复制进去. 回到excel窗口,按“视图-工具栏”,点“窗体”,调出“窗体”工具栏,在上面选一个按钮,添加到表格上,并指定宏为“打印”. 使用时,每点击一下添加的按钮,就会打印一次,并使编号自动加一.Sub 打印() ActiveWindow.SelectedSheets.PrintOut s = Val(Range("g1")) s = s + 1 Range("g1") = "'" & Right("0000" & s, 5) End Sub

克拉玛依市14755398574: 用Excel制作表格,怎样设置自动计算? -
庾肤怡那: D1输入公式=B1*C1回车确定,鼠标对准单元格右下角,当出现一个黑色小十字时,同时按住鼠标左键往下拖动到100行D101 输入公式 =SUM(D1:D100)

克拉玛依市14755398574: 如何在excel里面加入(打印计数)然后(生成数字)命令 -
庾肤怡那: 做个宏, 请参考已答过:http://wenwen.sogou.com/z/q714683507.htm Sub 打印_单击() Range("U12").Select '[A1]是要变单元格位置 ActiveCell.FormulaR1C1 = [U12] + 1 '1是看你要加多少,[U12]是单元格位置 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '1是打印1份 End Sub

克拉玛依市14755398574: EXCEL中如何实现每打印一份就自动保存当前工作表到当前工作簿中 -
庾肤怡那: Private Sub Workbook_BeforePrint(Cancel As Boolean) If Cancel = False Then ActiveSheet.Copy After:=Sheets(Sheets.Count) End If ActiveSheet.Name = [c2].Text End Sub 将代码放在工作簿事件下

克拉玛依市14755398574: excel中怎样设置自动计算? -
庾肤怡那: 公式不能对自身单元格进行引用,否则会造成循环错误.而且你是手工输入了数值,你输入后不管单元格里有没有公式都被你清除了,试试用vba看能不能解决你这个问题. 按ALT+F11进入代码窗口,双击一下sheet1,然后把下然代码复制进去...

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网