Hoe klik je op een letter van het alfabet om naar een cel te gaan die begint met die letter in Excel?

Bij het gebruik van een Excel-werkblad met een grote hoeveelheid gegevens, weet je dan hoe je snel naar bepaalde cellen kunt navigeren of ze kunt vinden die gespecificeerde inhoud bevatten? Met de methode in dit artikel kun je door te klikken op een cel met een letter van het alfabet automatisch naar de cel gaan waarvan de inhoud begint met die letter.

Klik op een letter van het alfabet om naar een cel te gaan die begint met die letter met VBA-code

Klik op een letter van het alfabet om naar een cel te gaan die begint met die letter met VBA-code

Volg de onderstaande stappen om naar een cel te gaan door te klikken op een alfabetcel in Excel.

1. Klik in het werkblad, waarin je naar een cel wilt gaan door te klikken op een alfabetcel, met de rechtermuisknop op het tabblad van het werkblad en klik vervolgens op Weergave Code in het rechtsklikmenu. Zie screenshot:

2. Er verschijnt een Microsoft Visual Basic for Applications-venster. Kopieer en plak de onderstaande VBA-code in het Code-venster.

VBA-code: Klik op een letter van het alfabet om naar een cel te gaan die begint met die letter

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgRtn As Range
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("1:1")) Is Nothing Then
        Set xRg = ActiveSheet.UsedRange
        Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
        For Each xCell In xRg
            If Left(xCell.Value, 1) = Target.Value Then
                If xRgRtn Is Nothing Then
                    Set xRgRtn = xCell
                Else
                    Set xRgRtn = Application.Union(xRgRtn, xCell)
                End If
            End If
        Next
        If xRgRtn.Address = Target.Address Then
            MsgBox "No matched cell found", , "KuTools For Excel"
        Else
            xRgRtn.Select
        End If
    End If
    Application.EnableEvents = True
End Sub

Opmerking: In de code betekent 1:1 dat de letters van het alfabet zich in de eerste rij van het werkblad bevinden.

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

Vanaf nu worden bij het klikken op een alfabetcel automatisch alle cellen die beginnen met die letter in het werkblad geselecteerd.

Als er geen cel begint met de geselecteerde letter, krijg je een Kutools voor Excel dialoogvenster te zien zoals in de onderstaande schermafbeelding.