Como faço para passar um Array como parâmetro para uma função em VBA? Detalhe se eu definir um tipo de variável como String, Integer, etc... funciona, entretanto um tipo definido por mim, não funciona! Por exemplo:
Type pessoa
nome As String
idade As Integer
End Type
Public Sub SomaIdade(arrPessoa As Variant)
Dim soma As Integer
For i = 0 To UBound(arrPessoa)
soma = som + arrPessoa(i)
Next i
Debug.Print (soma)
End Sub
Sub main()
Dim p(2) As pessoa
p(0).idade = 10
p(1).idade = 20
p(2).idade = 30
SomaIdade (p)
End Sub