Добавление или умножение вариантов в VBA
Предположим, нам даны два варианта,X
а такжеY
, это могут быть числа, диапазоны или массивы. Есть ли простой способ добавить или умножить их, как в формулах листа=X+Y
а также=X*Y
?
Одна возможность, о которой я подумал, - это использовать операцию Evaluate, что-то вроде этого:
Dim X, Y
Sub AddMult()
Dim Add, Mult
X = Array(Array(1, 3), Array(2, 4))
Y = Array(1, 2)
Add = [GetX()+GetY()]
Mult = [GetX()*GetY()]
End Sub
Function GetX()
GetX = X
End Function
Function GetY()
GetY = Y
End Function
Это кажется немного неловким, хотя. Есть еще идеи?
(Вот связанный вопрос:Умножение массивов со скалярами и добавление в VBA.)