Combien de temps pouvez-vous consacrer à l'apprentissage de ce type de code informatique : « Selection.Sort Key1 : = Range (" A5 " ) , Order1 : = xlAscending ? " Vous pouvez vous sentir la vie est trop courte pour passer autant de temps à faire une tâche simple. Heureusement, Visual Basic offre un moyen plus facile . Pour de nombreuses tâches , il vous suffit de créer une macro , ce qui est une procédure automatisée créé à partir d' une procédure manuelle . Les macros sont utiles parce que vous suffit d'appuyer sur un bouton et d'enregistrer les étapes nécessaires pour accomplir la tâche sur la feuille de calcul . L'interprète Visual Basic génère automatiquement le code . L'ordinateur prend en charge la syntaxe des arcanes de sorte que vous n'avez pas besoin de s'inquiéter à ce sujet . Chaque fois que vous voulez exécuter la procédure , il suffit de lancer la macro. Instructions
1
créer des données pour un " tri" macro. Entrez les données suivantes dans les cellules A1 à A5 : " Mancini , " " Talbot ", " Simons ", " Chen " et " Ito "
2
Démarrer l'enregistrement de la macro en sélectionnant «Outils» . "Macro ". Ensuite, sélectionnez " Enregistrer une macro " et appuyez sur "OK".
3
Déplacez le curseur sur la cellule A1 en appuyant sur "Ctrl" + "Home". Sélectionnez la colonne des noms en maintenant la touche "Shift" et la touche " Ctrl" avec la flèche vers le bas . Appuyez sur le "Tri croissant " touche ( le bouton sur le menu du haut étiqueté "AZ" avec une flèche vers le bas ) . Arrêter l'enregistrement de la macro en appuyant sur le carré bleu sur la fenêtre «Stop Rec " .
4
examinent votre code généré par ordinateur en maintenant la touche "Alt " et appuyez sur " F8 ". Ensuite, sélectionnez le nom de votre macro , qui devrait être " Macro1 " si l'ordinateur a choisi le nom automatiquement . Appuyez sur " Modifier". Assurez-vous que l'ordinateur a généré le code suivant :
Sub Macro1 () '' Macro1 Macro ' Macro enregistrée le 4/29/2010 par w ' Range
' ("A1 : A6" ) . SelectSelection.Sort Key1 : = Range (" A1") , Order1 : = xlAscending , Header : = xlGuess , _OrderCustom : = 1, MatchCase : = False , Orientation: = xlTopToBottomActiveWindow.SmallScroll Down: = 69End Sous