V tem članku bomo ustvarili makro za brisanje podatkov prejšnjih datumov. Ta makro preveri podatke, hrani današnje podatke in izbriše vse podatke iz prejšnjih datumov.
Neobdelani podatki v tem primeru so sestavljeni iz datuma, imena zastopnika in prodaje posameznega zastopnika na določeni datum.
Če želite zagnati makro, kliknite gumb na listu »Glavni« ali pa ga lahko celo zaženete s pritiskom na bližnjice Alt + F8.
Makro bo izbrisal vse zapise s prejšnjimi datumi. Ko zaženemo ta makro 14. decembra 2016, bodo rezultati odražali zapise samo za ta datum.
Logična razlaga
V tem primeru smo ustvarili makro »RemovePreviousData«. Ta makro uporablja obratno zanko FOR, kar pomeni, da zanka teče v nasprotni smeri. Zanka se začne od zadnje vrstice in se premakne proti zgornji vrstici.
Razlog za uporabo povratne zanke je, da če bi uporabili običajno zanko FOR, bi se po vsakem brisanju vrstice zapisi, ki so prisotni v podatkih, premaknili navzgor, kar bi povzročilo spremembo pozicioniranja pri vsakem brisanju vrstice. Zato smo v nasprotju s tem uporabili obratno zanko.
Za zanko v obratni smeri smo uporabili stavek Step skupaj z zanko FOR. Zanka FOR se začne od zadnje vrstice in se zavije proti 11th vrstici.
Za kodo sledite spodaj
Možnost Explicit Sub RemovePreviousData () Dim Counter, LastRow As Integer 'Iskanje številke vrstice zadnje vrstice LastRow = ActiveSheet.Range ("A1"). SpecialCells (xlLastCell) .Row' Zank iz zadnje vrstice v 11. vrstico 11 Korak -1 Če celice (števec, 1) .Vrednost <Datum nato 'Brisanje vrstic vrstic (števec). Izbriši konec, če naslednji števec Konec pod
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte