Hoe wijzigt u de celwaarde door op de cel te klikken?
Is het mogelijk om de waarde van een cel in Excel te wijzigen door erop te klikken? Bijvoorbeeld: bij de eerste klik op cel A1 verschijnt de tekst „Excel”; bij een tweede klik op dezelfde cel wordt deze gewijzigd in „Word”; en bij de derde klik verandert de inhoud naar „Outlook”. Vervolgens herhaalt de cyclus zich: na „Outlook” keert de cel terug naar „Excel”, enzovoort — zoals te zien is in de onderstaande schermafbeelding:
Celwaarde wijzigen door op een cel te klikken met VBA-code
Celwaarde wijzigen door op een cel te klikken met VBA-code
Om deze taak in Excel uit te voeren, helpt de volgende VBA-code u op weg. Volg deze stappen:
1. Klik met de rechtermuisknop op het werkbladtab waarvan u de celwaarde wilt wijzigen en kies Code weergeven in het contextmenu. Plak vervolgens in het geopende venster Microsoft Visual Basic for Applications de volgende code in de lege module:
VBA-code: Celwaarde wijzigen door op een cel te klikken:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
Application.EnableEvents = False
With Target
If .Address = Range("A1").Address Then
Select Case .Value
Case "Excel"
.Value = "Word"
Case "Word"
.Value = "Outlook"
Case "Outlook"
.Value = "Excel"
Case Else
.Value = "Word"
End Select
End If
End With
Range("A2").Select
Application.EnableEvents = True
End Sub
Opmerking: In de bovenstaande code is A1 de cel waarvan u de waarde wilt wijzigen door te klikken. De waarden „Excel”, „Word” en „Outlook” zijn de celwaarden die cyclisch worden weergegeven. U kunt ze naar wens aanpassen.
2. Nadat u de code hebt geplakt, slaat u deze op en sluit u dit venster. Wanneer u nu voor de eerste keer op cel A1 klikt, verschijnt direct de tekst „Excel”; bij een tweede klik wordt „Word” weergegeven; en bij de derde klik verschijnt „Outlook”. Zie de schermafbeelding:
Meer gerelateerde artikelen:
Hoe filtert u gegevens in Excel door simpelweg op de celinhoud te klikken?
Hoe sorteert u kolomgegevens door op de koptekst in Excel te klikken?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins