Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel - Indice da un elenco a discesa

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel - Indice da un elenco a discesa

Postdi vincitek » 14/09/14 14:50

Salve,
vi chiedo aiuto poichè dopo molte ricerce non riesco a trovare una soluzione.
Vorrei sapere se è possibile in VBA Excel recuperare l'indice di un valore selezionato da un elenco a discesa creato su un foglio, come nella listbox.
Ad esempio in un elenco a discesa abbiamo, "eremengilda", "eustrogio","ulderico", se seleziono il primo vorrei un indice 1, selezionando il secondo 2. ecc.
Grazie.
vincitek
Newbie
 
Post: 3
Iscritto il: 14/09/14 14:37

Sponsor
 

Re: Excel - Indice da un elenco a discesa

Postdi Zer0Kelvin » 14/09/14 17:58

Ciao.
Se per "Elenco a discesa" intendi una convalida dati, non esiste alcun indice ma, conoscendo la collocazione dell'elenco della convalida dati, puoi facilmente effettuare una ricerca per valore.
Esempio
Codice: Seleziona tutto
Option Explicit

Sub CercaIndice()
Dim I As Long, C As Long
Dim rRicerca As Range, rElenco As Range
    Set rRicerca = Range("A1") '<== la cella in cui è stato inserito un valore
    Set rElenco = Range("G1:G5") 'l'elenco della convalida dati
    I = -1
    For C = 1 To rElenco.Rows.Count
        If rElenco.Cells(C, 1) = rRicerca Then
            I = C
            Exit For
        End If
    Next C
    If I > 0 Then MsgBox "Indice = " & I
End Sub
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 303
Iscritto il: 08/04/12 11:23

Re: Excel - Indice da un elenco a discesa

Postdi vincitek » 14/09/14 19:18

wow funziona alla grande.
Ti chiedo solo una cosa ancora e se al posto di:
Set rElenco = Range("G1:G5") 'l'elenco della convalida dati
volessi inserire il nome che ho dato all'elenco nella convalida ad es. elenco (che contiene G1:G5)?
Grazie.
vincitek
Newbie
 
Post: 3
Iscritto il: 14/09/14 14:37

Re: Excel - Indice da un elenco a discesa

Postdi vincitek » 14/09/14 19:50

Salve,
ho provato e funziona con:
Set rElenco = ActiveWorkbook.Names("Elenco").RefersToRange
al posto di:
Set rElenco = Range("G1:G5") 'l'elenco della convalida dati

Grazie di tutto. Spero di poter contribuire anche io prima o poi nel forum.
vincitek
Newbie
 
Post: 3
Iscritto il: 14/09/14 14:37


Torna a Applicazioni Office Windows


Topic correlati a "Excel - Indice da un elenco a discesa":


Chi c’è in linea

Visitano il forum: ilPrincipito e 7 ospiti