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
Notes:
3. appuie sur le F5 clé pour exécuter le code. Puis le Aperçu la fenêtre apparaît, veuillez cliquer sur le Commercial 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 Commercial bouton quatre fois pour terminer toute l'impression.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
