Ако желите да уметнете одређене податке у заглавље / подножје радног листа, попут назива датотеке / путање датотеке или тренутног датума или броја странице, то можете учинити помоћу доњег кода. Ако је то само један радни лист, то можете учинити ручно, али ако је у питању више листова или сви листови у радној свесци којима су потребне ове информације за попуњавање, то можете учинити помоћу једноставног вба макроа / кода.
Овај огледни макро ће уметнути заглавље/подножје у сваки радни лист у активној радној свесци. Такође ће убацити комплетан пут до радне свеске.
Опција Експлицитни Суб ИнсертХеадерФоотер () Дим всАс Ворксхеет Апплицатион.СцреенУпдатинг = Фалсе Сваки всИнТхисВоркбоок.Ворксхеетс Са вс.ПагеСетуп .ЛефтХеадер = “Назив компаније:” .ЦентерХеадер = “Страница & П оф & Н”. „Путања:„ & АцтивеВоркбоок.Патх .ЦентерФоотер = „Назив радне свеске: & Ф“ .РигхтФоотер = „Лист: & А“ Заврши са следећим вс Постави вс = Ништа Апплицатион.СцреенУпдатинг = Труе Енд Суб
Да бисте копирали овај код у радну свеску, притисните Алт + Ф11 на тастатури. Затим ћете са леве стране видети Мицрософт Екцел објекте. Кликните десним тастером миша и изаберите Уметни. Затим кликните на Модул и копирајте овај код у кодни прозор са десне стране.
Хајде да разбијемо сваки део кода -
Почињемо са уобичајеном наредбом Дим где декларишемо променљиве. У овом случају имамо само 1 променљиву - вс за радни лист. Затим онемогућујемо ажурирање екрана.
Сада, у ФОР петљи, пролазимо кроз сваки радни лист у радној свесци који садржи макро. Сваки параметар постављамо у Подешавању странице. & П, & Н, & Д, & Т, & Ф и & А су одређени кодови формата који се могу применити на заглавља и подножја. & П штампа број странице. & Н штампа укупан број страница у документу. & Д штампа тренутни датум. & Т штампа тренутно време. & Ф штампа назив документа и & А штампа назив картице радне свеске.
На крају смо поставили радни лист на ништа и ослободили објект и омогућили ажурирање екрана.
Ево 2 слике. 1ст један вам приказује заглавље, а 2нд једно подножје након покретања макронаредбе.
Заглавље има ознаку Назив предузећа. Назив још није унесен јер га нисмо повезали ни са једном ћелијом нити унели у било који текст за назив компаније. Ако унесете било шта у код или у Екцел листу и на то се позовете, тада ће се име покупити и попунити овде.
Страница бр. 0 од 0 показује да тренутно имамо 0 страница у датотеци, будући да смо овај код покренули на празној датотеци. Ако покренете овај код у датотеци која садржи податке, показаће вам се број странице.
Штампано даје датум и време покретања макроа заједно са текстом „Штампано“.
У подножју, ознака путање ће вам показати путању тренутне датотеке.
Наше име је Боок1.клск, што је тренутно несачувана датотека. Дакле, за ознаку Патх не приказује се путања.
Број листа је попуњен десно од подножја.
Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште