Microsoft Visual Basic est un langage de programmation utilisé pour étendre les fonctionnalités de Microsoft Word et Excel. Codage projets Visual Basic qui exécutent des tâches essentielles Excel va vous apprendre comment utiliser Visual Basic pour augmenter votre productivité Excel. Créez les données

Ce projet résume les nombres dans une plage au-dessus de la cellule active , en entrant la somme dans la cellule active . Pour commencer ce projet, créer les données pour cela - les nombres à additionner . Dans une feuille de calcul Excel , entrez cinq numéros dans une colonne. Sélectionnez la première cellule vide en dessous de la colonne de chiffres .

Maintenant , créez le programme Visual Basic qui va résumer ces chiffres.
Entrez le code dans l'environnement de développement

pénétrer dans l'environnement de développement intégré Visual Basic (IDE ) en appuyant sur Alt- F11. Dans la fenêtre de code , saisissez cette fonction:

Sub Macro1 ()

Dim s Comme StringDim o Comme RangeDim P comme Plage

ensemble O = ActiveCell.Offset (-1 ) Set p = o.End ( xlUp ) Set q = Range ( o , p)

s = " = moyenne (" & q.Address & ") "

ActiveCell.Formula = s

End Sub

de code de programme revient à entrer manuellement le texte suivant dans la cellule que vous avez sélectionné plus tôt : " = somme ( ) , " référence à la colonne de numéros que vous avez entrée .

exécutez la macro en revenant à la feuille de calcul Excel , la sélection développeur> Macros , en sélectionnant Macro1 , et en appuyant sur le bouton Exécuter . Votre macro résume la colonne de nombres , en entrant le résultat dans la cellule actuellement activé . ( Si vous ne voyez pas l'onglet Développeur , exposer en sélectionnant le bouton Office dans le coin supérieur gauche de Excel , en choisissant Options Excel , et « Afficher l'onglet Développeur dans le ruban . " )
< Br > Project Two : Utilisez le formulaire

le deuxième projet s'appuie sur le premier en permettant à l' utilisateur de votre programme un choix de fonctions

Re -enter l'IDE de Visual Basic et sélectionnez . Insertion> UserForm . Faites glisser les contrôles suivants sur la forme de la boîte à outils : une zone de liste et un bouton. Appuyez sur F7 pour revenir à la vue de code , puis sélectionnez UserForm à partir de la liste déroulante de gauche dans la partie supérieure de la fenêtre de code, et d'initialiser à partir de la liste déroulante de droite. L'EDI crée la fonction Sub UserForm_Initialize (). Dans cette fonction , entrez ce code, ce qui ajoute à la zone de liste les noms des fonctions que l'utilisateur sélectionnera à partir de:

ListBox1.AddItem " somme" ListBox1.AddItem

" moyenne " Utiliser l' boîtes à gauche et à droite déroulant de la fenêtre de code une fois de plus , en choisissant CommandButton1 à partir de la gauche déroulante , et cliquez sur le menu déroulant à droite . L'EDI crée la fonction CommandButton1_Click empty () . Entrez le code suivant dans cette fonction , qui fera appel à l'original macro1 vous avez écrit avec la fonction que l'utilisateur choisit dans la liste :

Macro1 ( ListBox1.Value )

Modifier Macro1 à accepter une l'argument : clic droit sur le texte " Macro1 " et sélectionnez définition de naviguer à la définition Macro1 . Modifiez la ligne " Sub Macro1 ()" pour lire " Sub Macro1 ( fonction As String ) "

Maintenant que vous avez ajouté l'argument , modifier Macro1 à utiliser: changer = " = la moyenne de la déclaration ( "& q.Address &") "pour lire comme suit :

s =" = "& fonction &" ("& q.Address &") "
Ecrire le fonction qui charge le formulaire

Entrez cette nouvelle fonction ci-dessous macro1 :

Sous macro2 () UserForm1.ShowEnd Sous

Retour vers Excel (Alt- F11) et repositionner le curseur en dessous de la colonne de nombres . Afficher le userform en sélectionnant développeur> Macros et en sélectionnant Macro2 et Run . Lorsque le formulaire s'affiche , choisissez soit la somme ou la fonction de moyenne et appuyez sur le bouton . Votre programme entrera dans la formule dans la feuille de calcul. La formule résume les données de la colonne au-dessus de la cellule active.