|
Si vous travaillez avec Microsoft Office Excel souvent, il est bon de savoir comment utiliser la propriété " ActiveCell " pour ajouter , obtenir , et même de changer le format des données dans une feuille de calcul . Visual Basic pour Applications ( VBA) est un langage de programmation informatique utilisé pour automatiser des tâches de routine. Dans VBA, vous pouvez utiliser la propriété " ActiveCell " pour apporter des modifications à vos données. Avec VBA, vous pouvez gagner du temps en automatisant un processus au lieu d'effectuer la même tâche manuellement . Instructions
1 lancement de Microsoft Office Excel , cliquez sur l'onglet « Développeur » et cliquez sur « Visual Basic ».
2 Cliquez sur le menu "Insertion " et cliquez sur "Module "pour insérer un nouveau module de code. Tapez le code suivant pour commencer une nouvelle sous-procédure :
Private Sub usingActiveCell ()
3 Copiez et collez la commande suivante pour activer " Feuil1: "
< . p> Worksheets ( "Sheet1" ) Activer
4 Copiez et collez la commande suivante pour ajouter une valeur à « A1 », « A2 » et « A3 : "
Range ( "A1") . Sélectionnez
ActiveCell.Value = 3.5
Range (" A2 " ) . Sélectionnez
ActiveCell.Value = 10 & Range . ( "A3" ) Sélectionnez
ActiveCell.Value = 20
5 Copiez et collez la commande suivante pour mettre en évidence les cellules avec des données :
ActiveCell < br > Range ( Cells (ligne, CurrentRegion.Column ), des cellules (ligne, CurrentRegion.Columns.Count + CurrentRegion.Column - . . . . . 1) ) Interior.ColorIndex = 8
Range. ( Cells ( CurrentRegion.Row , de la colonne ), des cellules ( CurrentRegion.Rows.Count + CurrentRegion.Row - . . . . . 1, colonne ) ) . Interior.ColorIndex = 8
End With
< p> Application.ScreenUpdating = True
6 Copiez et collez la commande suivante pour afficher les valeurs ajoutée à travers la «fenêtre immédiate: " .
Range (" A1") Sélectionnez < br > Debug.Print ActiveCell.Value
Range (" A2 " ) . Sélectionnez
Debug.Print ActiveCell.Value
Range (" A3 " ) . Sélectionnez Photos Debug.Print ActiveCell.Value
7 Copiez et collez le texte suivant à la fin de la procédure sous :
End Sub
8 appuyez sur "Ctrl" et "G " pour afficher la fenêtre " immédiate " et appuyez sur "F5" pour exécuter la procédure .
|
