Apprendre à utiliser Visual Basic pour Applications (VBA) dans Excel peut vous faire gagner du temps lors de la recherche des données dans une feuille de calcul. Microsoft Excel, une application de tableur inclus dans Microsoft Office, vous donne les outils pour analyser facilement les données en utilisant des formules pour les calculs complexes. Utilisez VBA pour automatiser les tâches de routine dans d`autres applications Microsoft Office Excel ou.
Ouvrez Microsoft Excel 2007, cliquez sur le "Développeur" onglet et sélectionnez "Visual Basic."
Type "Sous goToLastRow ()" et appuyez sur "Entrer" pour créer un nouveau sous.
Tapez le texte suivant pour créer des variables:
"Dim LastRow As Integer
Dim X As Integer"
Type "Pour X = 1 To 25
Gamme("UNE" &Amp X) .SelectActiveCell.Value = "Ajout de données à numéro de ligne: " &Amp X
Suivant X
Gamme("A26").Sélectionner
ActiveCell.Value = " "
Gamme("A27").Sélectionner
ActiveCell.Value = " "" de créer une boucle qui va ajouter des données sur les 25 premières lignes. Ajouter un "espace" pour les deux dernières rangées.
Type "LastRow = ActiveSheet.UsedRange.Rows.Count" pour obtenir la dernière rangée.
Type "MsgBox." La dernière ligne de cette feuille de calcul est la suivante: " & dernière rangée" pour afficher la dernière ligne à travers une boîte de message.
Type "End Sub" si nécessaire. Exécutez votre nouveau sous et vous verrez une boîte de message avec "La dernière ligne de cette feuille de calcul est: 27".
Conseils & Avertissements
- Votre nouveau sous devrait ressembler à ceci:
- "Sous goToLastRow ()
- Dim LastRow As Integer
- Dim X As Integer
- Pour X = 1 To 25
- Gamme("UNE" & X) .Select
- ActiveCell.Value = "Ajout de données à numéro de ligne: " & X
- Suivant X
- Gamme("A26").Sélectionner
- ActiveCell.Value = " "
- Gamme("A27").Sélectionner
- LastRow = ActiveSheet.UsedRange.Rows.Count
- MsgBox "La dernière ligne de cette feuille de calcul est la suivante: " & dernière rangée
- End Sub"
