Kopiering sidehoveder og sidefødder

Excel kan du angive sidehoveder og sidefødder til dit regneark. Du kan kopiere disse sidehoveder og sidefødder fra et regneark til et andet. Hvis du gør det inden for en projektmappe er forholdsvis let, men at gøre det fra den ene projektmappe til en anden kan være mere skræmmende.

Hvis sidehoved og sidefod er en du bruger en del i nye projektmapper, og din største bekymring er at have sidehoved og sidefod til rådighed i de nye projektmapper (ikke i eksisterende projektmapper), så den bedste løsning ville være at oprette en skabelon projektmappe . Bare oprette en projektmappe som ønsket, herunder specifikation af sidehoveder og sidefødder. Gem derefter projektmappen som en Excel-skabelon (XLT format). Du kan derefter oprette dine projektmapper baseret på denne skabelon, og det vil have sidehoveder og sidefødder, du ønsker.

En måde at kopiere sidehoved og sidefod fra et regneark i en projektmappe til et regneark i en anden er at bruge de traditionelle redigering metoder til at kopiere og indsætte. Med andre ord, kan du vælge den header materiale, du vil kopiere, skal du trykke på Ctrl + C, vise header i mål regnearket, og tryk derefter på Ctrl + V. Ulempen ved denne fremgangsmåde er, at den kan involvere et par trin. Efter alt, er der tre sektioner (venstre, center, og højre) for hver header og tre for hver footer. Det betyder, at du skal gøre seks kopiere og indsætte operationer for at kopiere den komplette sidehoved og sidefod.

En anden måde at kopiere sidehoveder og sidefødder fra en projektmappe til en anden indebærer anvendelse af indfødte Excel kommandoer at lave kopier af regneark. Følg disse trin:

  1. Åbn målet projektmappe; den, som du ønsker, at sidehoveder og sidefødder kopieres.
  2. Åbn den projektmappe, er kilden til din header og footer, og sørg for det ønskede regneark vises.
  3. Vælg Flyt eller Kopiér Sheet i menuen Rediger. Excel viser Flyt eller Kopier i dialogboksen. (Se figur 1.)

    Kopiering sidehoveder og sidefødder

    Figur 1. Flyt eller Kopier i dialogboksen.

  4. Brug af Sådan bestiller rullelisten Vælg målet projektmappe, du åbnede i trin 1.
  5. Brug af Før Sheet område, angive, hvor du vil have arket kopieres.
  6. Sørg for, at oprette en kopi er markeret.
  7. Klik på OK. Den regnearket kopieres til målet projektmappe.
  8. Luk kildeprojektmappen fra trin 2.
  9. I målet projektmappe, vises det regneark, du lige har kopieret.
  10. På fanen nederst i vinduet, skal du højreklikke og vælge Marker alle ark. Alle regneark er nu valgt.
  11. Vis dialogboksen Sideopsætning. (Vælg Sideopsætning i menuen Filer.)
  12. Sørg for, at fanen Sidehoved / sidefod er valgt. (Se figur 2.)

    Kopiering sidehoveder og sidefødder

    Figur 2. sidehoved / sidefod fanen i dialogboksen Sideopsætning.

  13. Brug sidehoved og sidefod rullelister, skal du vælge sidehoved og sidefod, der anvendes i det regneark, du lige har kopieret.
  14. Klik på OK.
  15. Slet det regneark, du kopierede i trin 1 til 7.

Hvad du hovedsageligt gjorde, er at kopiere regnearket indeholder sidehoved og sidefod du ønsker, så du kopierede at sidehoved og sidefod til andre regneark i projektmappen, så du slettede den oprindelige regneark.

Mens disse trin fungerer fint, kan de være trættende, hvis du skal kopiere sidehoved og sidefod til en række forskellige projektmapper. I dette tilfælde ved hjælp af en makro til at gøre kopiering er sundere tilgang. Følgende to makroer kan bruges til at kopiere sidehoveder og sidefødder i et enkelt trin. Alt du skal gøre er at vise kildeprojektarket og bruge GetHeaders makro. Denne makro kopierer sidehoved og sidefod til string variabler. Du kan derefter få vist, til gengæld hvert regneark, som du vil have den samme sidehoved og sidefod og køre DoHeaders makro.

Option Explicit

Dim strHeadLeft As String
Dim strHeadCenter As String
Dim strHeadRight As String
Dim strFootLeft As String
Dim strFootCenter As String
Dim strFootRight As String
Dim bGotHeaders As Boolean

Sub GetHeaders ()
Med ActiveSheet.PageSetup
strHeadLeft = .LeftHeader
strHeadCenter = .CenterHeader
strHeadRight = .RightHeader
strFootLeft = .LeftFooter
strFootCenter = .CenterFooter
strFootRight = .RightFooter
bGotHeaders = True
End med
End Sub

Sub DoHeaders ()
Hvis bGotHeaders Derefter
Med ActiveSheet.PageSetup
.LeftHeader = StrHeadLeft
.CenterHeader = StrHeadCenter
.RightHeader = StrHeadRight
.LeftFooter = StrFootLeft
.CenterFooter = StrFootCenter
.RightFooter = StrFootRight
End med
Andet
MsgBox "Vælg arket med" _
& "Headers, du vil kopiere," _
& VbCrLf & "derefter køre" GetHeaders '"_
vbExclamation, "No Headers hukommelse"
End hvis
End Sub

Du kan endda tildele makroer til værktøjslinjeknapper, hvis det ønskes, hvilket kan gøre dem endnu mere handy til kopiering sidehoveder og sidefødder.

Hvis du har en hel regneark og projektmapper, hvor du vil sidehoveder og sidefødder kopieres, er der en anden makro tilgang, du kan bruge. Følgende makro vil kopiere sidehoveder og sidefødder fra det aktive regneark til alle andre regneark i alle andre åbne projektmapper.

Sub CopyHeaderFooter ()
Dim PS Som PageSetup
Dim WB som Workbook
Dim WS som arbejdsark

Set PS = ActiveSheet.PageSetup
For hver WB I projektmapper
For hver WS I WB.Worksheets
Med WS.PageSetup
.LeftHeader = PS.LeftHeader
.CenterHeader = PS.CenterHeader
.RightHeader = PS.RightHeader
.LeftFooter = PS.LeftFooter
.CenterFooter = PS.CenterFooter
.RightFooter = PS.RightFooter
End med
Næste
Næste
End Sub

Med andre ord, hvis du vil kopiere sidehoveder og sidefødder fra det aktuelle regneark til 150 andre regneark spredt over 15 forskellige projektmapper, alt du behøver at gøre er at åbne de 15 projektmapper på samme tid, vise kilden regneark, og køre makroen .

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (2696) gælder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til båndet grænseflade Excel (Excel 2007 og nyere) her: Kopiering sidehoveder og sidefødder.


© 2020 Zajacperrone.com | Contact us: webmaster# zajacperrone.com