Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Otvorte zošit v programe Excel . Ak používate program Excel 2007 , musíte zobraziť kartu " Vývojár " , ak to už nie je zobrazené . Ak chcete urobiť, kliknite na tlačidlo " Office " a potom " Možnosti programu Excel " . Kliknite na " Zobraziť Developer Tab " a kliknite na " OK " .
2
Vytvoriť nový makro . V programe Excel 2007 kliknite na kartu Vývojár a potom " makro " . V skorších verziách , kliknite na " Nástroje " v paneli nástrojov a potom " makro . " Názov makra " DeleteRowbyDate " a potom kliknite na tlačidlo " . ; Vytvoriť " sa zobrazí Visual Basic Editor
3
skopírujte a vložte nasledujúci kód do editora jazyka Visual Basic medzi riadkami , Sub DeleteRowbyDate ( ) a End Sub : Autor .
Dim x je LongFor x = 1 až Cells.SpecialCells ( xlCellTypeLastCell ) . RowDebug.Print Cells ( x , " B " ) . ValueIf CDATA ( Cells ( x , " B " ) ) < CDATA ( " 12/29/2010 " ) ThenCells ( i , " B " ) . EntireRow.deleteEnd IfNext aj
Na riadku , kde sa hovorí , " Ak CDATA ( Cells ( x , " B " ) ) < CDATA ( " 12/29/2010 " ) Then " , zmeňte dátum na akékoľvek dátum, ktorý je deň vyššia , než dátum , ktoré chcete odstrániť . Napríklad , ak chcete zmazať všetky riadky , ktoré sú staršie ako 1.1.2009 , potom sa zmení riadok :
Ak CDATA ( Cells ( x , " B " ) ) < CDATA ( " 01/01/09 " ) Potom
4
Zatvorte editore jazyka Visual Basic . Automaticky uloží do makra . Ak chcete spustiť makro a odstrániť riadky , vráťte sa do " makrá " , zvoľte " DeleteRowsbyDate " makro a kliknite na tlačidlo " Spustiť " .
Copyright © počítačové znalosti Všetky práva vyhradené