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 e 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
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!



















