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