Projets Visual Basic

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.