Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com habilitar o desactivar el botó basat en el valor de la cel·la a Excel?

En aquest article, parlaré sobre alguns mètodes per activar o desactivar el botó basat en el valor de la cel·la en full de càlcul d'Excel.

Activa o desactiva dos botons basats en dades de dues columnes amb codi VBA

Activa o desactiva un botó basat en dos valors de cel·la amb codi VBA


Activa o desactiva dos botons basats en dades de dues columnes amb codi VBA


Per exemple, tinc dos botons de comanda en un full de càlcul, si la columna A té dades, el botó 1 està habilitat i el botó 2 es desactiva; si la columna C conté dades, el botó 2 està habilitat, i el botó 1 es desactiva. Per solucionar aquesta tasca, el següent codi VBA us pot ajudar.

1. Feu clic amb el botó dret a la fitxa que conté els botons i, a continuació, trieu Veure codi des del menú contextual, vegeu la captura de pantalla:

2. Al Microsoft Visual Basic per a aplicacions finestra, copieu i enganxeu el codi de sota al mòdul en blanc:

Codi VBA: habiliteu o desactiveu dos botons basats en dues columnes:

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: En el codi anterior, CommandButton1 i CommandButton2 són els noms dels botons, A: A i C: C són les dues columnes que s'utilitzen per activar o desactivar dos botons, si us plau, canvieu-les a la vostra necessitat.

3. A continuació, deseu i tanqueu la finestra del codi, ara, obtindreu el següent resultat a mesura que necessiteu:

(1). Si introduïu dades a la columna A, el botó 1 està habilitat i el botó 2 està desactivat, vegeu la captura de pantalla:

(2). Si introduïu dades a la columna C, el botó 2 està habilitat i el botó 1 està desactivat, vegeu la captura de pantalla:

(3). Tant la columna A com la columna C tenen dades, tots dos botons estan habilitats, vegeu captura de pantalla:

(4). Tots dos botons estan desactivats si no hi ha dades a la columna A i la columna C, vegeu la captura de pantalla:


Activa o desactiva un botó basat en dos valors de cel·la amb codi VBA

Si voleu habilitar o deshabilitar un botó de comanda basat en dos valors de cel·la, com ara, quan el valor en A1 és superior al valor en B1, el botó està habilitat, si no, el botó es desactiva. El següent codi VBA també pot fer-vos un favor.

1. Feu clic amb el botó dret a la fitxa que conté el botó i, a continuació, trieu Veure codi des del menú contextual, al Microsoft Visual Basic per a aplicacions finestra, copieu i enganxeu el codi de sota al mòdul en blanc, vegeu la captura de pantalla:

Codi VBA: habiliteu o desactiveu un botó basat en dos valors de cel·la:

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: En el codi anterior, A1 i B1 són els valors de les cel·les que utilitza, CommanButton1 és el nom del botó, canvieu-lo pel vostre compte.

2. A continuació, deseu i tanqueu la finestra del codi, ara, si el valor de la cel·la a A1 és superior a B1, el botó està habilitat, si el valor de la cel·la a A1 és inferior a B1, el botó està desactivat, vegeu la captura de pantalla:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mike · 3 days ago
    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.