vba双重错误输入框字符串

Question

我在 Excel 中使用带有 activex 控件的 VBA 我有这个代码来计算两个值的平均值

Private Sub CommandButton1_Click()
Dim a, b, average As Double
a = InputBox("insert number a")
b = InputBox("insert number b")
average = (a + b) / 2
MsgBox (average)
End Sub

它返回一个错误的值，因为 + 被认为是字符串的连接而不是两个双精度的总和。 例如，如果我输入 a=4 和 b=5，则结果为 22.5 (45/2)。

如果修改变量声明如下，问题就解决了，只是 一个一个地声明变量

Private Sub CommandButton1_Click()
Dim a  As Double
Dim b As Double
Dim average As Double
a = InputBox("insert number a")
b = InputBox("insert number b")
average = (a + b) / 2
MsgBox (average)
End Sub

发生了什么事？

Answer 1

InputBox 以字符串形式返回，因为你把这样的东西变暗了

Dim a, b, average As Double

a 和 b 是 Variants，而不是 Double

所以他们被InputBox转换为String。

将平均计算更改为：

average = (val(a) + val(b)) / 2

这会将字符串转换为数字，然后添加它们。

注意：当使用 InputBox 并且您期望数字时，您也需要对其进行一些检查，以防有人输入非数字的内容，因为 Val 会将非数字文本转换为 @987654332 @

Answer 2

在 VBA 中，如果您在一行中“调暗”多个变量，则必须明确指定每个变量的类型。如果不这样做，变量将获得类型“Variant”。

所以在这一行：

Dim a, b, average As Double

a 和 b 是 Variant 类型，只有 average 是 Double 类型。 （变体意味着 VBA 会猜测使用哪种数据类型。）但是

Dim a as Double, b As Double, average As Double

将按照您的意愿工作，与您的第二个代码示例相同。这正是二十多年前 VBA 的设计方式......