Excel'de bu harfle başlayan hücreye gitmek için alfabe harfine nasıl tıklanır?
Büyük miktarda veri içeren bir Excel çalışma sayfası kullanırken, belirtilen içeriği içeren belirli hücrelere nasıl hızlı bir şekilde gidileceğini veya bu hücreleri nasıl bulacağınızı biliyor musunuz? Bu makaledeki yöntemle, o alfabe harfiyle otomatik olarak içeriğin başladığı hücreye gitmek için bir alfabe harf hücresine tıklayabilirsiniz.
VBA kodu ile bu harfle başlayan hücreye gitmek için alfabe harfine tıklayın
VBA kodu ile bu harfle başlayan hücreye gitmek için alfabe harfine tıklayın
Excel'de bir alfabe hücresine tıklayarak bir hücreye gitmek için lütfen aşağıdaki işlemleri yapın.
1. Çalışma sayfasında, bir alfabe hücresine tıklayarak bir hücreye gitmeniz, sayfa sekmesine sağ tıklamanız ve ardından Kodu Görüntüle sağ tıklama menüsünden. Ekran görüntüsüne bakın:
2. Sonra a Uygulamalar için Microsoft Visual Basic penceresi açılır, lütfen VBA kodunu kopyalayıp Kod penceresine yapıştırın.
VBA kodu: Bu harfle başlayan hücreye gitmek için alfabe harfine tıklayın
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. Tuşuna basın. Ara Toplam + Q kapatmak için aynı anda tuşları Uygulamalar için Microsoft Visual Basic pencere.
Bundan böyle, bir alfabe hücresine tıklandığında, o harfle başlayan tüm hücreler çalışma sayfasında bir defada otomatik olarak seçilir.
Seçilen harfle hiçbir hücre başlamazsa, aşağıda gösterilen ekran görüntüsü gibi bir Kutools for Excel iletişim kutusu alırsınız.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!