Gå til hovedindhold

Hvordan aktiveres eller deaktiveres knap baseret på celleværdi i Excel?

Denne artikel vil jeg tale om nogle metoder til at aktivere eller deaktivere knap baseret på celleværdi i Excel-regneark.

Aktiver eller deaktiver to knapper baseret på to søjledata med VBA-kode

Aktiver eller deaktiver en knap baseret på to celleværdier med VBA-kode


Aktiver eller deaktiver to knapper baseret på to søjledata med VBA-kode

For eksempel har jeg to kommandoknapper i et regneark. Hvis kolonne A har data, er knap1 aktiveret, og knap 2 er deaktiveret; hvis Kolonne C indeholder data, er knap 2 aktiveret, og knap 1 er deaktiveret. For at løse denne opgave kan følgende VBA-kode hjælpe dig.

1. Højreklik på det ark, der indeholder knapperne, og vælg derefter Vis kode fra kontekstmenuen, se skærmbillede:

2. I Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte nedenstående kode i det tomme modul:

VBA-kode: Aktiver eller deaktiver to knapper baseret på to kolonner:

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

Bemærk: I ovenstående kode, KommandoKnap1 , KommandoKnap2 er knappernes navne, A: En , C: C er de to kolonner, du bruger til at aktivere eller deaktivere to knapper, bedes du ændre dem efter dit behov.

3. Gem og luk derefter kodevinduet, nu får du følgende resultat efter behov:

(1.) Hvis du skriver data i kolonne A, er knap 1 aktiveret, og knap 2 er deaktiveret, se skærmbillede:

(2.) Hvis du skriver data i kolonne C, er knap 2 aktiveret, og knap 1 er deaktiveret, se skærmbillede:

(3.) Både kolonne A og kolonne C har data, to knapper er alle aktiveret, se skærmbillede:

(4.) To knapper er alle deaktiveret, hvis der ikke er data i kolonne A og kolonne C, se skærmbillede:


Aktiver eller deaktiver en knap baseret på to celleværdier med VBA-kode

Hvis du vil aktivere eller deaktivere en kommandoknap baseret på to celleværdier, som f.eks. når værdien i A1 er større end værdien i B1, er knappen aktiveret, ellers er knappen deaktiveret. Følgende VBA-kode kan også gøre dig en tjeneste.

1. Højreklik på det ark, der indeholder knappen, og vælg derefter Vis kode fra genvejsmenuen i Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte nedenstående kode i det tomme modul, se skærmbillede:

VBA-kode: Aktiver eller deaktiver en knap baseret på to celleværdier:

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

Bemærk: I ovenstående kode, A1 , B1 er de celleværdier, du bruger, Kommandoknap 1 er knappens navn, skal du ændre dem til dine egne.

2. Gem og luk derefter kodevinduet, nu, hvis celleværdien i A1 er større end B1, er knappen aktiveret, ellers, hvis celleværdien i A1 er mindre end B1, er knappen deaktiveret, se skærmbillede:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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