Ja vēlaties ievietot noteiktu informāciju darblapas galvenē / kājenē, piemēram, faila nosaukumu / faila ceļu vai pašreizējo datumu vai lapas numuru, varat to izdarīt, izmantojot zemāk esošo kodu. Ja tā ir tikai viena darblapa, varat to izdarīt manuāli, bet, ja tā ir vairākas lapas vai visas darbgrāmatas lapas, kurām šī informācija ir jāaizpilda, varat to izdarīt, izmantojot vienkāršu vba makro / kodu.
Šis makro paraugs ievietos galveni/kājeni katrā aktīvās darbgrāmatas darblapā. Tas arī ievietos pilnu ceļu uz darbgrāmatu.
Opcija Explicit Sub InsertHeaderFooter () Dim wsAs darblapas lietojumprogramma.ScreenUpdating = False Katrs wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = “Uzņēmuma nosaukums:” .CenterHeader = “& & of the N” .RightHeader & “Printed “Path:“ & ActiveWorkbook.Path .CenterFooter = “Darbgrāmatas nosaukums: & F” .RightFooter = “Sheet: & A” Beigt ar nākamo ws Set ws = Nothing Application.ScreenUpdating = True End Sub
Lai kopētu šo kodu darbgrāmatā, nospiediet tastatūras taustiņu kombināciju Alt + F11. Pēc tam kreisajā pusē redzēsit Microsoft Excel objektus. Ar peles labo pogu noklikšķiniet un atlasiet Ievietot. Pēc tam noklikšķiniet uz moduļa un nokopējiet šo kodu koda logā labajā pusē.
Sadalīsim katru koda daļu -
Mēs sākam ar parasto Dim paziņojumu, kur mēs deklarējam mainīgos. Šajā gadījumā darblapai ir tikai viens mainīgais - ws. Pēc tam mēs atspējojam ekrāna atjaunināšanu.
Tagad cilpā FOR mēs cilpām cauri katrai darbgrāmatas darblapai, kurā ir makro. Un mēs iestatām katru parametru lapas iestatīšanā. & P, & N, & D, & T, & F un & A ir noteikti formāta kodi, kurus var lietot galvenēm un kājenēm. & P izdrukā lapas numuru. & N izdrukā kopējo dokumenta lappušu skaitu. & D izdrukā pašreizējo datumu. & T izdrukā pašreizējo laiku. & F izdrukā dokumenta nosaukumu un & A izdrukā darbgrāmatas cilnes nosaukumu.
Beigās mēs iestatījām darblapu uz neko un atbrīvojam objektu un iespējojam ekrāna atjaunināšanu.
Šeit ir 2 attēli. 1st viens parāda galveni un 2nd vienu kājeni pēc makro palaišanas.
Virsrakstā ir iezīme Uzņēmuma nosaukums. Nosaukums vēl nav ievadīts, jo neesam to saistījuši ar nevienu šūnu vai ievadījuši uzņēmuma nosaukuma tekstu. Ja ievadāt kaut ko kodā vai Excel lapā un atsaucaties uz to, tad vārds tiks uzņemts un aizpildīts šeit.
Lapa # no 0 parāda, ka pašlaik failā ir 0 lapas, jo šo kodu esam palaiduši tukšā failā. Ja palaižat šo kodu failā, kurā ir dati, tas parādīs lapas numuru.
Drukāts norāda datumu un laiku, kad makro tika izpildīts kopā ar tekstu “Drukāts”.
Kājenē etiķete Ceļš parādīs pašreizējā faila ceļu.
Mūsu faila nosaukums ir Book1.xlsx, kas pašlaik ir nesaglabāts fails. Līdz ar to etiķetei Ceļš netiek parādīts ceļš.
Lapas numurs ir aizpildīts kājenes labajā pusē.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē