İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də mobil məzmunu tıklayaraq məlumatları necə filtreləmək olar?

Normal olaraq, Excel-də, ehtiyaclarınıza görə süzgə üçün Filtr funksiyasını tətbiq edə bilərsiniz. Lakin, bu yazıda, bir hüceyrə dəyərini tıklayaraq məlumatların necə süzülməsi barədə danışacağam. A2 hücresini cüt vurduğumda aşağıdakı məlumatları nümunə götürün, göstərilən ekran görüntüsünün altından bir dəfə bu tıklanan dəyərə əsaslanan bütün qeydlər filtrelenir.

1 düyməsini basın

VBA kodu ilə bir hüceyrə dəyərini tıklayaraq məlumatları süzün


arrow mavi sağ bubble VBA kodu ilə bir hüceyrə dəyərini tıklayaraq məlumatları süzün


Burada bir hüceyrəni tıklayaraq verileri süzgə üçün VBA kodu verəcəyəm, xahiş edirəm:

1. Birincisi, məlumatlarınızı bir sıra adlandırın, xahiş edirik bir sıra adını daxil edin Ad qutusuvə basın Daxil edin açar, bax ekran görüntüsü:

2 düyməsini basın

2. Hücreyi tıklayaraq filtrelemek istediğiniz hesabat sekmesini sağa basın və sonra seçin Kodları baxın kontekst menyusundan və açıldı Proqramlar üçün Microsoft Visual Basic pəncərədə, boş kodu daxil edin və aşağıdakı kodu yapışdırın:

VBA kodu: Cell dəyərini tıklayaraq məlumatları süzün:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20161123
    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

3 düyməsini basın

Qeyd: Yuxarıda göstərilən kodda, mydata veri aralığınız üçün yaratdığınız sıra adınızdır, xahiş edirik onu ehtiyacınıza dəyişdirin.

3. Daha sonra, filtrelemek istediğiniz veri aralığının hər hansı bir hüdudunu cüt vurduğunuzda, kod penceresini saxlayıb yaxınlaşdırın, müvafiq qeydlər göstərilən ekran görüntüsü kimi filtrelenecektir:

4 düyməsini basın


Daha çox əlaqəli məqalələr:

Hüceyrəni tıklayaraq hüceyrə dəyərini necə dəyişdirmək olar?

Excel-də başlığı tıklayaraq sütun məlumatlarını necə düzəltmək olar?



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Daniel · 2 months ago
    Buenas tardes

    Excelente aportación ... lástima que no funcione con un archivo protegido ... qué podría cambiarle para que si funcione?

    Saludos
  • To post as a guest, your comment is unpublished.
    Heitor · 9 months ago
    Muito bom!
    Entretanto, só funciona em um intervalo.
    Eu queria aplicá-lo em uma Tabela, é possível? Ficaria muito agradecido se sim!!