[VBA] Metodo Collection.Contains ed errore 438

[lele85red]

Non riesco a capire perchè il seguente codice mi da errore :

Dim i As Long
Dim strTemp As String
Dim coll As New Collection

For i = 1 To 3000
strTemp = Foglio1.Cells(i, 1)
If coll.Contains(strTemp) Then
i = i
Else
coll.Add strTemp
End If
Next i

L'intento è quello di avere in coll gli elementi presenti nella colonna 1 del foglio excel SENZA ripetizioni.
Grazie

P.S. i=i è li semplicemente per il then, non ha alcuno utilità :P

[Pirelli72]

Perchè l'ggetto coll non espone la funzione .Contains.

Potrei suggerirti questo codice alternativo..

Private Sub CommandButton1_Click()
Dim i As Long
Dim strTemp As String
Dim coll As New Collection

For i = 1 To 3000
strTemp = Foglio1.Cells(i, 1)
If Find(coll, strTemp) = False Then
coll.Add strTemp
End If
Next i
End Sub

Function Find(coll As Collection, name As String) As Boolean
For s = 1 To coll.Count
If coll.Item(s) = name Then
Find = True
Exit For
End If
Next
End Function

Da testare ovviamente....

[lele85red]

Grazie mille

Credevo bastasse creare una collezione per poi poter sfruttare "contains"...
ora provo, nel caso se avrai tempo ti disturberò ancora...
grazie ancora

[lele85red]

Ti chiedo una piccola cosa e mi scuso per "l'ignoranza vba" :P

La dichiarazione della funzione è necessario inserirla nello stesso foglio di lavoro, o è possibile utilizzarla scrivendola in un modulo?
Se possibile, basta scriverla in un modulo e fine?
grazie

[Pirelli72]

Originariamente inviato da lele85red
La dichiarazione della funzione è necessario inserirla nello stesso foglio di lavoro, o è possibile utilizzarla scrivendola in un modulo?

La puoi inserirla anche in un modulo.

[lele85red]

Ciao
Ti ringrazio per la risposta, il codice funziona e mi è tornato molto utile.
Ho un problema, se hai voglia di darci un occhiata veloce...ti ringrazio...
Creo una Funzione nel modulo

Function Anno(multi as Collection) As Collection

Nel foglio di lavoro, nella sezione Option Explicit dichiaro

Dim Coll As New Collection

Inserisco alcuni dati nella collezione coll...
Successivamente, in un form, cerco di fare

Private Sub cmdOK_Click()
Anno(Coll)
...

L'applicazione mi segnala "Argomento non facoltativo" relativo a Coll...
Magari sto perdendo io qualcosa per strada...

[alka]

Originariamente inviato da lele85red
Ti ringrazio per la risposta, il codice funziona e mi è tornato molto utile.
Ho un problema, se hai voglia di darci un occhiata veloce...ti ringrazio...
[...]

Per ogni nuovo problema, occorre aprire una nuova discussione, come da Regolamento.

[lele85red]

Scusami... la prox volta sarò più attento...
Se è un problema inserisco subito una nuova discussione... grazie

[alka]

Originariamente inviato da lele85red
Scusami... la prox volta sarò più attento...
Se è un problema inserisco subito una nuova discussione... grazie

Visto che si parla di una cosa diversa, è meglio.

Vedi tu se approfittarne per aggiungere ulteriori dettagli che potrebbero essere d'aiuto per affrontare il problema e che fossero eventualmente emersi nel frattempo.

Ciao!