V tomto článku vytvoríme makro na odstránenie údajov z predchádzajúcich dátumov. Toto makro skontroluje údaje, uchová dnešné údaje a vymaže všetky údaje z predchádzajúcich dátumov.
Pôvodné údaje v tomto prípade pozostávajú z dátumu, názvu agenta a predaja jednotlivého agenta v konkrétny dátum.
Makro spustíte kliknutím na tlačidlo na hlavnom hárku alebo ho môžete dokonca spustiť stlačením klávesových skratiek Alt + F8.
Makro odstráni všetky záznamy s predchádzajúcimi dátumami. Keď spustíme toto makro 14. decembra 2016, výstup bude odrážať záznamy iba pre daný dátum.
Logické vysvetlenie
V tomto prípade sme vytvorili makro „RemovePreviousData“. Toto makro používa reverznú slučku FOR, čo znamená, že slučka beží v opačnom smere. Smyčka začína od posledného radu a pohybuje sa smerom k hornému radu.
Dôvodom použitia reverznej slučky je to, že keby sme použili normálnu slučku FOR, potom by sa po každom vymazaní riadkov záznamy prítomné v dátach posunuli nahor, čo by viedlo k zmene umiestnenia pri každom vymazaní riadka. Aby sme tomu zabránili, použili sme reverznú slučku.
Na slučku v opačnom smere sme použili príkaz Step spolu so slučkou FOR. Slučka FOR začína od posledného radu a slučky smeruje k 11th riadok.
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Voľba Explicitná Sub OdstrániťPreviousData () Dim Counter, LastRow As Integer 'Nájdenie čísla riadku posledného riadku LastRow = ActiveSheet.Range ("A1"). SpecialCells (xlLastCell) .Row' Opakovanie z posledného riadka do 11. riadka Pre Counter = LastRow To 11 Krok -1 Ak bunky (počítadlo, 1). Hodnota <dátum potom „Odstránenie riadkov riadkov (počítadlo). Odstrániť koniec, ak nasledujúci koniec počítadla Sub
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku