如何在每页打印时在页脚中插入公式？

问题描述：

对所有专家来说，

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

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

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;&QUOT;&安培; SumColumn&安培;&QUOT;&QUOT;&安培; PageStartAtRow&安培;&QUOT;：&QUOT;&安培; SumColumn&安培;&QUOT;&QUOT;&安培; PageNumberRow&安培;&QUOT;&QUOT ;）））
    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

如何在每页打印时在页脚中插入公式？

相关推荐