Excel'de belirli bir harfle başlayan hücreye gitmek için o alfabe harfine nasıl tıklanır?

Büyük miktarda veri içeren bir Excel çalışma sayfası kullanırken, belirli içerikler içeren hücrelere hızlı bir şekilde nasıl gidebileceğinizi veya bulabileceğinizi biliyor musunuz? Bu makaledeki yöntemle, otomatik olarak belirli bir alfabetik harfle başlayan hücreye gitmek için bir alfabe harf hücresine tıklayabilirsiniz.

VBA kodu ile belirli bir harfle başlayan hücreye gitmek için alfabe harfine tıklayın

VBA kodu ile belirli bir harfle başlayan hücreye gitmek için alfabe harfine tıklayın

Lütfen Excel'de bir alfabe hücresine tıklayarak belirli bir hücreye gitmek için aşağıdaki adımları izleyin.

1. Çalışma sayfasında, bir alfabe hücresine tıklayarak gitmek istediğiniz hücrede, sayfa sekmesine sağ tıklayın ve ardından sağ tıklama menüsünden Görünüm Kodu'nu seçin. Ekran görüntüsüne bakın:

2. Daha sonra bir Microsoft Visual Basic for Applications penceresi açılır, lütfen aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın.

VBA kodu: Alfabe harfine tıklayarak belirli bir harfle başlayan hücreye gitme

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

Not: Kodda, 1:1, alfabe harflerinin çalışma sayfasının ilk satırında yer aldığı anlamına gelir.

3. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına aynı anda basın.

Şimdi itibaren, bir alfabe hücresine tıkladığınızda, o harfle başlayan tüm hücreler çalışma sayfasında otomatik olarak seçilir.

Eğer seçilen harfle başlayan bir hücre yoksa, aşağıdaki ekran görüntüsünde gösterildiği gibi bir Kutools for Excel iletişim kutusu alacaksınız.