Номер страницы в Excel, который обновляется при печати - PullRequest
Новая
       49

Номер страницы в Excel, который обновляется при печати

1 голос
/ 03 августа 2020

Есть ли способ поместить номер страницы в ячейку, которая обновляется при печати?

введите описание изображения здесь

Я установил строки 1-5, чтобы они повторялись на каждой странице. Однако я бы хотел, чтобы значение Page в ячейке F1 обновлялось на каждой странице при печати. Есть ли способ сделать это?

Спасибо.

1 Ответ

0 голосов
/ 03 августа 2020

Думаю, прямого способа увеличить значение ячейки при печати нет. Но вы можете использовать VBA, как использовать VBA? Вы можете поискать это. У меня вопрос, а где область распечатки? Я предполагаю, что область печати с того же листа.

Вот код: 

Sub forprint()

    Dim nPrint As Variant
    Dim i, n As Long
    On Error Resume Next

    n = Range("F1").Value
    nPrint = Application.InputBox("Number of Copy", "Print")
    If TypeName(nPrint) = "Boolean" Then Exit Sub
        If (nPrint = "") Or (Not IsNumeric(nPrint)) Or (nPrint < 1) Then
            MsgBox "Enter number only & minimum 1 copy", vbExclamation, "Wrong character or value!"
        Else
            Application.ScreenUpdating = False
            For i = 1 To nPrint
                ActiveSheet.Range("F1").Value = n + nPrint
                Sheets("Sheet1").PrintOut '<< change Sheet1 to your sheet with the printarea
            Next
        Application.ScreenUpdating = True
    End If

End Sub

Вставить модуль в окно VBA. Щелкните Insert >> Module , затем вставьте код в окно модуля, затем нажмите F5, чтобы запустить код.

...