Hoe verander ik de celwaarde door op de cel te klikken?
Is het voor ons mogelijk om de celwaarde te wijzigen door op een cel in Excel te klikken? Als u bijvoorbeeld op een specifieke cel A1 klikt, wordt de eerste keer de tekst 'Excel' weergegeven, als u nogmaals op de A1 klikt, wordt de tekst 'Word' weergegeven en wordt de tekst 'Outlook' weergegeven wanneer u hierop klikt. cel in de derde keer. In dit geval zal de waarde in cel A1 terugkerend zijn van "Excel" naar "Word" naar "Outlook" naar "Excel" ... zoals in de volgende schermafbeelding:
Verander de celwaarde door op een cel met VBA-code te klikken
Verander de celwaarde door op een cel met VBA-code te klikken
Om deze taak in Excel te voltooien, kan de volgende VBA-code u helpen, doe dit als volgt:
1. Klik met de rechtermuisknop op de bladtab waarvan u de celwaarde wilt wijzigen door op te klikken en kies Bekijk code vanuit het contextmenu en in het geopende Microsoft Visual Basic voor toepassingen venster, kopieer en plak de volgende code in de lege module:
VBA-code: verander de celwaarde 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
Note: In de bovenstaande code, A1 is de cel waarin u de waarde wilt wijzigen door te klikken op "Excel","Woord","Outlook鈥漐ijn de celwaarden die u regelmatig wilt weergeven, kunt u ze naar wens wijzigen.
2. Nadat u de code hebt geplakt, slaat u de code op en sluit u het venster. Wanneer u nu de eerste keer op cel A1 klikt, wordt de tekst "Excel" meteen weergegeven, klik er nogmaals op, de tekst "Word" wordt weergegeven, de tekst "Outlook" wordt weergegeven als u er een derde keer op klikt, zie screenshot:
Meer gerelateerde artikelen:
Hoe gegevens filteren door op celinhoud in Excel te klikken?
Hoe kolomgegevens sorteren door op de koptekst in Excel te klikken?
Beste Office-productiviteitstools
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...
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!