Dacă doriți să inserați anumite informații în antetul / subsolul foii de lucru, cum ar fi numele fișierului / calea fișierului sau data curentă sau numărul paginii, puteți face acest lucru folosind codul de mai jos. Dacă este doar o singură foaie de lucru, o puteți face manual, dar dacă este vorba de mai multe foi sau toate foile din registrul de lucru care necesită aceste informații pentru a fi populate, puteți face acest lucru folosind un cod / macro vba simplu.
Acest exemplu de macrocomandă va insera un antet / subsol în fiecare foaie de lucru din registrul de lucru activ. De asemenea, va insera calea completă către registrul de lucru.
Option Explicit Sub InsertHeaderFooter () Dim wsAs Worksheet Application.ScreenUpdating = False Each wsInThisWorkbook.Worksheets With ws.PageSetup .LeftHeader = “Company Name:” .CenterHeader = “Page & P of & N” .RightHeader = “Printed & D & T”. „Path:“ & ActiveWorkbook.Path .CenterFooter = „Workbook Name: & F” .RightFooter = „Sheet: & A” End With Next ws Set ws = Nothing Application.ScreenUpdating = True End Sub
Pentru a copia acest cod în registrul de lucru, apăsați Alt + F11 pe tastatură. Apoi, în partea stângă, veți vedea Microsoft Excel Objects. Faceți clic dreapta și selectați Inserați. Apoi faceți clic pe Modul și copiați acest cod în fereastra de cod din dreapta.
Să împărțim fiecare parte a codului -
Începem cu declarația obișnuită Dim în care declarăm variabilele. În acest caz, avem doar 1 variabilă - ws pentru foaia de lucru. Apoi dezactivăm actualizarea ecranului.
Acum, în bucla FOR, parcurgem fiecare foaie de lucru din registrul de lucru care conține macro-ul. Și configurăm fiecare parametru în Configurare pagină. & P, & N, & D, & T, & F și & A sunt anumite coduri de format care pot fi aplicate anteturilor și subsolurilor. & P tipărește numărul paginii. & N tipărește numărul total de pagini din document. & D tipărește data curentă. & T tipărește ora curentă. & F tipărește numele documentului și & A imprimă numele filei registrului de lucru.
La sfârșit setăm foaia de lucru la nimic și eliberăm obiectul și activăm actualizarea ecranului.
Iată 2 poze. 1Sf unul vă arată antetul și cel 2nd unul subsol după executarea macro-ului.
Antetul are eticheta Nume companie. Numele nu este încă introdus, deoarece nu l-am conectat la nicio celulă sau nu am introdus niciun text pentru numele companiei. Dacă introduceți ceva în cod sau în foaia Excel și îl faceți referire, atunci numele va fi preluat și completat aici.
Pagina # din 0 arată că în prezent avem 0 pagini în fișier, deoarece am rulat acest cod pe un fișier gol. Dacă rulați acest cod pe un fișier care conține date, acesta vă va arăta numărul paginii.
Imprimat vă oferă data și ora la care a fost rulată macroul împreună cu textul „Tipărit”.
În subsol, eticheta Calea vă va arăta calea fișierului curent.
Numele nostru de fișier este Book1.xlsx, care este în prezent un fișier nesalvat. Prin urmare, nu apare o cale pentru eticheta Cale.
Numărul foii este completat în dreapta subsolului.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail