Excel VBA Userform如何添加和減去變量？

Question

我有一個Userform，在Userform的第1頁上，用戶將一些文本輸入到名為as_1的TextBox和另一個名為annualsaving1的TextBox中。

在Userform的第5頁上，我想在Textbox中添加兩個變量，稱為“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