Cumu imballà bè un parachute?
Beneficiu. Edizione 2, rivista.
Dicemu chì avemu a seguente tabella di ordini:
Avemu bisognu di sapè, per esempiu, quale era a quantità di u terzu ordine di Ivanov o quandu Petrov hà eseguitu u so secondu accordu. A funzione integrata di VLOOKUP pò solu cercà a prima occorrenza di u cognome in a tavula è ùn ci aiuterà micca. Domande cum'è "Quale era u manager di l'ordine numeru 10256?" resterà ancu senza risposta, tk. U VLOOKUP integratu ùn hè micca capaci di rinvià i valori da e colonne à a manca di a ricerca.
Issi dui prublemi sò risolti in un colpu - scrivitemu a nostra propria funzione chì cercarà micca solu per u primu, ma, in u casu generale, per l'Nth occurrence. Inoltre, puderà cercà è pruduce risultati in ogni culonna. Chjamemu, dì, VLOOKUP2.
Aprite l'Editor Visual Basic premendu ALT + F11 o selezziunate da u menù Serviziu - Macro - Editor Visual Basic (Strumenti - Macro - Editor Visual Basic), inserisci un novu modulu (menu Inserisce - Modulu) è copià u testu di sta funzione quì:
Funzione VLOOKUP2 (Table As Variant, SearchColumnNum As Long, SearchValue As Variant, _ N As Long, ResultColumnNum As Long) Dim i As Long, iCount As Long Select Case TypeName (Table) Case "Range" For i = 1 To Table.Rows .Count If Table.Cells(i, SearchColumnNum) = SearchValue Allora iCount = iCount + 1 End If If iCount = N Allora VLOOKUP2 = Table.Cells(i, ResultColumnNum) Exit For End If Next i Case "Variant()" For i = 1 À UBound (Table) If Table (i, SearchColumnNum) = SearchValue Allora iCount = iCount + 1 If iCount = N Allora VLOOKUP2 = Table (i, ResultColumnNum) Exit For End If Next i End Select End Function
Chiudi l'Editor Visual Basic è torna à Excel.
Avà attraversu Inserisci - Funzione (Inserisci - Funzione) in categuria Definitu da l'Usuariu (User Defined) pudete truvà a nostra funzione VLOOKUP2 è aduprà. A sintassi di a funzione hè a siguenti:
=VLOOKUP2(table; number_of_column_induve_cerchemu; lookup_value; N; number_of_column_from_to_get_value)
Avà e limitazioni di a funzione standard ùn sò micca un ostaculu per noi:
PS Un ringraziu speciale à The_Prist per a migliurà a funzione in modu chì pò circà in libri chjusi.
- Truvà è sustituisce e dati da una tavula à l'altru usendu a funzione VLOOKUP
- "Left VLOOKUP" utilizendu e funzioni INDEX è MATCH