Hoppa till huvudinnehåll

Hur aktiverar eller inaktiverar jag knapp baserat på cellvärde i Excel?

Den här artikeln kommer jag att prata om några metoder för att aktivera eller inaktivera knapp baserat på cellvärde i Excel-kalkylblad.

Aktivera eller inaktivera två knappar baserat på två kolumndata med VBA-kod

Aktivera eller inaktivera en knapp baserat på två cellvärden med VBA-kod


Aktivera eller inaktivera två knappar baserat på två kolumndata med VBA-kod

Till exempel har jag två kommandoknappar i ett kalkylblad, om kolumn A har data är knappen1 aktiverad och knapp 2 är inaktiverad; om kolumn C innehåller data är knapp 2 aktiverad och knapp 1 inaktiveras. För att lösa denna uppgift kan följande VBA-kod hjälpa dig.

1. Högerklicka på arket som innehåller knapparna och välj sedan Visa kod från snabbmenyn, se skärmdump:

2. I Microsoft Visual Basic för applikationer kopiera och klistra in koden nedan i den tomma modulen:

VBA-kod: Aktivera eller inaktivera två knappar baserat på två kolumner:

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

Anmärkningar: I ovanstående kod, Kommandoknapp1 och Kommandoknapp2 är knapparnas namn, A: A och C: C är de två kolumner som du använder för att aktivera eller inaktivera två knappar, vänligen ändra dem efter dina behov.

3. Spara sedan och stäng kodfönstret, nu får du följande resultat efter behov:

(1.) Om du skriver data i kolumn A är knapp 1 aktiverad och knapp 2 avaktiverad, se skärmdump:

(2.) Om du skriver data i kolumn C är knapp 2 aktiverad och knapp 1 avaktiverad, se skärmdump:

(3.) Både kolumn A och kolumn C har data, två knappar är alla aktiverade, se skärmdump:

(4.) Två knappar är alla inaktiverade om det inte finns några data i kolumn A och kolumn C, se skärmdump:


Aktivera eller inaktivera en knapp baserat på två cellvärden med VBA-kod

Om du vill aktivera eller inaktivera en kommandoknapp baserat på två cellvärden, till exempel när värdet i A1 är större än värdet i B1, är knappen aktiverad, annars är knappen inaktiverad. Följande VBA-kod kan också göra dig en tjänst.

1. Högerklicka på arket som innehåller knappen och välj sedan Visa kod från snabbmenyn, i Microsoft Visual Basic för applikationer fönster, kopiera och klistra in nedanstående kod i den tomma modulen, se skärmdump:

VBA-kod: Aktivera eller inaktivera en knapp baserat på två cellvärden:

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

Anmärkningar: I ovanstående kod, A1 och B1 är cellvärdena som du använder, Kommandoknapp1 är knappens namn, ändra dem till dina egna.

2. Spara och stäng sedan kodfönstret, nu, om cellvärdet i A1 är större än B1, är knappen aktiverad, annars, om cellvärdet i A1 är mindre än B1, är knappen inaktiverad, se skärmdump:

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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