|
Faire champs de formulaire calculer automatiquement dans votre Visual Basic pour Applications ( VBA) programme peut éliminer des étapes supplémentaires pour l'utilisateur. VBA peut être utilisé dans toutes les applications Microsoft Office , comme Excel . Vous pouvez créer des champs de formulaire en utilisant les contrôles de zone de texte sur un formulaire utilisateur dans Excel et leur faire calculer automatiquement en utilisant l'événement "Modifier" pour chacun des contrôles . L'événement "Modifier" sera exécuté lorsque la valeur dans les champs sont modifiés par l'utilisateur. Choses que vous devez
Microsoft Office Excel
Voir Plus Instructions
1 lancement de Microsoft Office Excel, cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer l' fenêtre de l'éditeur VB . Cliquez sur le menu "Insertion" et cliquez sur " User Form " pour insérer une nouvelle forme . Cliquez sur " TextBox " dans la fenêtre " Boîte à outils " et cliquez sur le formulaire pour ajouter un nouveau contrôle de zone de texte. Ajoutez deux zones de texte en utilisant la même technique pour créer trois champs de formulaire de zone de texte .
2 un clic droit sur la première zone de texte et cliquez sur " Afficher le code " pour ouvrir l'éditeur Visual Basic . Appuyez sur "Ctrl" et "A" pour sélectionner le code par défaut et appuyez sur Copier et coller le code suivant pour faire un calcul à chaque fois qu'un nouveau numéro est inscrit dans le premier champ de formulaire et afficher le résultat dans le troisième champ de formulaire " Supprimer". : Photos résultat As DoublePrivate Sous TextBox1_Change () Dim txtBoxTwo Comme VariantMe.TextBox2.SetFocustxtBoxTwo = Me.TextBox2.Textresult = txtBoxTwo + Me.TextBox1.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sous
< br > Hôtels 3 Copiez et collez le code suivant exécuter ce code et de faire un calcul et affiche le résultat dans le troisième champ de formulaire à chaque fois le deuxième champ de formulaire est modifié :
TextBox2_Change Private Sub () txtBoxOne As VariantMe.TextBox1.SetFocustxtBoxOne = Me.TextBox1.Textresult = txtBoxOne + Me.TextBox2.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sous
4 Double -cliquez sur " UserForm1 " de l'objet fenêtre de l'Explorateur , puis appuyez sur la touche "F5 " pour exécuter le programme . Entrer un numéro dans les premier et second champs du formulaire pour calculer automatiquement et affiche le résultat dans le troisième champ de formulaire.
|
