Excel VBA Userform 如何加减变量？答案

【问题标题】：Excel VBA Userform How to add and subtract variables?Excel VBA Userform 如何加减变量？
【发布时间】：2016-04-12 22:43:56
【问题描述】：

我有一个用户窗体，在用户窗体的第 1 页上，用户将一些文本输入到一个名为 as_1 的文本框和另一个名为 year Saving1 的文本框中。

在用户窗体的第 5 页上，我想在名为“TextBox36”的文本框中添加这两个变量。这是我一直在使用的代码：

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

当我使用这段代码时，只有 as_1 的值出现。它不添加“annualsaving1”。

任何帮助将不胜感激，谢谢:)

【问题讨论】：

【解决方案1】：

as_1 和 annualsaving1 的类型为 TextBox。要添加它们的值，您需要访问它们的.Value 属性并将其转换为类型Integer：

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

但请注意：如果用户输入的内容无法解析为数字，您的程序将会崩溃。

【讨论】：

【解决方案2】：

下面试试

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

【讨论】：