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