[VBA]Far ritornare un Array ad una Function

Question

non mi ricordo la sintassi scusate...

Answer 1

<cut>

Prova così:

Public Function f() As Variant

    Dim lng As Long

    Dim v() As Variant

    ReDim v(100)

    For lng = 0 To 100

        v(lng) = "Ciao, sono: " & lng

    Next

    f = v

End Function

Public Sub m()

    MsgBox f(45)

End Sub

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 2

no tranquillo lo rispiego 2000 mila volte :) ci mancherebbe 

 

vorrei tornare due variabile create dentro la function 

Una funzione ritorna *un* valore. Questo valore può anche essere un array. Ma nell'array deve esserci qualcosa. Cosa c'è nel tuo array?

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 3

volevo scrivere un function che come valore di ritorno invece che una variabile abbia due parametri

tipo:

sub function t()

  n return ...

end function

o = t

msgbox o.p1

msgbox o.p2

 

 

Scusa, ma proprio non capisco cosa vuoi fare. Una cosa così?

Public Function f(ByVal d As Double) As Double

    f = d * 5

End Function

Public Sub m()

    MsgBox f(5)

    MsgBox f(10)

End Sub

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 4

volevo scrivere un function che come valore di ritorno invece che una variabile abbia due parametri

tipo:

sub function t()

  n return ...

end function

o = t

msgbox o.p1

msgbox o.p2

Answer 5

non mi ricordo la sintassi scusate...

Non è per nulla chiaro. Puoi spiegare meglio, grazie.

---

--

La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.

--

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/