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 SubNot: 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.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin