2016-09-18 4 views
1

Excel VBAで簡単なプログラムを実行しています。私は算術演算のための簡単なユーザーフォームを作成しました。私は加算、減算、乗算、除算のための2つの入力テキストボックスと4つのコマンドボックスを作成しました。コードを実行すると、追加操作以外のすべての操作を実行できます。 2つの入力を入力して追加コマンドボタンをクリックすると、加算演算を行う代わりに連結結果が得られます。例:ここでは入力1 = 10、入力2 = 10結果= 1010Excelでの加算演算

は私のコードです:ここでは

Private Sub CommandButton2_Click() 

ANSWER = INPUT1 * INPUT2 

End Sub 

Private Sub CommandButton3_Click() 

ANSWER = INPUT1 - INPUT2 

End Sub 

Private Sub CommandButton4_Click() 

ANSWER = INPUT1 + INPUT2 

End Sub 

Private Sub CommandButton5_Click() 

ANSWER = INPUT1/INPUT2 

End Sub 

は私が加算演算のため

を取得していますouputをの画像です

答えて

1

数値操作を強制するようにコードを変更してみてください。

ANSWER = Val(INPUT1) + Val(INPUT2) 

あなたは小切手を入れたいかもしれません。

If IsNumeric(Input1) Then 
    INPUT1 = Val(INPUT1) 
Else 
    INPUT1 = 0 
End if 

あなたが使用している各変数のようなものです。

-1

ます。また、番号にテキストを変換するために-*\/を使用することができます。ここを見て

ANSWER = INPUT1 - 0 + INPUT2 
ANSWER = INPUT1 * 1 + INPUT2 
ANSWER = INPUT1/1 + INPUT2 
ANSWER = INPUT1 \ 1 + INPUT2 ' integer division 
ANSWER = INPUT1 + --INPUT2 
ANSWER = INPUT1 - -INPUT2 
1

2つのこと:

  1. テキストボックスに入力された何かは、その文字列であり、 MsgBox TypeName(me.Textbox1)は常に与えます:

    enter image description here

  2. "+"は、両方の変数が文字列の場合の連結演算子になります。

したがって、あなたは、明示的になります+は、連結演算子として扱われないようにそれらを追加する+を使用する前に、数に変数を変換します。テキストを数値に変換するには

、あなたはValCDblCIntCLngまたはCSngを使用することができます。ベストフィットを選択してください。