Verileri yalnızca Excel'deki hücre içeriğini tıklatarak nasıl filtreleyebilirim?
Normalde, Excel'de verileri ihtiyacınıza göre filtrelemek için Filtre işlevini uygulayabilirsiniz. Ancak bu yazıda, sadece bir hücre değerine tıklayarak verileri nasıl filtreleyeceğimi anlatacağım. Aşağıdaki verileri örnek olarak alın, A2 hücresine çift tıkladığımda, bu tıklanan değere dayalı tüm ilgili kayıtlar aşağıda gösterilen ekran görüntüsü gibi bir defada filtrelenecektir.
Verileri yalnızca VBA kodu ile bir hücre değerine tıklayarak filtreleyin
Verileri yalnızca VBA kodu ile bir hücre değerine tıklayarak filtreleyin
Burada, bir hücreye tıklayarak verileri filtrelemeniz için bir VBA kodu sağlayacağım, lütfen aşağıdaki işlemleri gerçekleştirin:
1. Öncelikle, verilerinize bir aralık adı verin, lütfen bir aralık adı girin. isim Kutusu, ve bas Keşfet anahtar, ekran görüntüsüne bakın:
2. Hücreye tıklayarak filtrelemek istediğiniz sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden ve açılan Uygulamalar için Microsoft Visual Basic penceresinde, aşağıdaki kodu boş Modüle kopyalayıp yapıştırın:
VBA kodu: Hücre değerine tıklayarak verileri filtreleyin:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim rgTable As Range
Dim rgData As Range
Dim xColumn As Integer
On Error Resume Next
Application.ScreenUpdating = False
Set rgTable = Range("mydata")
With rgTable
Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
xColumn = ActiveCell.Column - .Column + 1
If ActiveSheet.AutoFilterMode = False Then
.AutoFilter
End If
If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
.AutoFilter Field:=xColumn
Else
.AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
End If
End If
End With
Set rgData = Nothing
Set rgTable = Nothing
Application.ScreenUpdating = True
End Sub
not: Yukarıdaki kodda, benim verim veri aralığınız için oluşturduğunuz aralık adıdır, lütfen ihtiyacınıza göre değiştirin.
3. Ardından, kod penceresini kaydedin ve kapatın, şimdi, filtrelemek istediğiniz veri aralığının herhangi bir hücresine çift tıkladığınızda, ilgili kayıtları aşağıdaki gösterilen ekran görüntüsü gibi filtrelenecektir:
Daha ilgili makaleler:
Hücreye tıklayarak hücre değeri nasıl değiştirilir?
Excel'deki başlığa tıklayarak sütun verilerini nasıl sıralayabilirim?
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!