Vai al contenuto principale

Come abilitare o disabilitare il pulsante in base al valore della cella in Excel?

In questo articolo, parlerò di alcuni metodi per abilitare o disabilitare il pulsante in base al valore della cella nel foglio di lavoro di Excel.

Abilita o disabilita due pulsanti in base ai dati di due colonne con codice VBA

Abilita o disabilita un pulsante in base a due valori di cella con codice VBA


Abilita o disabilita 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 aiutarti.

1. Fare clic con il pulsante destro del mouse sul foglio che contiene i pulsanti, quindi scegliere Visualizza codice dal menu contestuale, vedi screenshot:

2. Nel Microsoft Visual Basic, Applications Edition finestra, copia e incolla il codice seguente nel modulo vuoto:

Codice VBA: abilita o disabilita 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

Note:: Nel codice sopra, PulsanteComando1 ed PulsanteComando2 sono i nomi dei pulsanti, AA ed C: C sono le due colonne che utilizzi per abilitare o disabilitare due pulsanti, modificale secondo le tue necessità.

3. Quindi salva e chiudi la finestra del codice, ora otterrai il seguente risultato di cui hai bisogno:

(1.) Se si digitano i dati nella colonna A, il pulsante 1 è abilitato e il pulsante 2 è disabilitato, vedere screenshot:

(2.) Se si digitano i dati nella colonna C, il pulsante 2 è abilitato e il pulsante 1 è disabilitato, vedere screenshot:

(3.) Sia la colonna A che la colonna C hanno dati, due pulsanti sono tutti abilitati, vedi screenshot:

(4.) Due pulsanti sono tutti disabilitati se non ci sono dati nella colonna A e nella colonna C, vedi screenshot:


Abilita o disabilita un pulsante in base a due valori di cella con codice VBA

Se si desidera abilitare o disabilitare un pulsante di comando in base a due valori di cella, ad esempio, quando il valore in A1 è maggiore del valore in B1, il pulsante è abilitato, altrimenti il ​​pulsante è disabilitato. Anche il seguente codice VBA può farti un favore.

1. Fare clic con il pulsante destro del mouse sul foglio che contiene il pulsante, quindi scegliere Visualizza codice dal menu contestuale, in Microsoft Visual Basic, Applications Edition finestra, copia e incolla il codice seguente nel modulo vuoto, vedi screenshot:

Codice VBA: abilita o disabilita un pulsante in base a due valori di cella:

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

Note:: Nel codice sopra, A1 ed B1 sono i valori delle celle che utilizzi, TastoComman1 è il nome del pulsante, modificalo con il tuo.

2. Quindi salva e chiudi la finestra del codice, ora, se il valore della cella in A1 è maggiore di B1, il pulsante è abilitato, altrimenti, se il valore della cella in A1 è inferiore a B1, il pulsante è disabilitato, vedi screenshot:

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

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...

Descrizione


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I receive a "Expected Function or variable" error when I incorporate this code - could you show the code you set up for the two buttons? May help me solve the error.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations