Không chạy được Pivot Table

[thuhacoi]

Chào cả nhà em có một thắc mắc muốn mọi người giúp cho
Em có tham khảo một đoạn code trên diễn đàn với mục đích là khi tạo Pivot table thì dữ liệu ở bảng tổng hợp sẽ tự động cập nhập mà không cần phải dùng đến biểu tượng ! Resfresh Data, nhưng có một lỗi là khi em thực hiện xong bảng excell hoạt động bình thường đúng như mục đích của đoạn code nhưng khi thoát hẳn bảng excell này rồi vào lại thì lại không thực hiện được nữa mà lại phải thủ công ấn ! Resfresh Data

Private Sub Worksheet_Activate()
PivotTables("PivotTable1").PivotCache.Refresh
End Sub

em xin gửi file đính kèm nhờ mọi người giúp cho
Em xin cảm ơn

 

[Hoàng Trọng Nghĩa]

Tôi thấy nó bình thường mà bạn? Vẫn Update mỗi khi Select Sheet4 đó thôi? Không có lỗi nào hết! Tôi thêm vài chi tiết tại sheet1, code vẫn chạy tốt! Không biết máy bạn báo lỗi như thế nào vậy?

Nói thêm là đoạn code này chỉ chạy khi và chỉ khi Sheet4 được chọn vào (sheet Active mà).

 

[thuhacoi]

máy không báo lỗi gì hết



máy không báo lỗi gì hết, chỉ là khi thực hiện thao tác này thi bảng tổng hợp nó không tự cập nhập dữ liệu thôi, chắc là do máy tính của tôi bị làm sao đó. Cảm ơn bạn đã xem bài của tôi.