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