|
Pour tirer le meilleur parti de Microsoft Excel, vous devez apprendre comment utiliser les macros et la programmation VBA. Comme vous construisez des feuilles de calcul et les remplir avec des informations , il peut y avoir des moments où l'information que vous avez entrée n'est plus valide . Cela est particulièrement vrai pour les lignes d'information qui sont des dates antérieures. Un moyen rapide et facile de supprimer les lignes de données en fonction des dates du passé est de mettre en place une macro dans Excel. Choses que vous devez
Microsoft Excel
Basic Excel Expérience
Voir Plus Instructions
1 ouvrez votre classeur dans Excel. Si vous utilisez Excel 2007, vous devez afficher l'onglet « Développeur » si elle n'est pas déjà affichée . Pour ce faire, cliquez sur le bouton " Office " puis " Options Excel ". Cliquez sur « Afficher l'onglet Développeur » et cliquez sur «OK».
2 Créer un nouveau macro. Dans Excel 2007 , cliquez sur l'onglet Développeur puis "Macro ". Dans les versions antérieures , cliquez sur "Outils" dans la barre d'outils , puis "Macro ". Nommez la macro, " DeleteRowbyDate " puis cliquez sur " . ; Créer " l'éditeur Visual Basic apparaît
3 Copiez et collez le code suivant dans l'éditeur Visual Basic entre les lignes , sous DeleteRowbyDate () et End Sub :
. Dim x As Longfor x = 1 To Cells.SpecialCells ( xlCellTypeLastCell ) . cellules RowDebug.Print ( x , "B" ) . ValueIf CDate ( Cells (x, "B") ) < CDate ( " 12/29/2010 " ) ThenCells ( i ," B " ) . EntireRow.deleteEnd IfNext i
Sur la ligne où il est dit :« Si CDate ( Cells ( x , "B" ) ) < CDate ( " 12/29/2010 ") Then " , changer la date à quelque date qui est un jour supérieur à la date que vous souhaitez supprimer. Par exemple, si vous souhaitez supprimer toutes les lignes antérieures au 01 Janvier 2009, alors vous allez changer la ligne :
Si CDate ( Cells ( x , "B" ) ) < CDate ( " 01/01/09 ") Then
4 Fermez l'éditeur Visual Basic. Il enregistre automatiquement à la macro. Si vous souhaitez exécuter la macro et supprimer les lignes , revenir à " Macros " , sélectionnez la macro " DeleteRowsbyDate " et cliquez sur "Exécuter".
|
