Code về Refresh Table của Pivot Table

[TKT]

File này mình tổng hợp dữ liệu bằng Pivot table. Hạn chế về Pivot table là ở chỗ không tự Refresh dữ liệu mỗi khi có sự thay đổi từ dữ liệu nguồn mà phải chờ người sử dụng ra lệnh bằng động tác Click phải chuột -> Refresh.

Nhân tiện quý Anh/Chị hướng dẫn Trí viết code này: Khi người sử dụng click chuột vào Sheet "TRICH LOC DANH SACH" khi đó Pivot table tự Refresh.
Xin chân thành cảm ơn.

 

[vanhesing]

Lỗi thế nào? Gữi lên đây xem thử
Code cũ của người ta là:

Private Sub Worksheet_Activate()
    [COLOR=Red][B]ActiveSheet[/B][/COLOR].PivotTables("PivotTable10").PivotCache.Refresh
End Sub

ActiveSheet ở đây chính là sheet chứa PivotTable (Sheet TRICH LOC DANH SACH)
Giờ bạn mang code sang 1 sheet khác, cái ActiveSheet này ngầm nói đến sheet bạn đang đứng chứ có phải là sheet chứa PivotTable đâu
Vậy nên phải sửa thế này mới được:

Private Sub Worksheet_Activate()
  [COLOR=Red][B]Sheets("TRICH LOC DANH SACH")[/B][/COLOR].PivotTables("PivotTable10").PivotCache.Refresh
End Sub

Nếu vẫn chưa làm được, cứ gữi file đang bị lỗi lên đây!

Chào Bác ndu!!
Cho em hỏi nếu refresh 1 lúc 2 pivot ở sheet khác (không phải sheet chứa pivot ) thì làm thế nào ?
Gán ở sheet đó 1 nút button refresh pivot có được ko? như vậy khi nhập dữ liệu vào thì bấm button nó tự refresh dễ hơn .
thanks!!