如何在每页打印时在页脚中插入公式？ [英] How to insert formula in footer while printing for each page?

问题描述

对所有专家来说，

我有一些包含一些列的大表我想插入一列的总和打印时的每一页，并且还希望每页都有以前页面的总页数。

I have a big sheet with some columns i want to insert sum of one column for each page while printing  and also wanna have total sum of each page with previous pages in footer.

请让我在这方面有个好主意。 

pls let me have your good idea in this respect. 

推荐答案

您好，

尝试这样的事情（A是专栏你需要求和，B是放入总和和累积总和的列。

Try something like this (A is the column you need to sum, B is the column to put the Sum and the cumulative Sum)

子测试（）

Dim PageNumberRow As Long

Dim i As Long

Dim SumColumnIs Double Double $
Dim TotalSumColumn As Double

Dim PageStartAtRow As Long

Dim PageNumberRow As Long
Dim i As Long
Dim SumColumnIs As Double
Dim TotalSumColumn As Double
Dim PageStartAtRow As Long

Const SumColumn As String =" A"

Const ColumnIs As String =" B"

Const SumColumn As String = "A"
Const ColumnIs As String = "B"

Application.ScreenUpdating = False <登记/>
ActiveWindow.View = xlPageBreakPreview

Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview

PageStartAtRow = 1

PageStartAtRow = 1

有关i = 1至ActiveSheet.HPageBreaks.Count + 1

&NBSP;&NBSP;&NBSP; On Error Resume Next

    PageNumberRow = ActiveSheet.HPageBreaks（i）.Location.Row - 1

   如果Err.Number> 0然后

        '最后一页

        PageNumberRow = Cells（Rows.Count，SumColumn）.End（xlUp）.Row

   结束如果是
   

    Err.Clear

    On Error GoTo 0

   

    SumColumnIs = Application.WorksheetFunction.Sum（范围（QUOT;"&安培; SumColumn&安培;""&安培; PageStartAtRow&安培;"："&安培; SumColumn&安培;""&安培; PageNumberRow&安培;"" ;）））
    TotalSumColumn = TotalSumColumn + SumColumnIs

   单元格（PageNumberRow，ColumnIs）=" Sum =" &安培; SumColumnIs& "，总和=" &安培; TotalSumColumn

For i = 1 To ActiveSheet.HPageBreaks.Count + 1
    On Error Resume Next
    PageNumberRow = ActiveSheet.HPageBreaks(i).Location.Row - 1
    If Err.Number > 0 Then
        'Last page
        PageNumberRow = Cells(Rows.Count, SumColumn).End(xlUp).Row
    End If
   
    Err.Clear
    On Error GoTo 0
   
    SumColumnIs = Application.WorksheetFunction.Sum(Range("" & SumColumn & "" & PageStartAtRow & ":" & SumColumn & "" & PageNumberRow & ""))
    TotalSumColumn = TotalSumColumn + SumColumnIs
    Cells(PageNumberRow, ColumnIs) = "Sum= " & SumColumnIs & ", Total Sum = " & TotalSumColumn

    PageStartAtRow = PageNumberRow + 1

Next i

    PageStartAtRow = PageNumberRow + 1
Next i

ActiveWindow.View = xlNormalView

Application.ScreenUpdating = True

ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True

End Sub

End Sub

这篇关于如何在每页打印时在页脚中插入公式？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！