Wie die Summe von zwei zahlen mit Hilfe einer Userform und der Ausgabe in einer MsgBox?

Habe ich eine userform mit drei Textboxen.

Ersten Textfeld ist für die erste Zahl, die zweite für die Eingabe der zweiten Zahl ist, und die Letzte ist die Folge.

Habe ich eine Schaltfläche erstellen, die mit Namen Berechnen.

Ich habe diesen code für textbox1:

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

und diese für textbox2:

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

und ich habe einen button, welcher zeigt das Ergebnis

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

Ich geben Sie 1 für textbox1 und 2 für "textbox2", 1+2 wird 3, aber in der MsgBox ich
siehe 0. Warum ist das so und wie kann ich es beheben?

Was haben Sie versucht? Einfache Suche im internet sollte Ihnen sagen, wie zu schreiben VBA-code, dies zu tun - StackOverflow ist mehr Hilfe, wenn Sie stecken bleiben, nicht, wenn Sie noch nicht versucht, code es noch nicht.
Ich habe aktualisiert die erste post

InformationsquelleAutor Inside Man | 2012-05-28

  1. 3

    Ich würde nicht weisen die Werte der Boxen zu Variablen (und es sei denn, Sie sind Globale Variablen, die den Bereich der Variablen Leben ist die routine, so dass die variable die nach der sub() für jedes ist vorbei, so dass, wenn Sie die Befehl-Taste-Ereignis Eintritt, werden die Variablen nicht mehr am Leben), nur verweisen Sie Sie direkt. Fügen Sie einfach diesen für Ihre Befehlsschaltfläche, und Sie sollte den job tun.

    Private Sub CommandButton1_Click()

MsgBox(TextBox1.Value + TextBox2.Value)

End Sub
    Natürlich können Sie das hinzufügen von Daten-Validierung, um sicherzustellen, dass Sie zahlen 🙂 Die große Sache über Formen ist die Fähigkeit zum Lesen der Werte der Teile, die zu jeder Zeit ^^

    InformationsquelleAutor aevanko

  2. 1

    Deklaration von Variablen muss im Allgemeinen, es sollte nicht unter dem Sub...

    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
    Hi Amith, willkommen zu SE! Beim posten von Antworten, sicher sein, zu erklären, was passiert ist und die Vorteile Ihrer Lösung. Auch haben Sie einen Blick auf die Bearbeiten-Hilfe zu sehen, wie richtig zu formatieren-code.

    InformationsquelleAutor Amith Gouda

Schreibe einen Kommentar