Ga naar hoofdinhoud

Hoe verander ik een gespecificeerde celwaarde of kleur wanneer het selectievakje is aangevinkt in Excel?

Dit artikel heeft het over het wijzigen van de waarde of kleur van een bepaalde cel door een selectievakje. Als bijvoorbeeld een bepaald selectievakje is aangevinkt, wordt de waarde of achtergrondkleur van een opgegeven cel automatisch gewijzigd. Volg de onderstaande methoden stap voor stap om hiermee om te gaan.

Wijzig een opgegeven celwaarde wanneer het selectievakje is aangevinkt met de formule
Wijzig een opgegeven celwaarde wanneer het selectievakje is aangevinkt met VBA-code
Wijzig een opgegeven celkleur wanneer het selectievakje is aangevinkt met VBA-code


Wijzig een opgegeven celwaarde wanneer het selectievakje is aangevinkt met de formule

Stel dat u cel A1 moet vullen met de waarde "test" wanneer het selectievakje 1 is aangevinkt. En maak de cel leeg wanneer u het selectievakje uitschakelt. Ga als volgt te werk.

U moet het selectievakje eerst aan een bepaalde cel koppelen en vervolgens de formule toepassen om dit te bereiken.

1. Om het selectievakje aan een bepaalde cel te koppelen, selecteert u deze, voert u vervolgens = celverwijzing in de formulebalk in en drukt u op Enter. Hier koppel ik het selectievakje 1 aan cel C2 met invoeren = C2 in de formulebalk nadat u het selectievakje hebt geselecteerd.

Voor ActiveX-besturingselement, klik er met de rechtermuisknop op en selecteer Properties vanuit het rechtsklikmenu. En in de Properties dialoogvenster voert u de gekoppelde cel in het Gekoppelde cel veld en sluit vervolgens het dialoogvenster. Zie screenshot:

2. Selecteer de cel waarvan u de waarde wilt wijzigen (hier selecteer ik A1) en voer de formule in = ALS (C2; "Test", "") in de formulebalk en druk op de Enter sleutel. Zie screenshot:

Note: In de formule is C2 de gekoppelde cel van het selectievakje 1, "Test" is de waarde die u in cel A1 moet weergeven als het selectievakje is aangevinkt.

U kunt de resultaten zien zoals hieronder weergegeven schermafbeeldingen nadat u het bijbehorende selectievakje hebt in- of uitgeschakeld.


Wijzig een opgegeven celwaarde wanneer het selectievakje is aangevinkt met VBA-code

U kunt ook een opgegeven celwaarde wijzigen wanneer het selectievakje is aangevinkt met VBA-code. Ga als volgt te werk.

1. Klik met de rechtermuisknop op de bladtab met de celwaarde die u moet wijzigen op basis van het selectievakje, en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

2. In de Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande VBA-code in het Code venster.

VBA-code: wijzig een opgegeven celwaarde wanneer het selectievakje is aangevinkt

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

Note: In de code, ChekBox1 is de naam van de Selectievakje (ActiveX-besturingselementen). U kunt het naar behoefte wijzigen.

3. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.

4. Selecteer een lege cel (A1) waarvan u de waarde wilt wijzigen op basis van het selectievakje en vink het selectievakje1 in uw werkblad aan. Nu een Kutools for Excel dialoogvenster verschijnt, voer de waarde in die u in de geselecteerde lege cel wilt laten vullen en klik vervolgens op OK knop. Zie screenshot:

Vervolgens wordt de opgegeven waarde onmiddellijk in de geselecteerde cel weergegeven. En als u het selectievakje uitschakelt, is de cel leeg.

Note: Deze code herinnert u eraan dat u de tekstwaarde circulair invoert wanneer u het selectievakje elke keer aanvinkt.


Wijzig een opgegeven celkleur wanneer het selectievakje is aangevinkt met VBA-code

In dit gedeelte wordt uitgelegd hoe u een opgegeven celkleur kunt wijzigen wanneer het selectievakje is aangevinkt met VBA-code.

1. Klik met de rechtermuisknop op het Blad Tab met de celkleur die u moet wijzigen op basis van het selectievakje en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.

2. In de Microsoft Visual Basic voor toepassingen venster, kopieer en plak de onderstaande VBA-code in het codevenster.

VBA-code: verander een opgegeven celkleur wanneer het selectievakje is aangevinkt

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

Note: In de code, ChekBox1 is de naam van de Selectievakje (ActiveX-besturingselementen). U kunt het naar behoefte wijzigen.

3. Selecteer een cel waarvan u de achtergrondkleur wilt wijzigen en vink het selectievakje aan. U kunt zien dat de vulkleur van de geselecteerde cel is gewijzigd in rood. En de geselecteerde cel wordt gevuld zonder achtergrondkleur nadat het selectievakje is uitgeschakeld. Zie screenshots:


Gerelateerde artikelen:

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke 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