Come eseguire la macro in base al valore della cella in Excel?
Supponendo di avere più codici macro nella mia cartella di lavoro e ora voglio eseguire questi codici in base al valore della cella. In questo articolo, parlerò di diverse situazioni che potresti soffrire nel tuo lavoro quotidiano quando usi Excel.
Esegui o attiva la macro se il valore della cella è uguale a un testo specifico con codice VBA
Esegui o attiva la macro se il valore della cella è maggiore o minore di un valore specifico con codice VBA
Ad esempio, se il valore nella cella A1 è compreso tra 10 e 50, eseguire macro1 e, se il valore è maggiore di 50, eseguire macro2. Per risolvere questo lavoro in Excel, applica il seguente codice VBA.
1. Fare clic con il pulsante destro del mouse sulla scheda del foglio in cui si desidera eseguire la macro in base a un valore di cella, quindi scegliere Visualizza codice dal menu contestuale e nel file Microsoft Visual Basic per le applicazioni finestra, copia e incolla il seguente codice nel modulo vuoto:
Codice VBA: esegui la macro se il valore della cella è maggiore o minore di:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Note:: Nel codice sopra:
A1 è la cella che contiene il valore specifico su cui si desidera eseguire la macro;
Caso da 10 a 50: Macro1: significa che se il valore è compreso tra 10 e 50, eseguire Macro1;
Case è> 50: Macro2: significa che se il valore è maggiore di 50, eseguire Macro2.
Si prega di modificare i nomi e i criteri di queste macro in base alle proprie esigenze e si possono anche aggiungere altri criteri dopo il Caso script.
2. Quindi salva e chiudi questa finestra di codice, ora, quando il valore immesso è compreso tra 10 e 50 nella cella A1, verrà attivata la Macro1, se il valore inserito è maggiore di 50, viene eseguita Macro2.
Esegui o attiva la macro se il valore della cella è uguale a un testo specifico con codice VBA
Se si desidera attivare la macro in base a un testo specifico in una cella, ad esempio, eseguire la macro1 se viene inserito il testo "Elimina" ed eseguire la macro2 se viene digitato il testo "Inserisci". Il codice seguente può farti un favore.
1. Fare clic con il pulsante destro del mouse sul foglio in cui si desidera eseguire la macro in base al valore della cella, quindi scegliere Visualizza codice dal menu contestuale e nel file Microsoft Visual Basic per le applicazioni finestra, copia e incolla il seguente codice nel modulo vuoto:
Codice VBA: esegui la macro se il valore della cella è un testo specifico
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Note:: Nel codice sopra, "Elimina" e "inserire"Sono i testi delle celle su cui si desidera eseguire le macro in base a, e Macro1 ed Macro2 sono le macro che vuoi eseguire in base al testo. Si prega di modificarli secondo le proprie necessità.
2. Quindi salva questo codice e chiudi la finestra, ora, quando inserisci il testo “Elimina” nella cella A1, viene attivata la macro1, se viene inserito il testo “Inserisci”, verrà eseguita la macro2.
Articoli correlati:
Come eseguire la macro quando il valore della cella cambia in Excel?
Come eseguire automaticamente la macro prima di stampare in Excel?
Come eseguire la macro in base al valore selezionato dall'elenco a discesa in Excel?
Come eseguire la macro facendo clic sui collegamenti ipertestuali in Excel?
Come eseguire la macro quando il foglio viene selezionato da una cartella di lavoro?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!