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