Adicionando ou multiplicando variantes no VBA
Suponha que recebamos duas variantes,X
eY
, que podem ser números, intervalos ou matrizes. Existe uma maneira simples de adicioná-los ou multiplicá-los, como nas fórmulas de planilhas=X+Y
e=X*Y
?
Uma possibilidade em que pensei seria usar a operação Evaluate, algo como isto:
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
Parece um pouco estranho embora. Alguma outra ideia?
(Aqui está uma pergunta relacionada:Multiplicando matrizes com escalares e adicionando no VBA.)