Comment la somme de deux nombres à l'aide d'un objet Userform et de sortie dans un MsgBox?

J'ai créé un userform avec trois zones de texte.

La première zone de texte est le premier numéro, le deuxième pour l'ouverture de la deuxième numéro, et le dernier est le résultat.

J'ai créer un bouton nommé Calculer.

J'ai ce code pour textbox1:

Private Sub TextBox1_Change()
Dim a As Integer
a = Val(TextBox1.Text)
End Sub

et ce pour textbox2:

Private Sub TextBox2_Change()
Dim b As Integer
b = Val(TextBox2.Text)
End Sub

et j'ai un bouton qui affiche le résultat

Private Sub CommandButton1_Click()
Dim c As Integer
c = a + b
MsgBox (c)
End Sub

J'entrez 1 dans la zone de texte 1 et 2 pour textbox2, 1+2 3, mais dans le MsgBox j'
voir 0. Pourquoi est-ce, et comment puis-je résoudre ce problème?

  • Qu'avez-vous essayé? Simple recherche sur internet devrait vous dire comment écrire le code VBA pour ce faire, StackOverflow est plus de l'aide si vous êtes bloqué, pas quand vous n'avez pas tenté de code encore.
  • J'ai mis à jour le premier poste
InformationsquelleAutor Inside Man | 2012-05-28
  1. 3

    Je n'aurais pas affecter les valeurs des cases pour les variables (et à moins qu'ils sont des variables globales, la portée des variables la vie est la routine, donc la variable mourront après le sub() pour chaque est plus, de sorte que lorsque le bouton de commande de l'événement se produit, les variables ne sont plus en vie), il suffit de référencer directement. Il suffit d'ajouter ce pour votre bouton de commande et il devrait faire le travail.

    Private Sub CommandButton1_Click()

MsgBox(TextBox1.Value + TextBox2.Value)

End Sub
    • Bien sûr, vous pouvez ajouter des données de validation pour s'assurer qu'ils sont les chiffres 🙂 La grande chose au sujet des formes est la capacité de lire les valeurs des parties à tout moment ^^
    InformationsquelleAutor aevanko
  2. 1

    déclaration de variables doit être en général, il ne devrait pas être sous la...

    Dim a As Integer
Dim c As Double
Dim b As Integer

Private Sub CommandButton1_Click()
 c = a + b
 MsgBox (c)

End Sub

Private Sub TextBox1_Change()
a = Val(TextBox1.Text)
End Sub

Private Sub TextBox2_Change()
b = Val(TextBox2.Text)
End Sub
    InformationsquelleAutor Macklein reyes
  3. 1
    Private Sub Calculate_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(`TextBox1.Text`)
b = Val(`TextBox2.Text`)
c = a + b
MsgBox (c)
End Sub
    InformationsquelleAutor Gowtham
  4. 0
    Dim a As Double
Dim b As Double
Dim c As Double


Private Sub CommandButton1_Click()

a = Val(TextBox1.Text)
b = Val(TextBox2.Text)

c = a + b

MsgBox (c)

End Sub
    • Salut Amith, bienvenue pour SE! Lors de la publication des réponses, assurez-vous d'expliquer ce qui se passe et les avantages de votre solution. Aussi jetez un oeil à l'Édition de l'Aide pour voir comment formater correctement le code.
    InformationsquelleAutor Amith Gouda