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