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

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