Saudações a todos.

 

Preciso bolar uma função que, após receber uma matriz como argumento, retorne

duas matrizes como resultado. Ficarei muito agradecido se alguém puder me ajudar ...

 

Agradeço desde já...

LeandroRJ

você fazer isso passando um vetor como parâmetro de referência e outro de retorno da função

 

Private Sub Command1_Click()
  Dim vetAlfab()
  Dim vetTeste()
  ReDim vetAlfab(5)
  ReDim vetTeste(5)
  For i = 1 To 5
    If i = 1 Then
      vetAlfab(i) = "A"
    ElseIf i = 2 Then
      vetAlfab(i) = "B"
    ElseIf i = 3 Then
      vetAlfab(i) = "C"
    ElseIf i = 4 Then
      vetAlfab(i) = "D"
    End If
  Next
  vetTeste = funMinhaFuncao(vetAlfab)
  MsgBox "OK"
End Sub

Private Function funMinhaFuncao(ByRef vetAlfab() As Variant) As Variant
  Dim vetNum()
  ReDim vetNum(5)
  For i = 1 To 5
    vetNum(i) = i
  Next
  funMinhaFuncao = vetNum
  vetAlfab(5) = "E"
End Function

 

Valeu Martini ...