I am totally new to VBA and was asked to create a function that adds the numerical values of two cells.
I came up with the following, but I am given the message
Compile Error: Cannot assign to array, with
Additionex
at the bottom marked as the problem…
Could anybody help out?
Function Additionex(num1 As Double, num2 As Double) As Double()
Dim num3 As Double
num3 = num1 + num2
Additionex = num3
End Function
You can also use Evaluate
Public Function Additionex(ByVal num1 As Double, ByVal num2 As Double) As Double
Additionex = Evaluate(num1 + num2)
End Function
If you want something more generic that takes ranges (your two cells as arguments) and can handle errors consider something like:
Public Function Additionex(ByVal cell1 As Range, ByVal cell2 As Range) As Variant
If IsNumeric(cell1.Value) And IsNumeric(cell2.Value) Then
Additionex = Evaluate(num1 + num2)
Else
Additionex = CVErr(xlna)
End If
End Function
ByVal and ByRef apply to the object reference itself. If you pass an object ByVal, the called procedure can't alter the object pointer (set it to a new object or set it to Nothing). It can still alter properties of the object.Don't make it an array:
Function Additionex(num1 As Double, num2 As Double) As Double
Dim num3 As Double
num3 = num1 + num2
Additionex = num3
End Function
