Perché ricevo l'errore 2042 nell'associazione VBA?

Question

devo Colonna A:

+--+--------+ 
| | A  | 
+--+--------+ 
| 1|123456 | 
|--+--------+ 
| 2|Order_No| 
|--+--------+ 
| 3| 7 | 
+--+--------+ 

Ora, se io entro:

=Match(7,A1:A5,0) 

in una cella sul foglio ottengo

3 

Come risultato. (Questo è desiderata)

Ma quando entro in questa linea:

Dim CurrentShipment As Integer 
CurrentShipment = 7 
CurrentRow = Application.Match(CurrentShipment, Range("A1:A5"), 0) 

CurrentRow ottiene un valore di "Errore 2042"

Il mio primo istinto è stato quello di fare in modo che il valore di 7 è stato infatti nell'intervallo, ed era.

Il mio prossimo era forse la funzione Partita richiesto una stringa così ho provato

Dim CurrentShipment As Integer 
CurrentShipment = 7 
CurrentRow = Application.Match(Cstr(CurrentShipment), Range("A1:A5"), 0) 

inutilmente.

Answer 1

Prova questo:

CurrentRow = Application.Match(CLng(CurrentShipment), Range("A1:A5"), 0) 

Answer 2

È interessante notare, ho digitato i dati in un foglio di Excel vuoto e poi corse snippet di originale di codice. Restituito 3, come previsto, senza dover eseguire il cast di CurrentShipment come String o Long.

Not DIM'ing CurrentRow lo rende di default Variant, ma anche impostando entrambi come Integer o CurrentRow come Byte non genera un errore, quindi utilizzando Double come tipo di ritorno è ridondante.

Sub Match() 

Dim CurrentShipment As Integer 
Dim CurrentRow As Byte '<--- NOTE 

CurrentShipment = 7 
CurrentRow = Application.Match(CurrentShipment, Range("A1:A5"), 0) 

MsgBox CurrentRow 

End Sub 

Answer 3

Per me ha funzionato bene senza digitare nulla. Ho usato entrambi:

Application.WorksheetFunction.Match(CurrentShipment, Range("A1:A5"), 0)

e

Application.Match(CurrentShipment, Range("A1:A5"), 0)

quotato CurrentShipment as Integer, Double, Long o variante, tutto ha funzionato bene ...

Answer 4

Se cercate funzione match nel browser degli oggetti restituisce il doppio quindi ho dichiarato la variabile CurrentRow come double e mentre accetta il parametro 3 variant. Prova sotto il codice se funziona per te.

Sub sample() 

    Dim CurrentShipment As Variant 
    CurrentShipment = 7 

    Dim CurrentRow As Double 
    CurrentRow = Application.Match(CurrentShipment, Range("A1:A5"), 0) 
    End Sub 

Answer 5

Come nota a margine a questo e per tutti coloro che ottiene questo errore in futuro, con qualsiasi funzione che restituisce un possibile errore, il tipo di variante funziona abbastanza bene:

Dim vreturn as variant 

vreturn = Application.Match(CurrentShipment, Range("A1:A5"), 0) ' this could be any function like a vlookup for example as well 

If IsError(vreturn) Then 
    ' handle error 
Else 
    CurrentRow = cint(vreturn) 
End If