ERRORE DI RUN-TIME 9 INDICE NON INCLUSO NELL'INTERVALLO

Question

Buongiorno a tutti,

ho trovato questo codice visitando alcuni siti su internet, ma mi da l'errore in oggetto quando lancio il form, potere cortesemente dirmi come posso risolvere il problema.

Private Sub UserForm_Initialize()

Dim vArr As Variant 

Dim iI As Integer 

vArr = ShDB.Range("A3:A36").Value 

With cboNominativoDR 

     For iI = LBound(vArr) To UBound(vArr) 

        .AddItem vArr(iI) 

     Next iI 

End With 

end sub

Grazie per l'aiuto.

Answer 1

Ciao Danilo,

Grazie Norman per la cortese attenzione, ho però una domanda se possibile, perché è necessario inserire "1".

Un array creato da un intervallo avrà sempre 2 dimensioni. Nel caso di un intervallo di colonna singola, la seconda dimensione sarà 1; un intervallo di due colonne creerà un array la cui seconda dimensione sarà 2. Più in generale, la seconda dimensione sarà n, dove n è uguale al numero di colonne nell'intervallo di origine.

Quindi, per referenziare un elemento di tale array è necessario fornire il valore richiesto per entrambe le dimensioni.

Se dovessi aver bisogno di ulteriori precisazioni, chiedi pure.

===

Regards,

Norman

Answer 2

Ciao Danilo,

Private Sub UserForm_Initialize()

Dim vArr As Variant

Dim iI As Integer

vArr = ShDB.Range("A3:A36").Value

With cboNominativoDR

For iI = LBound(vArr) To UBound(vArr)

.AddItem vArr(iI)

Next iI

End With

end sub

In alternativa, sostituisci il tuo codice con:

'========>>

Option Explicit

'-------->>

Private Sub UserForm_Initialize()

Dim vArr As Variant 

vArr = ShDB.Range("A3:A36").Value 

Me.cboNominativoDR.List = vArr 

End Sub

'<<========

===

Regards,

Norman

Answer 3

Grazie Norman per la cortese attenzione, ho però una domanda se possibile, perché è necessario inserire "1".

Cordiali saluti.

Answer 4

Ciao Danilo,

Buongiorno a tutti,

ho trovato questo codice visitando alcuni siti su internet, ma mi da l'errore in oggetto quando lancio il form, potere cortesemente dirmi come posso risolvere il problema.

Private Sub UserForm_Initialize()

Dim vArr As Variant

Dim iI As Integer

vArr = ShDB.Range("A3:A36").Value

With cboNominativoDR

For iI = LBound(vArr) To UBound(vArr)

.AddItem vArr(iI)

Next iI

End With

end sub

Sostituisci:

.AddItem vArr(iI)

con:

.AddItem vArr(iI**,1**)

===

Regards,

Norman