If Excel? Du ønsker å plassere en celleinnhold i topp- eller bunnteksten på gjeldende regneark, kan følgende VBA-kode hjelpe deg. Vennligst gjør som følgende fremgangsmåte:
trenger aldri å bekymre deg for lange lange formler i Excel lenger! Kutools for Excel Auto Tekst kan legge alle formler til en gruppe som automatisk tekst, og frigjøre hjernen din! Klikk her for å vite Auto Text Klikk her for å få gratis prøve 1. Aktiv regnearket som du vil sette inn gjeter eller bunntekst med en celleverdi, og deretter holde nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2.Click Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Sette en spesifisert celleverdi i overskriften på et regneark
Sub HeaderFrom () 'Update 20140318Dim WorkRng Som RangeOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection.Range ("A1") Set WorkRng = Application.InputBox ("Range (enkelt celle)", xTitleId, WorkRng.Address, Type: = 8) Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range (" A1 "). ValueEnd Sub3. Deretter trykker F5 for å kjøre denne koden, vil en dialogboks sprette ut for å minne deg velge en celle som du ønsker å sette innholdet inn i spissen.
4. Og klikk deretter OK, har dette spesifisert celleverdien er satt inn i gjeldende regneark forlot spissen. Du kan se overskriften ved å klikke Fil > Skriv ut. Se skjermbilde:
Merknader:
1. Hvis du ønsker å bruke celleinnholdet som bunnteksten på det aktive regnearket, kan du bruke denne koden:
VBA-kode: sette en spesifisert celle verdi i bunnteksten på et regneark
Sub FooterFrom () 'Update 20140318Dim WorkRng Som RangeOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection.Range ("A1") Set WorkRng = Application.InputBox ("Range (enkelt celle)", xTitleId, WorkRng.Address, Type: = 8) Application.ActiveSheet. PageSetup.LeftFooter = WorkRng.Range ("A1"). ValueEnd SUB2. Du kan også bruke de ovennevnte koder for å sette inn celleverdien til høyre teksten /bunnteksten eller senter header /footer, bare erstatte LeftHeader /LeftFooter med RightHeader /RightFooter eller CenterHeader /CenterFooter i kodene.
Sett celleverdien i topp- eller bunnteksten av alle regneark med VBA-kode
Noen ganger ønsker du å sette inn topp- eller bunntekst med en valgt innholdet i cellen til alle regnearkene av åpnings arbeidsbok, med koden ovenfor, må du gjenta dem gang på gang. I dette tilfellet, kan følgende VBA-kode legge celleinnholdet til gjeter eller bunntekst for hele arbeidsboken på en gang.
Trenger aldri å bekymre deg for lange lange formler i Excel lenger! Kutools for Excel Auto Tekst kan legge alle formler til en gruppe som automatisk tekst, og frigjøre hjernen din! Klikk her for å vite Auto Text Klikk her for å få gratis prøve 1. Aktiv arbeidsboken din som du ønsker å sette gjeter eller bunntekst med en celleverdi, og deretter holde nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Sette en spesifisert celle verdi i bunnteksten på alle regnearkene
Sub AddFooterToAll () 'Update 20140318Dim WorkRng Som RangeOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection.Range ("A1") Set WorkRng = Application.InputBox ("Range (enkelt celle)", xTitleId, WorkRng.Address, Type: = 8) for hver ws I Application.ActiveWorkbook.Worksheets ws.PageSetup. LeftFooter = WorkRng.Range ("A1"). ValueNextEnd Sub3. Deretter trykker F5 for å kjøre denne koden, vil en dialogboks sprette ut for å minne deg velge en celle som du ønsker å sette innholdet i bunnteksten av hele arbeidsboken.
4. Og klikk deretter OK, dette har valgt celleverdien blitt lagt til alle regnearkene 'venstre bunntekst. Du kan se bunnteksten ved å klikke Fil > Skriv ut. Se skjermbilde:
Merknader:
1. Hvis du ønsker å bruke celleinnholdet som header av hele arbeidsboken, kan du bruke denne koden:
VBA-kode: sette en spesifisert celleverdi i header av alle regneark
Sub AddHeaderToAll () 'Update 20140318Dim WorkRng Som RangeOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection.Range ("A1") Set WorkRng = Application.InputBox ("Range (enkelt celle)", xTitleId, WorkRng.Address, Type: = 8) for hver ws I Application.ActiveWorkbook.Worksheets ws.PageSetup.LeftHeader = WorkRng.Range ("A1"). ValueNextEnd SUB2. Innbytter RightHeader /bunntekst eller CenterHeader /bunntekst for LeftHeader /bunn i kodene ovenfor hvis du vil at topp- eller bunnteksten ulikt posisjonert.
Sett filinformasjon inn header /footer med Kutools for Excel
Hvis du ønsker å sette inn filer informasjon til topp- eller bunntekst, for eksempel regneark /arbeidsbok navn, arbeidsbok bane og så videre, kan du bruke Kutools for Excel Sett arbeidsbok informasjonsverktøyet hvis du har installert Kutools for Excel.
Kutools for Excel, med mer enn 120 praktiske Excel-funksjoner, forbedre effektivitet og lagre din arbeidstid. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter gratis installasjon
Kutools for Excel, kan du gjøre som følger:
1. Klikk Enterprise > Arbeidsbok > Sett arbeidsbok Information. Se skjermbilde:
to. I Sett arbeidsbok Informasjon dialog, sjekk den informasjonen du trenger for å sette under Informasjons delen, og sjekk topp- eller bunnteksten som du liker
. Tips: Du kan sette inn informasjonen klokken tre plasseringen av topp- eller bunntekst: senter, venstre eller høyre .
tre. Klikk på OK. Deretter kan du gå til View > Sideoppsett for å se spissen.
Med Insert arbeidsbok informasjon, kan du også sette filinformasjon til en celle eller et celleområde. Klikk her for å vite mer om dette verktøyet.
Hvis du er interessert i dette Addi-in, klikk her for å laste ned 60-dagers gratis prøveperiode.
Du kanskje interessert i dette:
Greve etter farge
Kutools for Excel grev etter farge kan telle /sum /gjennomsnittlig celler basert på farge. Klikk her for å gratis nedlasting Kutools for Excel Klikk Enterprise > Telle etter farge.
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Anmeldelser
Hvis du ønsker å sette inn filer informasjon til topp- eller bunntekst, for eksempel regneark /arbeidsbok navn, arbeidsbok bane og så videre, kan du bruke Kutools for Excel Sett arbeidsbok informasjonsverktøyet hvis du har installert Kutools for Excel.
Kutools for Excel, med mer enn 120 praktiske Excel-funksjoner, forbedre effektivitet og lagre din arbeidstid. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter gratis installasjon
Kutools for Excel, kan du gjøre som følger:
1. Klikk Enterprise > Arbeidsbok > Sett arbeidsbok Information. Se skjermbilde:
to. I Sett arbeidsbok Informasjon dialog, sjekk den informasjonen du trenger for å sette under Informasjons delen, og sjekk topp- eller bunnteksten som du liker
. Tips: Du kan sette inn informasjonen klokken tre plasseringen av topp- eller bunntekst: senter, venstre eller høyre .
tre. Klikk på OK. Deretter kan du gå til View > Sideoppsett for å se spissen.
Med Insert arbeidsbok informasjon, kan du også sette filinformasjon til en celle eller et celleområde. Klikk her for å vite mer om dette verktøyet.
Hvis du er interessert i dette Addi-in, klikk her for å laste ned 60-dagers gratis prøveperiode.
Du kanskje interessert i dette:
Greve etter farge
Kutools for Excel grev etter farge kan telle /sum /gjennomsnittlig celler basert på farge. Klikk her for å gratis nedlasting Kutools for Excel Klikk Enterprise > Telle etter farge.
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Anmeldelser
Kutools for Excel grev etter farge kan telle /sum /gjennomsnittlig celler basert på farge. Klikk her for å gratis nedlasting Kutools for Excel Klikk Enterprise > Telle etter farge.
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Anmeldelser