Bagaimana cara memfilter tabel Pivot berdasarkan nilai sel tertentu di Excel?

Biasanya, kami memfilter data dalam Tabel Pivot dengan memilih item dalam daftar drop-down seperti yang ditunjukkan pada gambar di bawah. Sebenarnya, Anda dapat memfilter tabel pivot berdasarkan nilai dalam sel tertentu. Metode VBA dalam artikel ini akan membantu Anda memecahkan masalah.

Filter Tabel Pivot berdasarkan nilai sel tertentu dengan kode VBA

Filter Tabel Pivot berdasarkan nilai sel tertentu dengan kode VBA

Kode VBA berikut dapat membantu Anda memfilter Tabel Pivot berdasarkan nilai sel tertentu di Excel. Silakan lakukan sebagai berikut.

1. Silakan masukkan nilai yang akan Anda filter berdasarkan Tabel Pivot ke dalam sel terlebih dahulu (di sini saya memilih sel H6).

2. Buka lembar kerja berisi Tabel Pivot yang akan Anda filter berdasarkan nilai sel. Kemudian klik kanan tab lembar dan pilih Lihat Kode dari menu konteks. Lihat tangkapan layar:

3. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi jendela, salin di bawah kode VBA ke jendela Kode.

Kode VBA: Filter Tabel Pivot berdasarkan nilai sel

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

Catatan: Di dalam kode,

4. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Kemudian Tabel Pivot memfilter berdasarkan nilai di sel H6 seperti gambar di bawah ini yang ditunjukkan:

Anda dapat mengubah nilai sel sesuai kebutuhan Anda.

Note: Nilai yang Anda ketikkan di sel H6 harus sama persis dengan nilai di daftar tarik-turun Kategori Tabel Pivot.

Artikel terkait:

• Bagaimana cara menggabungkan beberapa lembar menjadi tabel pivot di Excel?
• Bagaimana cara membuat Tabel Pivot dari file Teks di Excel?
• Bagaimana cara menghubungkan filter Tabel Pivot ke sel tertentu di Excel?