excel - ユーザーフォームを使用して2つの数値を合計し、MsgBoxに出力する方法は?

Question

3 つのテキスト ボックスを持つユーザー フォームを作成しました。

最初のテキストボックスは最初の数値、2 番目のテキストボックスは 2 番目の数値、最後のテキストボックスは結果です。

計算という名前のボタンを作成しました。

textbox1 の次のコードがあります。

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

これはtextbox2の場合：

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

結果を表示するボタンがあります

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

textbox1 に 1 を入力し、textbox2 に 2 を入力すると、1+2 は 3 になりますが、MsgBox には 0 が表示されます。

Answer 1

ボックスの値を変数に割り当てません (そして、それらがグローバル変数でない限り、変数の有効範囲はルーチンであるため、変数はそれぞれの sub() が終了した後に消滅するため、コマンド ボタンイベントが発生すると、変数はもはや生きていません)、変数を直接参照するだけです。コマンドボタンにこれを追加するだけで、仕事をするはずです。

Private Sub CommandButton1_Click()

MsgBox(TextBox1.Value + TextBox2.Value)

End Sub

Answer 2

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

Answer 3

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