Comment appliquer différents en-têtes ou pieds de page sur chaque page d'une feuille de calcul Excel?

Par défaut, lors de l'insertion d'un en-tête ou d'un pied de page dans une feuille de calcul, le contenu de l'en-tête ou du pied de page sera appliqué à toutes les pages. Pour de nombreuses personnes, différentes pages peuvent avoir des contenus différents dans leurs feuilles de calcul. Et ils ont tendance à distinguer ces pages avec le contenu de l'en-tête ou du pied de page après l'impression de la feuille de calcul. Comment appliquer différents en-têtes ou pieds de page sur chaque page d'une feuille de calcul? La méthode de cet article peut vous aider.

Appliquer différents en-têtes ou pieds de page sur chaque page avec le code VBA

Appliquer différents en-têtes ou pieds de page sur chaque page avec le code VBA

Le code VBA suivant peut vous aider à appliquer différents en-têtes ou pieds de page sur chaque page d'une feuille de calcul. Veuillez faire comme suit.

1. appuie sur le autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour Applicationfenêtre de s.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans le Code la fenêtre. Voir la capture d'écran:

Code VBA: appliquez différents en-têtes sur chaque page dans Excel

Sub DifferentHeaderFooter()
    Dim ws As Worksheet
    Dim vLeft As Variant, vRight As Variant, xRg As Variant
    Set ws = ActiveSheet
    On Error Resume Next
    vLeft = Array("First page", "Second page", "Third page", "fourth page")
    xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")

    Application.ScreenUpdating = False
    For i = 0 To UBound(vLeft)
        With ws.PageSetup
        .PrintArea = xRg(i)
        .LeftHeader = vLeft(i)
        End With
        ws.PrintPreview
    Next i
    Application.ScreenUpdating = True
    ws.PageSetup.PrintArea = ""
End Sub

Florales:

3. appuie sur le F5 clé pour exécuter le code. Puis le Aperçu la fenêtre apparaît, veuillez cliquer sur le Imprimé pour lancer l'impression des pages avec différents en-têtes ou pieds de page.

Notes: S'il y a 4 pages imprimées spécifiées dans la feuille de calcul, vous devez cliquer sur le Imprimé bouton quatre fois pour terminer toute l'impression.