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