Come eseguire una macro in base al valore selezionato da un elenco a discesa in Excel?

Eseguire macro facendo clic su un pulsante di comando è un'attività comune in Excel, ma avete mai provato a eseguire i codici delle macro in base al valore selezionato da un elenco a discesa? Significa che, quando si sceglie un elemento dall'elenco a discesa, la macro specifica verrà attivata immediatamente. Questo articolo vi introdurrà un codice utile per risolvere questa operazione.

Esegui macro in base al valore selezionato da un elenco a discesa con il codice VBA

Esegui macro in base al valore selezionato da un elenco a discesa con il codice VBA

Non c'è un modo diretto per completare questa attività, ma il seguente codice VBA può aiutarvi, procedete come segue:

1. Innanzitutto, create un elenco a discesa secondo necessità, vedere screenshot:

2. Quindi fate clic con il tasto destro sul tab del foglio che contiene l'elenco a discesa che desiderate utilizzare e scegliete Visualizza Codice dal menu contestuale; nella finestra aperta di Microsoft Visual Basic for Applications, copiate e incollate il seguente codice nel Modulo vuoto:

Codice VBA: Esegui macro in base al valore selezionato da un elenco a discesa:

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("E1")) Is Nothing Then
	    Select Case Range("E1")
	        Case "Insert Blank rows": Macro1
	        Case "Hide All Sheets": Macro2
            Case "Convert to Date": Macro3
	    End Select
	End If
	End Sub

Nota: Nel codice sopra, E1 è la cella che contiene l'elenco a discesa, cambiate i nomi delle macro e i valori dell'elenco a discesa secondo necessità.

3. Dopodiché salvate e chiudete questa finestra del codice; ora, quando selezionate l'elemento Inserisci righe vuote dall'elenco a discesa, verrà attivata Macro1, e così via…

Articoli correlati:

Come eseguire una macro quando il valore della cella cambia in Excel?

Come eseguire una macro in base al valore della cella in Excel?

Come eseguire automaticamente una macro prima della stampa in Excel?

Come eseguire una macro facendo clic sui collegamenti ipertestuali in Excel?

Come eseguire una macro quando un foglio viene selezionato da una cartella di lavoro?