|
Microsoft Excel est un tableur populaire qui fournit des outils utiles pour la saisie des données , de calcul, graphiques, tableaux croisés dynamiques et plus . Bien que Excel est un programme complexe , pleinement fonctionnel , il ne donne pas aux utilisateurs la possibilité de supprimer des lignes alternées d' une feuille de calcul par défaut. L'ajout de cette fonctionnalité nécessite utilisateurs de définir une tâche automatisée appelé une macro, puis exécutez cette macro sur les lignes de feuille de calcul qu'ils souhaitent changer . Instructions
1 Ouvrez Excel Visual Basic Editor . Avec votre feuille de calcul ouverte dans Excel , cliquez sur "Outils" dans le menu situé en haut de votre écran, puis sélectionnez "Macro " et " Visual Basic Editor. " Si vous utilisez Excel 2003 ou plus , passez à la prochaine étape .
utilisateurs d'Excel 2007 remarqueront que la commande précédente n'existe pas dans la version actuelle d'Excel , et qu'aucun outil d'édition de macro s'affichent par défaut . Activez l'accès à ces outils en cliquant sur le bouton Office dans le coin supérieur gauche de votre écran , puis en cliquant sur le bouton " Options Excel " en bas du menu. Situer la rubrique étiquetés " Meilleures options pour travailler avec Excel " dans la boîte de dialogue qui s'affiche, cochez la case à côté de la case "Afficher l'onglet Développeur dans le ruban" étiquette. Cliquez sur " OK". Sélectionnez l'onglet Développeur , puis cliquez sur le bouton " Visual Basic " .
2 Ajoutez le code macro. Cliquez sur " Insérer" dans le menu situé en haut de la fenêtre de l'éditeur Microsoft Visual Basic et choisissez " . Module " Copiez l'ensemble du code ci-dessous, puis collez-le dans ce module :
Sous Delete_Every_Other_Row ( ) 'Dimension variables.Y = False' Changer cette valeur True si vous voulez « supprimer les lignes 1 , 3, 5 , et ainsi de on.I = 1Régler xRng = Selection ' boucle une fois pour chaque ligne de la selection.For XCOUNTER = 1 pour xRng.Rows.Count «Si y est vrai , alors ... Si Y = True Then ' ... supprimer une rangée entière de cells.xRng.Cells ( I). EntireRow.Delete ' Sinon ... Else ' . .. incrément I par un afin que nous puissions faire défiler range.I = I + 1End Si «Si y est vrai , faire faux , si y est faux , faire True.Y = Non YNext xCounterEnd Sous
Hôtels 3 exécuter la macro . Retournez à votre feuille de calcul sans fermer l'éditeur Visual Basic. Mettez en surbrillance les lignes pour lesquelles alternatif rangée doit être supprimée. Dans Excel 2003 et versions antérieures , cliquez sur " Outils" option de menu, puis sélectionnez "Macro" , suivie par l'option "Macros " . Dans Excel 2007 , sélectionnez l'onglet Développeur , puis cliquez sur " Macros ". Pour exécuter la macro en deux versions , sélectionnez la macro intitulée « Delete_Every_Other_Row " , puis cliquez sur "Exécuter". Chaque ligne de numéro pair de votre feuille de calcul supprime .
|
