V tomto článku vytvoříme makro pro odstranění dat předchozích dat. Toto makro zkontroluje data, uchová dnešní data a odstraní všechna data z předchozích dat.
Nezpracovaná data v tomto příkladu se skládají z data, jména agenta a prodeje jednotlivého agenta k danému datu.
Chcete -li spustit makro, klikněte na tlačítko na listu „Hlavní“ nebo jej můžete dokonce spustit stisknutím klávesových zkratek Alt + F8.
Makro odstraní všechny záznamy s předchozími daty. Když toto makro spustíme 14. prosince 2016, výstup bude odrážet záznamy pouze pro dané datum.
Logické vysvětlení
V tomto příkladu jsme vytvořili makro „RemovePreviousData“. Toto makro používá obrácenou smyčku FOR, což znamená, že smyčka běží v opačném směru. Smyčka začíná od poslední řady a pohybuje se směrem k horní řadě.
Důvodem pro použití zpětné smyčky je, že kdybychom použili normální smyčku FOR, pak by se po každém vymazání řádku záznamy přítomné v datech posunuly nahoru, což by vedlo ke změně polohy při každém vymazání řádku. Abychom tomu zabránili, použili jsme zpětnou smyčku.
Pro smyčku v opačném směru jsme použili příkaz Step společně se smyčkou FOR. Smyčka FOR začíná od posledního řádku a pohybuje se směrem k 11th řádek.
Pro kód prosím postupujte níže
Možnost Explicitní Sub OdebratPreviousData () Dim Counter, LastRow As Integer 'Hledání čísla řádku posledního řádku LastRow = ActiveSheet.Range ("A1"). SpecialCells (xlLastCell) .Row' Smyčka z posledního řádku do 11. řádku Pro Counter = LastRow To 11 Krok -1 Pokud buňky (čítač, 1). Hodnota <Datum poté 'Odstranění řádků (čítač). Odstranit konec, pokud další konec čítače Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail