Les partenaires publicitaires:

Comment utiliser activecell dans Excel en utilisant un VBA

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 les 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. 1

    Lancez Microsoft Office Excel, cliquez sur l'onglet "Developer", et cliquez sur "Visual Basic."

  2. 2

    Cliquez sur le menu "Insertion" et cliquez sur "Module" pour insérer un nouveau module de code. Tapez le code suivant pour démarrer une nouvelle procédure sous:

    Private Sub usingActiveCell ()

  3. 3

    Copiez et collez le ci-dessous pour activer "Sheet1:"

    Worksheets ("Sheet1"). Activez

  4. 4

    Copiez et collez le suivant 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. 5

    Copiez et collez le suivant pour mettre en évidence les cellules avec des données:

    Avec ActiveCell

    Gamme (cellules (.Row, .CurrentRegion.Column), des cellules (.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)). Interior.ColorIndex = 8

    Gamme (cellules (.CurrentRegion.Row, .Column), des cellules (+ .CurrentRegion.Rows.Count .CurrentRegion.Row - 1, .Column)). Interior.ColorIndex = 8

    End With

    Application.ScreenUpdating = True

  6. 6


    Copiez et collez le texte suivant pour afficher les valeurs ajoutées par la «fenêtre immédiate:"

    Range ("A1"). Sélectionnez

    Debug.Print ActiveCell.Value

    Range ("A2"). Sélectionnez

    Debug.Print ActiveCell.Value

    Range ("A3"). Sélectionnez

    Debug.Print ActiveCell.Value

  7. 7

    Copiez et collez le suivant pour mettre fin à la procédure de sous:

    End Sub

  8. 8

    Appuyez sur "Ctrl" et "G" pour afficher la "Fenêtre immédiate" et appuyez sur "F5" pour exécuter la procédure.

» » » » Comment utiliser activecell dans Excel en utilisant un VBA