excel - 用函数将两个数字相加

Question

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

Option Explicit

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

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

score 3 · Accepted Answer

您在 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() 函数做同样的事情，所以....我认为这是一个学习练习。

score 2 · Accepted Answer

至于使用任何两个数字，请尝试使用Variant数据类型而不是Integer. 不确定手动输入值是什么意思-您是在谈论从工作表中获取它们吗？

2 回答 2