Nhờ hướng dẫn code VBA khi cập nhập dữ liệu trong Pivottable

[Yugi_Nguyễn]

Xin chào các Anh/Chị trong diễn đàn !
Em xin nhờ mọi người giúp đỡ code VBA
Vấn đề em gặp phải như sau ạ:
- Em có 1 file đính kèm:
+ Tại Sheet1 em có 2 slicer Tuần và Process
+ Khi em chọn thay đổi 1 trong 2 slice đó thì em muốn nó tự động chay Sub " COPY_DULIEU " để biểu đồ thay đổi
+ Ngoài ra có ai có thể sửa giúp em Sub đó chạy nhanh hơn không ạ
Nhờ mn giúp em với ạ
Em xin cảm ơn

 

[nguyenthuy13388]

Xin chào các Anh/Chị trong diễn đàn !
Em xin nhờ mọi người giúp đỡ code VBA
Vấn đề em gặp phải như sau ạ:
- Em có 1 file đính kèm:
+ Tại Sheet1 em có 2 slicer Tuần và Process
+ Khi em chọn thay đổi 1 trong 2 slice đó thì em muốn nó tự động chay Sub " COPY_DULIEU " để biểu đồ thay đổi
+ Ngoài ra có ai có thể sửa giúp em Sub đó chạy nhanh hơn không ạ
Nhờ mn giúp em với ạ
Em xin cảm ơn

tham khảo file

'code tại sheet3'
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Call COPY_DULIEU
End Sub

 

[Yugi_Nguyễn]

tham khảo file

'code tại sheet3'
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Call COPY_DULIEU
End Sub

Cảm ơn anh rất nhiều

 

[SA_DQ]

Đưa bài lên chưa đúng chỗ!

 

[Yugi_Nguyễn]

tham khảo file

'code tại sheet3'
Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Call COPY_DULIEU
End Sub

Anh cho em hỏi thêm 1 chút ạ
Nếu em muốn gán điều kiện để nó tự động chạy code theo 1 Pivottable cố định nào đó thì code sẽ như nào ạ

Bài đã được tự động gộp: 19/5/21

Đưa bài lên chưa đúng chỗ!

Bác giải thích giúp em với ạ
Tại em mới nên không rõ quy định cho lắm
Em cảm ơn

 

[SA_DQ]

Bạn nhờ giúp về VBA, vậy phải đăng vố ngăn 'Lập trình với Excel' mới OK!

 

[nguyenthuy13388]

Nếu em muốn gán điều kiện để nó tự động chạy code theo 1 Pivottable cố định nào đó thì code sẽ như nào ạ

Tham khảo code dưới đây, tuy nhiên với bài này thường tôi không dùng VBA

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
If Target.Name = "tên PivotTable cố định đó" Then
    Call COPY_DULIEU
End If
End Sub

 

[Yugi_Nguyễn]

Bạn nhờ giúp về VBA, vậy phải đăng vố ngăn 'Lập trình với Excel' mới OK!

Vang em cảm ơn anh. lần sau em sẽ chú ý

Bài đã được tự động gộp: 24/5/21

Tham khảo code dưới đây, tuy nhiên với bài này thường tôi không dùng VBA

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
If Target.Name = "tên PivotTable cố định đó" Then
    Call COPY_DULIEU
End If
End Sub

Em cảm ơn nhé