Trasferire un array valorizzato su di un range di celle

Question

Ciao,

ho un array di questo tipo:

Codici(100,2)

Praticamente è una cosa del genere

Codici(PENNA,10,PAPER)

Codici(MATITA,2,STABILO)

Codici(GOMMA,3,STADLER)

e cosi via.

Generalmente sfrutto dei cicli for per scrivere nelle celle del mio foglio "Stampa" gli array.

Volevo sapere se esisteva un metodo più corretto e veloce di associare tale matrice ad un range di celle.

Es: su A1: PENNA, su B1: 10, su C1: PAPER.

Grazie e buon lavoro. (ho 2007)

Answer 1

Non so se ho capito. Semplificando, prova:

<cut>

Partito un colpo, scusa. In pratica puoi passare l'array ad un range di dimensioni identiche. Vedi anche:

Public Sub m()

    Dim myArray(5, 5) As String

    Dim x As Long

    Dim y As Long

    Dim sh As Worksheet

    Dim rng As Range

    For x = 0 To 5

        For y = 0 To 5

            myArray(x, y) = "Valore" & x & y

        Next

    Next

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        Set rng = .Range("B4:G9")

        rng = myArray()

    End With

    Set rng = Nothing

    Set sh = Nothing

End Sub

Grazie per l'attenzione.

---

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 2

Grazie a te per il cortese riscontro.

---

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/

Answer 3

Molto bene.

Grazie

Answer 4

Non so se ho capito. Semplificando, prova:

Public Sub m()

    Dim myArray(5, 5) As String

    Dim x As Long

    Dim y As Long

    Dim sh As Worksheet

    For x = 0 To 5

        For y = 0 To 5

            myArray(x, y) = "Valore" & x & y

        Next

    Next

    Set sh = ThisWorkbook.Worksheets("Foglio1")

    With sh

        .Range("B4:G9") = myArray()

    End With

    Set sh = Nothing

End Sub

---

Mauro Gamberini - Microsoft© MVP(Excel)

http://www.maurogsc.eu/