Come modificare Output del Menu a tendina (EXCEL)?

Question

Come si può vedere dall'immagine sotto, ho una tabella di dominio con IDColore e Colore, adesso il mio obiettivo sarebbe quello di riuscire a creare un menu a tendina, come scelte possibili devo mettere il nome stesso del colore(come nell'immagine), ma una volta scelto vorrei che nella cella riportasse l'ID e non il colore, è possibile in qualche modo raggiungere tale risultato senza dover creare due colonne distinte(non vorrei avere una colonna con il menu a tendina e un'altra che associa l'ID, ma tutto nella stessa), grazie mille per eventuali risposte)?

Answer 1

ciao

se non vuoi usare il vba

ti spiego un trucco per avere le due colonne

nella convalida

sono intercalate perciò a numero corrisponde il colore

vai in formule

nomina

=conv

e scrivi

=SCARTO($A$2;;;CONTA.SE($B$2:$B$1000;"?*");1)

fatto questo

seleziona la cella che vuoi

e DATI

CONVALIDA

ELENCO

scrivi

=conv

ora hai la convalida con i numeri

ora torniamo in formule

e al posto di 1 scriviamo 2

=SCARTO($A$2;;;CONTA.SE($B$2:$B$1000;"?*");2)

e conferma

ecco che avrai una convalida con

1

Giallo

2

Rosso

3

Verde

ecc....

perciò tu vedrai il colore che devi scegliere e il relativo codice

https://www.dropbox.com/s/ztqhz9dwxz8ezdu/convalida%20a%20due%20colonne.xlsx?dl=0

seguire la procedura come descritta

Answer 2

ciao

come si dice

o così o pomì😁

la convalida doppia ti permette di vedere il codice del colore

e non ti puoi sbagliare .cerchi il colore e clicchi sul codice sopra

e fa esattamente quello che vuoi

in alternativa il VBA

o una cella d'appoggio con un cerca verticale

Answer 3

Ciao Rick983,

ciao, ti ringrazio per la risposta, si il mio obiettivo sarebbe riuscirci senza vba, la tua soluzione mostra nel menu a tendina sia il colore che il numero, io vorrei che li comparisse solo il colore, ma che una volta selezionato, nella cella riporti solo l'ID, è possibile?

È esattamente così che ho interpretato la tua domanda ma, come ho indicato, credo che ciò richiederebbe il ricorso a VBA.

A parte ogni altra considerazione, in assenza della geniale soluzione di Gianfranco o di VBA, come fa Excel a stabilire che non si vuole visualizzare il colore ma piuttosto un codice? L'unica altra opzione che mi viene in mente è l'utilizzo di una colonna di appoggio, ma tu hai espressamente escluso questa possibilità.

===

Regards,

Norman

Answer 4

ciao, ti ringrazio per la risposta, si il mio obiettivo sarebbe riuscirci senza vba, la tua soluzione mostra nel menu a tendina sia il colore che il numero, io vorrei che li comparisse solo il colore, ma che una volta selezionato, nella cella riporti solo l'ID, è possibile?

Answer 5

Ciao Rick983,

Come si può vedere dall'immagine sotto, ho una tabella di dominio con IDColore e Colore, adesso il mio obiettivo sarebbe quello di riuscire a creare un menu a tendina, come scelte possibili devo mettere il nome stesso del colore(come nell'immagine), ma una volta scelto vorrei che nella cella riportasse l'ID e non il colore, è possibile in qualche modo raggiungere tale risultato senza dover creare due colonne distinte(non vorrei avere una colonna con il menu a tendina e un'altra che associa l'ID, ma tutto nella stessa), grazie mille per eventuali risposte)?

Se ho interpretato correttamente il tuo obiettivo, se non desideri utilizzare una colonna di appoggio, allora penso che potresti dover ricorrere a una procedura evento VBA.

A titolo di esempio, prova come segue:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Private Sub Worksheet_Change(ByVal Target As Range)

Dim RngTabella As Range 

Dim Rng As Range, rCell As Range 

Dim oTabella As ListObject 

Dim Res As Variant 

Const sTabella As String = **"Tabella1"                              '<<=== Modifica** 

Const sIntervallo\_Convalida As String = **"D2:D7"            '<<=== Modifica** 

Set Rng = Intersect(Me.Range(sIntervallo\_Convalida), Target) 

If Not Rng Is Nothing Then 

    Set oTabella = Me.ListObjects(sTabella) 

    On Error GoTo XIT 

    Application.EnableEvents = False 

    For Each rCell In Rng.Cells 

        Res = Application.Match(rCell.Value, oTabella.Range.Columns(2), 0) 

        If Not IsError(Res) Then 

            rCell.Value = oTabella.Range.Columns(1).Cells(Res).Value 

        End If 

    Next rCell 

End If 

XIT:

Application.EnableEvents = True

End Sub

'<<========

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm

Potresti scaricare il mio file di prova Rick20221214.xlsm

===

Regards,

Norman