Excel VBAユーザーフォーム変数の追加と減算の方法は？

Question

私はユーザーフォームの1ページ目にユーザーフォームを持っています。ユーザーは、as_1というテキストボックスにtextを入力し、annualsaving1という別のTextBoxにテキストを入力します。

ユーザーフォームの5ページの「TextBox36」というテキストボックスに両方の変数を追加したいと思います。 これは私が使用しているコードです：

Private Sub Page5a() 
I = as_1 + annualsaving1 
TextBox36.Value = I 
End Sub 

を、私はこのコードを使用すると、as_1の値のみが表示されます。それは 'annualsaving1'を追加しません。

任意の助けをいただければ幸いです、ありがとう:)

Answer 1

as_1とannualsaving1はタイプTextBoxです。それらの値を追加するには、彼らの.Valueプロパティにアクセスし、Integerを入力し、それを変換する必要があります。

I = CInt(as_1.value) + CInt(annualsaving1.value) 

しかし注意してください：ユーザーが数値として解析できない何かを入力した場合、あなたのプログラムがクラッシュします。

Answer 2

は

Private Sub Page5a() 
    TextBox36.Text = Val(as_1.Text) + Val(annualsaving1.Text) 
End Sub 

下にしてみてください