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