nguyenthuan
Thành viên mới
- Tham gia
- 12/12/06
- Bài viết
- 28
- Được thích
- 4
- Nghề nghiệp
- Đi học lóm
Dear các anh,
Kính nhờ các anh giúp em đoạn code này tý ạ
Em có 1 Workbook nguồn tên "PM register".
Em tạo 1 workbook khác, tạo pivot table bằng thủ công trong worksheet có rất nhiều pivot table liên tiếp nhau, mỗi pivot là 1 trường tương ứng.
Giờ em muôn toàn bộ các pivot table trong sheet đó sẽ thay đổi đến cái source từ file PM register. Trong file PM register này em đã đặt 1 range tên là Data.
Code bên dưới ko chạy được, nhờ các anh chỉ giúp em ạ. Em mới tập tành chưa rành các anh đừng chém em ạ.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.HasAutoFormat = False
pt.ShowDrillIndicators = False
pt.ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Workbooks("PM register.xlsx").Worksheets("Fr. PM").Range("Data"), Version:=6)
Next pt
End Sub
Kính nhờ các anh giúp em đoạn code này tý ạ
Em có 1 Workbook nguồn tên "PM register".
Em tạo 1 workbook khác, tạo pivot table bằng thủ công trong worksheet có rất nhiều pivot table liên tiếp nhau, mỗi pivot là 1 trường tương ứng.
Giờ em muôn toàn bộ các pivot table trong sheet đó sẽ thay đổi đến cái source từ file PM register. Trong file PM register này em đã đặt 1 range tên là Data.
Code bên dưới ko chạy được, nhờ các anh chỉ giúp em ạ. Em mới tập tành chưa rành các anh đừng chém em ạ.
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.HasAutoFormat = False
pt.ShowDrillIndicators = False
pt.ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Workbooks("PM register.xlsx").Worksheets("Fr. PM").Range("Data"), Version:=6)
Next pt
End Sub
