Gå til hovedindhold

Hvordan ændres en bestemt celleværdi eller farve, når afkrydsningsfeltet er markeret i Excel?

Denne artikel taler om at ændre værdien eller farven på en bestemt celle med et afkrydsningsfelt. For eksempel, når et bestemt afkrydsningsfelt er markeret, ændres værdien eller baggrundsfarven på en bestemt celle automatisk. Følg nedenstående metoder trin for trin for at håndtere det.

Skift en bestemt celleværdi, når afkrydsningsfeltet er markeret med formlen
Skift en specificeret celleværdi, når afkrydsningsfeltet er markeret med VBA-kode
Skift en bestemt cellefarve, når afkrydsningsfeltet er markeret med VBA-kode


Skift en bestemt celleværdi, når afkrydsningsfeltet er markeret med formlen

Antag, at du har brug for, at celle A1 skal udfyldes med værdien "test", når afkrydsningsfeltet 1 er markeret. Og tøm cellen, når du fjerner markeringen i afkrydsningsfeltet. Gør som følger.

Du skal først linke afkrydsningsfeltet til en bestemt celle og derefter anvende formlen for at opnå det.

1. For at linke afkrydsningsfeltet til en bestemt celle skal du markere den, derefter indtaste = cellehenvisning i formellinjen og trykke på Enter-tasten. Her forbinder jeg afkrydsningsfeltet 1 til celle C2 med indtastning = C2 ind i formellinjen efter markering af afkrydsningsfeltet.

For afkrydsningsfeltet ActiveX Control skal du højreklikke på det og vælge det Ejendomme fra højreklikmenuen. Og i Ejendomme dialogboksen, skal du indtaste den sammenkædede celle i Sammenkædet celle felt, og luk derefter dialogboksen. Se skærmbillede:

2. Vælg den celle, du skal ændre dens værdi (her vælger jeg A1), og indtast derefter formlen = HVIS (C2, "Test", "") ind i formellinjen, og tryk på Indtast nøgle. Se skærmbillede:

Bemærk: I formlen er C2 den sammenkædede celle i afkrydsningsfeltet 1, "Test" er den værdi, du skal vise i celle A1, når afkrydsningsfeltet er markeret.

Du kan se resultaterne som nedenfor vist skærmbilleder efter at have markeret eller fjernet markeringen i det tilsvarende afkrydsningsfelt.


Skift en specificeret celleværdi, når afkrydsningsfeltet er markeret med VBA-kode

Du kan også ændre en bestemt celleværdi, når afkrydsningsfeltet er markeret med VBA-kode. Gør som følger.

1. Højreklik på fanen Ark med den celleværdi, du skal ændre baseret på afkrydsningsfeltet, og klik derefter på Vis kode fra højreklikmenuen.

2. i Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte nedenstående VBA-kode i Kode vindue.

VBA-kode: Skift en specificeret celleværdi, når afkrydsningsfeltet er markeret

Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
    xStr = InputBox("Please enter a value:", "Kutools for Excel")
    xRng.Value = xStr
    If xStr = "" Then CheckBox1.Value = False
Else
    xRng.Value = ""
End If
End Sub

Bemærk: I koden, ChekBox1 er navnet på Afkrydsningsfelt (ActiveX-kontrol). Du kan ændre det efter behov.

3. Tryk på andre + Q taster samtidigt for at lukke Microsoft Visual Basic til applikationer vindue.

4. Vælg en tom celle (A1), som du vil ændre dens værdi ud fra afkrydsningsfeltet, og markér afkrydsningsfeltet 1 i dit regneark. Nu en Kutools til Excel dialogboksen dukker op, indtast venligst den værdi, du vil udfylde i den valgte tomme celle, og klik derefter på OK knap. Se skærmbillede:

Derefter vises den angivne værdi med det samme i den valgte celle. Og når afmarkeringen i afkrydsningsfeltet fjernes, vil cellen være tom.

Bemærk: Denne kode minder dig om at indtaste tekstværdien cirkulært, når du markerer afkrydsningsfeltet hver gang.


Skift en bestemt cellefarve, når afkrydsningsfeltet er markeret med VBA-kode

Dette afsnit viser dig, hvordan du ændrer en bestemt cellefarve, når afkrydsningsfeltet er markeret med VBA-kode.

1. Højreklik på Arkfane med den cellefarve, du skal ændre baseret på afkrydsningsfeltet, og klik derefter på Vis kode fra højreklikmenuen.

2. i Microsoft Visual Basic til applikationer vindue, kopier og indsæt nedenstående VBA-kode i kodevinduet.

VBA-kode: Skift en bestemt cellefarve, når afkrydsningsfeltet er markeret

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
    xRng.Interior.Color = vbRed
Else
    xRng.Interior.Color = xlNone
End If
End Sub

Bemærk: I koden, ChekBox1 er navnet på Afkrydsningsfelt (ActiveX-kontrol). Du kan ændre det efter behov.

3. Vælg en celle, du har brug for for at ændre dens baggrundsfarve, og marker derefter afkrydsningsfeltet. Du kan se udfyldningsfarven på den valgte celle ændres til rød. Og den valgte celle udfyldes uden baggrundsfarve efter afmarkering af afkrydsningsfeltet. Se skærmbilleder:


Relaterede artikler:

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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations