U ovom ćemo članku stvoriti makro za brisanje podataka prethodnih datuma. Ova makro provjerava podatke, čuva današnje podatke i briše sve podatke iz prethodnih datuma.
Sirovi podaci u ovom primjeru sastoje se od datuma, naziva agenta i prodaje pojedinog agenta na taj određeni datum.
Da biste pokrenuli makro, kliknite gumb na listu "Glavni" ili ga čak možete pokrenuti pritiskom na tipke prečaca Alt + F8.
Makro će izbrisati sve zapise s prethodnim datumima. Dok pokrećemo ovaj makro 14. prosinca 2016., izlaz će odražavati zapise samo za taj datum.
Logično objašnjenje
U ovom primjeru stvorili smo makro "RemovePreviousData". Ovaj makro koristi obrnutu petlju FOR, znači da petlja ide u suprotnom smjeru. Petlja počinje od posljednjeg reda i kreće se prema gornjem retku.
Razlog za korištenje obrnute petlje je taj da smo, ako smo koristili normalnu FOR petlju, nakon svakog brisanja retka, zapisi prisutni u podacima bili pomaknuti prema gore, što bi rezultiralo promjenom pozicioniranja pri svakom brisanju retka. Stoga smo za suprotstavljanje koristili obrnutu petlju.
Koristili smo izraz Step zajedno s FOR petljom za petlje u obrnutom smjeru. FOR petlja počinje od zadnjeg reda i petlja prema 11th red.
Molimo slijedite dolje za kôd
Opcija Eksplicitni Sub RemovePreviousData () Dim Counter, LastRow As Integer 'Pronalaženje broja retka zadnjeg retka LastRow = ActiveSheet.Range ("A1"). SpecialCells (xlLastCell) .Row' Petlja od zadnjeg retka do 11. reda za Counter = LastRow To 11 Korak -1 Ako ćelije (brojač, 1) .Vrijednost <Datum zatim 'Brisanje redaka retka (brojač). Izbriši kraj ako sljedeći brojač završi pod
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte