使用函数添加两个数字

Question

我正在编写VBA代码以添加两个数字：

Option Explicit

Dim x As Integer, y As Integer
Function addtwo(x, y)
addtwo = x + y    
End Function

这不是一个好函数，因为我必须手动输入值x和y来得到结果。我如何修改代码，以便它可以使用任何两个数字，无论是整数还是带小数的数字？

Answer 1

您可以在FUNCTION声明行中定义输入变量，而不是在它上面。对于整数和小数，我建议使用Vartype DOUBLE。

Function ADDTWO(ByVal x As Double,ByVal  y As Double) As Double
    ADDTWO = x + y
End Function

现在这个函数可以在单元格中用作：

= ADDTWO（3,6）
或
= ADDTWO（A2，B7）

它也可以在VBA中使用。

当然，SUM（）函数也是这样做的，所以....我认为这是一个学习练习。

Answer 2

就使用任意两个数字而言，请尝试使用Variant数据类型而不是Integer。通过手动输入值不确定您的意思 - 您是在谈论从工作表中获取它们吗？