Hoe het totale aantal klikken in een specifieke cel in Excel te tellen?

Dit artikel gaat over het tellen van het totale aantal klikken in een specifieke cel in Excel.

Tel het totale aantal klikken in een specifieke cel met VBA-code

Tel het totale aantal klikken in een specifieke cel met VBA-code

Volg de onderstaande stappen om het totale aantal klikken in een specifieke cel in Excel te tellen.

1. Klik in het werkblad met de cel waarvan u het totale aantal klikken wilt tellen met de rechtermuisknop op het tabblad van het blad en klik vervolgens op Weergave Code in het contextmenu.

2. Plak in het venster Microsoft Visual Basic for Applications de onderstaande VBA-code in het Code-venster.

VBA-code: Tel het totale aantal klikken in een specifieke cel in Excel

Public xRgS, xRgD As Range
Public xNum As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    If Target.Cells.Count > 1 Then Exit Sub
    Set xRgS = Range("E2")
    If xRgS Is Nothing Then Exit Sub
    Set xRgD = Range("H2")
    If xRgD Is Nothing Then Exit Sub
    If Intersect(xRgS, Target) Is Nothing Then Exit Sub
    xNum = xNum + 1
    xRgD.Value = xNum
End Sub

Opmerking: In de code is E2 de cel waarvan u het totale aantal klikken wilt tellen, en H2 is de uitvoercel voor de telling. Pas deze aan naar wens.

3. Druk op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.

Vanaf nu zal bij het klikken op cel E2 in dit specifieke werkblad het totale aantal klikken automatisch worden weergegeven in cel H2, zoals in de onderstaande schermafbeelding te zien is. Als u bijvoorbeeld 5 keer op cel E2 klikt, wordt het getal 5 weergegeven in cel H2.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!