Cần giúp đỡ về Pivot Table (2 người xem)

[hunglao]

Trong PT của em, em tạo một Macro để lấy giá trị ở ô G2 làm giá trị ở chỗ lọc Weekly, tức là khi G2 có giá trị nào thì chạy Macro sẽ cho lọc Weekly ở giá trị đó. Mong a/c giúp em ạ

Sub Macro1()

ActiveSheet.PivotTables("PivotTable1").ClearAllFilters

ActiveSheet.PivotTables("PivotTable1").PivotFields("Weekly" & Chr(10) & "Report"). _
CurrentPage = 38
End Sub

( EM không biết sao file của em nặng > 500KB , chắc là dó có pivot table nên em nén lại)

 

[huuthang_bd]

Trong PT của em, em tạo một Macro để lấy giá trị ở ô G2 làm giá trị ở chỗ lọc Weekly, tức là khi G2 có giá trị nào thì chạy Macro sẽ cho lọc Weekly ở giá trị đó. Mong a/c giúp em ạ



( EM không biết sao file của em nặng > 500KB , chắc là dó có pivot table nên em nén lại)

Sửa lại thế này:

Sub Macro1()
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Weekly" & Chr(10) & "Report").CurrentPage = [G2].Value
End Sub

 

[hunglao]

thank bro, mình làm dc rồi