Добавление двух чисел с функцией

Question

Я пишу VBA код, чтобы добавить два числа:

Option Explicit 

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

Это не очень хорошая функция, так как я должен вручную ввести значения х и у, чтобы получить в результате. Как я могу изменить коды, чтобы он мог работать с любыми двумя числами, независимо от целых чисел или чисел с десятичными знаками?

Answer 1

Что касается работы с любыми двумя номерами, попробуйте использовать тип данных Variant вместо Integer. Не уверен, что вы подразумеваете под ручным вводом значений - вы говорите о том, чтобы получить их с листа?

Answer 2

Вы определяете свои входные переменные в строке объявления FUNCTION, а не над ней. Я бы рекомендовал vartype DOUBLE для целых чисел и десятичных знаков.

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

Теперь эта функция может быть использована в клетке, как:

= ADDTWO (3, 6)
или
= ADDTWO (А2, В7)

Это также может использоваться в VBA.

Конечно, функция SUM() делает то же самое, поэтому .... Я предполагаю, что это учебное упражнение.