Sử dụng Pivot table khi khóa bảng tính?

[Hoa Vinh]

Chào Anh/chị và các Bạn trên diễn đàn, em có vấn đề nhỏ mong Anh/chị tư vấn giúp:

Khi sử dụng chức năng Pivot table em có thể tạo nhiều Pivot table từ 01 dữ liệu gốc không? khi dữ liệu gốc thay đổi có ảnh hưởng tới các Pivot table này không? và khi dùng chức năng khóa bảng tính protect sheet thì Pivot talbe có thể dụng lọc như thường được không? Xin cảm ơn Anh/chị và các Bạn đã đọc bài và tư vấn giúp em. Chúc Anh/chị và các Bạn cuối tuần vui vẻ!

 

[nmhung49]

Khi sử dụng chức năng Pivot table em có thể tạo nhiều Pivot table từ 01 dữ liệu gốc không? khi dữ liệu gốc thay đổi có ảnh hưởng tới các Pivot table này không?

Tất nhiên là được rồi bạn muốn Pivot tạo bảo cáo nhưng thế nào là tuỳ bạn chọn trường cách đặt những trường đó theo yêu cầu của bạn, Nếu dữ liệu gốc thay đổi thì sẽ ảnh hưởng đến báo cáo nếu bạn chọn Refresh Pivot còn không thì u như kỹ

và khi dùng chức năng khóa bảng tính protect sheet thì Pivot talbe có thể dụng lọc như thường được không? Xin cảm ơn Anh/chị và các Bạn đã đọc bài và tư vấn giúp em. Chúc Anh/chị và các Bạn cuối tuần vui vẻ!

Bạn vẫn có thể sử dụng Pivot nếu khi bạn chọn Protect sheet chỗ Allow all users bạn check vào mục Use Pivot Table nhưng khi Refresh sẽ báo lỗi

 

[Hoa Vinh]

Bạn vẫn có thể sử dụng Pivot nếu khi bạn chọn Protect sheet chỗ Allow all users bạn check vào mục Use Pivot Table nhưng khi Refresh sẽ báo lỗi

Vậy là khi dữ liệu gốc thay đổi bảng biểu pivot table bị lỗi,có cách nào khăc phục không Bạn.

 

[nmhung49]

Hình như hổng có cách bạn ah, mình nghĩ phải dùng code thôi bạn, bạn dùng nhiều Pivot thì có thể dùng đoạn code này

Sub RefreshPT()
    Dim PT As PivotTable
    With ActiveSheet
        .Unprotect "GPE" 'Pass cua ban neu ko co thi ban bo trong
        For Each PT In .PivotTables
            PT.RefreshTable
        Next PT
        .Protect "GPE"
    End With
End Sub

 

[cachep87]

Hình như hổng có cách bạn ah, mình nghĩ phải dùng code thôi bạn, bạn dùng nhiều Pivot thì có thể dùng đoạn code này

Sub RefreshPT()
    Dim PT As PivotTable
    With ActiveSheet
        .Unprotect "GPE" 'Pass cua ban neu ko co thi ban bo trong
        For Each PT In .PivotTables
            PT.RefreshTable
        Next PT
        .Protect "GPE"
    End With
End Sub

Bạn ơi, có thể dùng pivot table làm dữ liệu gốc cho một hoặc nhiều pivot table mới không nhỉ? Cảm ơn Bạn nhiều!

 

[nmhung49]

Bạn ơi, có thể dùng pivot table làm dữ liệu gốc cho một hoặc nhiều pivot table mới không nhỉ? Cảm ơn Bạn nhiều!

Được bạn ah bạn thí nghiệm thì biết chứ gì, mà mình có cần thiết phải lầy pivot table đó làm dữ liệu gốc không, trong khi đó pivot đó lấy từ dữ liệu nguồn sao mình không lấy từ dữ liệu nguồn????

 

[Sherry_5588]

Hình như hổng có cách bạn ah, mình nghĩ phải dùng code thôi bạn, bạn dùng nhiều Pivot thì có thể dùng đoạn code này

[QUOTE="nmhung49, post: 393582, member: 208017"]
Sub RefreshPT() Dim PT As PivotTable With ActiveSheet .Unprotect "GPE" 'Pass cua ban neu ko co thi ban bo trong For Each PT In .PivotTables PT.RefreshTable Next PT .Protect "GPE" End With End Sub
[/QUOTE]
[QUOTE="nmhung49, post: 393582, member: 208017"]
Hình như hổng có cách bạn ah, mình nghĩ phải dùng code thôi bạn, bạn dùng nhiều Pivot thì có thể dùng đoạn code này

[PHP]Sub RefreshPT()
    Dim PT As PivotTable
    With ActiveSheet
        .Unprotect "GPE" 'Pass cua ban neu ko co thi ban bo trong
        For Each PT In .PivotTables
            PT.RefreshTable
        Next PT
        .Protect "GPE"
    End With
End Sub

[/QUOTE]

Hình như hổng có cách bạn ah, mình nghĩ phải dùng code thôi bạn, bạn dùng nhiều Pivot thì có thể dùng đoạn code này

Sub RefreshPT()
    Dim PT As PivotTable
    With ActiveSheet
        .Unprotect "GPE" 'Pass cua ban neu ko co thi ban bo trong
        For Each PT In .PivotTables
            PT.RefreshTable
        Next PT
        .Protect "GPE"
    End With
End Sub

Hình như hổng có cách bạn ah, mình nghĩ phải dùng code thôi bạn, bạn dùng nhiều Pivot thì có thể dùng đoạn code này

Sub RefreshPT()
    Dim PT As PivotTable
    With ActiveSheet
        .Unprotect "GPE" 'Pass cua ban neu ko co thi ban bo trong
        For Each PT In .PivotTables
            PT.RefreshTable
        Next PT
        .Protect "GPE"
    End With
End Sub

Mình chạy xong đoạn code thì bảng pivot có refresh rồi nhưng ko xài đc các chức năng pivot như: thêm trường,... có cách nào khắc phục ko ạ?

 

[ptm0412]

Mình chạy xong đoạn code thì bảng pivot có refresh rồi nhưng ko xài đc các chức năng pivot như: thêm trường,... có cách nào khắc phục ko ạ?

Cách duy nhất là đừng protect nữa, hoặc gỡ protect ra để làm.