用一个函数添加两个数字

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

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

这不是一个好的函数，因为我必须手动input值x和y才能得到结果。 我怎样才能修改代码，使它可以使用任何两个数字，不pipe是整数还是带小数的数字？

Answer 1

你可以在FUNCTION声明行中定义你的inputvariables，而不是在它之上。 我会推荐整数和小数的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数据types而不是Integer 。 不知道你的意思是通过手动input值 – 你是在谈论从工作表中获得他们？