Jak kliknout na písmeno abecedy a přejít do buňky, která začíná tímto písmenem v aplikaci Excel?

Víte, jak při používání listu aplikace Excel s velkým množstvím dat rychle přejít nebo najít určité buňky, které obsahují zadaný obsah? Pomocí metody v tomto článku můžete klepnutím na buňku abecedního písmene přejít do buňky, jejíž obsah začíná tímto písmenem abecedy automaticky.

Kliknutím na písmeno abecedy přejděte do buňky, která začíná daným písmenem s kódem VBA

Kliknutím na písmeno abecedy přejděte do buňky, která začíná daným písmenem s kódem VBA

Chcete-li přejít do buňky kliknutím na buňku abecedy v aplikaci Excel, postupujte následovně.

1. V listu musíte přejít na buňku kliknutím na buňku abecedy, pravým tlačítkem myši na kartu listu a poté na Zobrazit kód z nabídky pravého tlačítka myši. Viz screenshot:

2. Pak a Microsoft Visual Basic pro aplikace objeví se okno, zkopírujte a vložte pod kód VBA do okna Kód.

Kód VBA: Kliknutím na písmeno abecedy přejdete do buňky, která začíná tímto písmenem

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

Pozor: V kódu 1: 1 znamená, že písmena abecedy jsou umístěna v prvním řádku listu.

3. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

Od nynějška se po kliknutí na buňku abecedy automaticky v listu vyberou všechny buňky začínající daným písmenem najednou.

Pokud žádná buňka nezačíná vybraným písmenem, zobrazí se dialogové okno Kutools pro Excel, jak je uvedeno níže.