Come abilitare o disabilitare un pulsante in base al valore contenuto in una cella di Excel?
In questo articolo ti mostrerò alcuni metodi efficaci per abilitare o disabilitare un pulsante in base al valore di una cella nel foglio di lavoro di Excel.
Abilitare o disabilitare due pulsanti in base ai dati di due colonne con codice VBA
Abilitare o disabilitare un pulsante in base ai valori di due celle con codice VBA
Abilitare o disabilitare due pulsanti in base ai dati di due colonne con codice VBA
Ad esempio, ho due pulsanti di comando in un foglio di lavoro: se la colonna A contiene dati, il pulsante1 è abilitato e il pulsante 2 è disabilitato; se la colonna C contiene dati, il pulsante 2 è abilitato e il pulsante 1 è disabilitato. Per risolvere questa attività, il seguente codice VBA potrebbe esserti utile.
1. Fai clic con il tasto destro sul foglio che contiene i pulsanti, quindi scegli Visualizza codice dal menu contestuale (vedi screenshot):
2. Nella finestra di Microsoft Visual Basic, Applications, copia e incolla il codice seguente nel modulo vuoto:
Codice VBA: abilitare o disabilitare due pulsanti in base a due colonne:
Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Enabled = False
CommandButton2.Enabled = False
If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
CommandButton2.Enabled = True
End If
If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
CommandButton1.Enabled = True
End If
End Sub
Nota: nel codice precedente, CommandButton1 e CommandButton2 sono i nomi dei pulsanti, mentre A:A e C:C sono le due colonne utilizzate per abilitare o disabilitare i pulsanti. Modificale in base alle tue esigenze.
3. Quindi salva e chiudi la finestra del codice: otterrai subito il risultato desiderato!
(1.) Se si inseriscono dati nella colonna A, il pulsante 1 è abilitato e il pulsante 2 è disabilitato, vedi screenshot:
(2.) Se si inseriscono dati nella colonna C, il pulsante 2 è abilitato e il pulsante 1 è disabilitato, vedi screenshot:
(3.) Se sia la colonna A che la colonna C contengono dati, entrambi i pulsanti sono abilitati, vedi screenshot:
(4.) Entrambi i pulsanti sono disabilitati se non ci sono dati né nella colonna A né nella colonna C, vedi screenshot:
Abilitare o disabilitare un pulsante in base ai valori di due celle con codice VBA
Se si desidera abilitare o disabilitare un pulsante di comando in base ai valori di due celle — ad esempio, abilitando il pulsante quando il valore in A1 è maggiore di quello in B1 e disabilitandolo in caso contrario — anche il seguente codice VBA può rivelarsi utile.
1. Fare clic con il tasto destro sul foglio che contiene il pulsante, quindi scegliere Visualizza codice dal menu contestuale. Nella finestra di Microsoft Visual Basic, Applications, copiare e incollare il codice seguente nel modulo vuoto, vedi screenshot:
Codice VBA: abilitare o disabilitare un pulsante in base ai valori di due celle:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetAdd As String
Dim xTemp As Double
On Error GoTo ExitSub
TargetAdd = Target.Address
CommandButton1.Enabled = False
If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
If Range("A1") > Range("B1") Then
CommandButton1.Enabled = True
End If
End If
ExitSub:
End Sub
Nota: nel codice precedente, A1 e B1 sono i valori delle celle utilizzati, mentre CommandButton1 è il nome del pulsante; modifica questi elementi in base alle tue esigenze.
2. Quindi salva e chiudi la finestra del codice. Ora, se il valore della cella A1 è maggiore di quello della cella B1, il pulsante sarà abilitato; altrimenti, se il valore in A1 è minore di quello in B1, il pulsante sarà disabilitato. Vedi screenshot:
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi