Errore di indice fuori intervallo con un array - nessuna idea del perché?

Question

Ho dichiarato un array come tale Dim rArray() As Variant ma quando provo e utilizzo i valori che sono memorizzati in esso (come mostrato di seguito) ottengo un errore di indice fuori intervallo. I valori UBound(rArray) e LBound(rArray) restituiscono entrambi i valori 14 e 1, ma l'errore si verifica sulla riga Debug.Print.

Se io uso l'istruzione for, come di seguito

For Each rArr in rArray 

allora funziona senza problemi, ma per gli scopi sto creando questo array ho bisogno della flessibilità di selezionare ogni elemento memorizzato in che ordine-senso ho bisogno per riferirsi a loro usando i pedici.

Ho provato diversi modi per tentare di risolverlo senza fortuna e passare quasi la metà della giornata a questo problema. Qualcuno potrebbe indicare cosa ho bisogno di cambiare per farlo funzionare.

Set rng = Range("D4", Range("D4").End(xlDown)) 
rng.NumberFormat = "0" 
rArray = rng.Value 

For x = UBound(rArray) To LBound(rArray) Step -1 
    Debug.Print rArray(x) 
Next x 

Edit: un altro fatto degno di nota è che lui array viene dichiarato e utilizzato all'interno di una funzione, ma non è passato dalla o alla funzione. Non è possibile dichiarare e utilizzare le matrici nelle funzioni?

Answer 1

Quando si assegnano i valori di prospetto di una matrice variante, si sempre estremità con una matrice 2-D che è base (ad esempio da 1 a qualcosa, 1 a qualcosa; non 0 a qualcosa, 0 a qualcosa). Se si ottengono valori da una singola colonna, la seconda posizione è semplicemente 1: 1.

Ciò può essere dimostrato con quanto segue.

Dim x As Long, rArray As Variant, rng As Range 

Set rng = Range("D4", Range("D4").End(xlDown)) 
rng.NumberFormat = "0" 'don't really understand why this is here 
rArray = rng.Value 

Debug.Print LBound(rArray, 1) & ":" & UBound(rArray, 1) 
Debug.Print LBound(rArray, 2) & ":" & UBound(rArray, 2) 

For x = UBound(rArray, 1) To LBound(rArray, 1) Step -1 
    Debug.Print rArray(x, 1) 
Next x 

Quindi è necessario chiedere l'elemento nella prima riga dell'array; non è sufficiente chiedere l'elemento.