Não consigo descobrir o que há de errado com o código abaixo. Eu criei o dicionário contém uma chave (chamada "SMTH") e esta chave contém um itens (matriz com três inteiros). E agora eu quero enviar este array para o procedimento Sub, calculá-lo e retornar.
Dim SMTH As String
Dim d
Dim Myarray
SMTH = "SMTH"
Myarray = Array(10, 20, 30)
Set d = CreateObject("Scripting.Dictionary")
d.Add SMTH, Myarray
Call countSub(Myarray) 'here is mistake I can't fix
Debug.Print Myarray(0), Myarray(1), Myarray(2)
End Sub
Sub countSub(Arr() As Variant)
For N = LBound(Arr) To UBound(Arr)
Arr(N) = N * 10
Next N
End Sub
Erro de correspondência de tipo ...
Eu apreciarei qualquer tipo de ajuda!
Tags microsoft-excel