Code cho Pivotable

[Phương Phương mito]

Kính gửi ANh chị trên GPE
Em có File kèm code pivot ạ.
(1) Giờ em muốn khi tự động lọc nó lọc ngày lớn nhất (Ví dụ là ngày 31/05) trong các ngày thì sửa thế nào ạ. Tức đoạn này ạ

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Ngày")
.Orientation = xlPageField
.Position = 1
End With
(2) Em muốn Clear Vùng A:B trước khi Pivot nhưng nó không cho mà em phải dùng Cells.Delete để có chỗ cho Pivot được tạo mới khi bấm nút. Có cách gì khách không ạ vì em không muốn xóa All Cells ạ.

 

[ducdoom]

bạn tham khảo:
(1):

    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Ngày")
        .Orientation = xlPageField
        .Position = 1
        .CurrentPage = "5/31/2018"
    End With

(2):

Dim PT As PivotTable
For Each PT In Sheet1.PivotTables
    PT.TableRange2.Clear
Next

 

[Phương Phương mito]

bạn tham khảo:
(1):

    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Ngày")
        .Orientation = xlPageField
        .Position = 1
        .CurrentPage = "5/31/2018"
    End With

(2):

Dim PT As PivotTable
For Each PT In Sheet1.PivotTables
    PT.TableRange2.Clear
Next

Em cảm ơn anh ạ !