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