Kopiering av topp- og bunntekst

October 4  by Eliza

Excel lar deg spesifisere topp- og bunntekst for regnearkene. Det kan være lurt å kopiere disse topp- og bunntekst fra ett regneark til en annen. Gjør du det i en arbeidsbok er relativt lett, men å gjøre det fra en arbeidsbok til en annen kan være mer skremmende.

Hvis topp- og bunnteksten er en du bruker ganske mye i nye arbeidsbøker, og ditt hovedanliggende er å ha topp- og bunntekst er tilgjengelig i de nye arbeidsbøker (ikke i eksisterende arbeidsbøker), så det beste ville være å lage en mal arbeidsbok . Bare sette opp en arbeidsbok som ønsket, herunder spesifikasjon av topp- og bunntekst. Deretter lagrer arbeidsboken som en Excel-mal (XLT format). Du kan deretter lage dine arbeidsbøker basert på denne malen, og det vil ha topp- og bunnteksten du ønsker.

En måte å kopiere topp- og bunntekst fra et regneark i en arbeidsbok til et regneark i en annen er å bruke de tradisjonelle redigering metoder for å kopiere og lime. Med andre ord, kan du velge header materialet du ønsker å kopiere, trykker Ctrl + C, vise header i mål regnearket, og trykk deretter Ctrl + V. Ulempen med denne tilnærmingen er at det kan innebære ganske mange trinn. Tross alt, er det tre seksjoner (venstre, midtre og høyre) for hver header og tre for hver bunntekst. Dette betyr at du må gjøre seks kopiere og lime operasjoner for å kopiere hele topp- og bunntekst.

En annen måte å kopiere topp- og bunntekst fra en arbeidsbok til en annen innebærer bruk av innfødte Excel-kommandoer for å lage kopier av regneark. Følg denne fremgangsmåten:

  1. Åpne målet arbeidsbok; den ene som du vil topp- og bunnteksten kopiert.
  2. Åpne arbeidsboken som er kilden til topp- og bunntekst, og sørge for at den ønskede regnearket vises.
  3. Velg Flytt eller Kopier Sheet fra Rediger-menyen. Excel viser dialogboksen Kopier Flytt eller. (Se figur 1)

    Kopiering av topp- og bunntekst

    Figur 1. Kopier dialogboksen Flytt eller.

  4. Bruke å reservere nedtrekkslisten, velg målet arbeidsbok du åpnet i trinn 1.
  5. Bruke Før Sheet området, indikerer hvor du vil arket kopiert.
  6. Sørg for at den oppretter en kopi er merket.
  7. Klikk på OK. Regnearket er kopiert til målet arbeidsbok.
  8. Lukk kilde arbeidsbok fra trinn 2.
  9. I målet arbeidsbok, vise regnearket du bare kopiert.
  10. I kategorien området nederst i vinduet, høyreklikk og velg Merk alle arkene. Alle regnearkene er nå valgt.
  11. Vis dialogboksen Sideoppsett. (Velg Sideoppsett fra Fil-menyen.)
  12. Pass på at topp- / bunntekster er valgt. (Se figur 2)

    Kopiering av topp- og bunntekst

    Figur 2. Kategorien topp- / bunntekst i dialogboksen Sideoppsett.

  13. Bruke topp- og bunntekst nedtrekkslistene velger topp- og bunnteksten som brukes i regnearket du bare kopiert.
  14. Klikk på OK.
  15. Slett regnearket du kopierte i trinn 1 til 7.

Hva du egentlig gjorde er å kopiere regnearket som inneholder topp- og bunnteksten du vil, og du kopierte at topp- og bunntekst til andre regneark i arbeidsboken, så du slettet det opprinnelige regnearket.

Mens disse trinnene fungere fint, de kan være kjedelig hvis du trenger å kopiere topp- og bunntekst til en rekke ulike arbeidsbøker. I dette tilfellet, ved hjelp av en makro gjøre kopieringen er saner tilnærming. Følgende to makroer kan brukes til å kopiere topp- og bunntekst i ett enkelt trinn. Alt du trenger å gjøre er å vise kilden regneark og bruke GetHeaders makro. Denne makroen kopierer topp- og bunntekst informasjon til strengvariabler. Du kan deretter vise i sin tur hvert regneark som du vil ha den samme topp- og bunnteksten og kjør 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
Avslutt med
End Sub

Sub DoHeaders ()
Hvis bGotHeaders Then
Med ActiveSheet.PageSetup
.LeftHeader = StrHeadLeft
.CenterHeader = StrHeadCenter
.RightHeader = StrHeadRight
.LeftFooter = StrFootLeft
.CenterFooter = StrFootCenter
.RightFooter = StrFootRight
Avslutt med
Else
MsgBox "Velg arket med" _
& "Overskrifter du vil kopiere," _
& VbCrLf & "kjør 'GetHeaders'", _
vbExclamation, "No hoder i minne"
End If
End Sub

Du kan også tilordne makroer til menyknappene, hvis ønskelig, noe som kan gjøre dem enda smidigere for kopiering av topp- og bunntekst.

Hvis du har ganske mange regneark og arbeidsbøker som du vil at de topp- og bunntekst kopiert, det er en annen makro tilnærming du kan bruke. Følgende makro vil kopiere topp- og bunntekst fra det aktive regnearket til alle andre regneark i alle andre åpne arbeidsbøker.

Sub CopyHeaderFooter ()
Dim PS Som Setup
Dim WB Som arbeidsbok
Dim WS Som regneark

Set PS = ActiveSheet.PageSetup
For Hver WB I arbeidsbøker
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
Avslutt med
Neste
Neste
End Sub

Med andre ord, hvis du vil kopiere topp- og bunntekst fra gjeldende regneark til 150 andre regneark spredt over 15 forskjellige arbeidsbøker, alt du trenger å gjøre er å åpne de 15 arbeidsbøker samtidig, vise kilden regneark, og kjøre makroen .

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2696) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Kopiere topp- og bunntekst.