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