Gán giá trị cell cho filter Pivot Table (1 người xem)

[dinhphuong9327]

Chào Các A/C GPE,

Xin các A/C hướng dẫn giúp em cách gán giá trị từ 1 ô cho filter của pivot table để khi thay đổi giá trị tại ô này thì filter của pivot cũng thay đổi đổi theo.

Có 2 sheet pivot cần gán giá trị của ô, em xin gởi file đính kèm, Mong nhận được hướng dẫn của các A/C.

Em xin càm ơn

 

[giangleloi]

Chào Các A/C GPE,

Xin các A/C hướng dẫn giúp em cách gán giá trị từ 1 ô cho filter của pivot table để khi thay đổi giá trị tại ô này thì filter của pivot cũng thay đổi đổi theo.

Có 2 sheet pivot cần gán giá trị của ô, em xin gởi file đính kèm, Mong nhận được hướng dẫn của các A/C.

Em xin càm ơn

Vấn đề này kết hợp bằng code VBA thì không khó chút nào. Nếu chịu xài, bạn thử code dưới đây (Bỏ code vào sheet Pivot 1).

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
  [D1].Value = [A2].Value
  [G1].Value = [A2].Value
  [D12].Value = [A2].Value
End If
End Sub

 

[dinhphuong9327]

Cám ơn Giangleloi nhiều ạ.

Còn 01 pivot nằm ở sheet pivot 2 cũng cần gán giá trị của Sheet Pivot 1 - A2, bạn có thể dùng 01 code chung cho các filter pivot cần gán giá trị không?

Mong bạn giúp thêm

 

[giangleloi]

Cám ơn Giangleloi nhiều ạ.

Còn 01 pivot nằm ở sheet pivot 2 cũng cần gán giá trị của Sheet Pivot 1 - A2, bạn có thể dùng 01 code chung cho các filter pivot cần gán giá trị không?

Mong bạn giúp thêm

Bạn thêm 1 dòng code tương tự là được mà.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
  [D1].Value = [A2].Value
  [G1].Value = [A2].Value
  [D12].Value = [A2].Value
[COLOR=#ff0000]  Sheet3.[B1].Value = [A2].Value[/COLOR]
End If
End Sub

 

[dinhphuong9327]

Cám ơn Giangleloi nhiều.

Bạn cho mình hỏi thêm 1 chút nữa thôi là trong trường hợp Ô A2 của là 1 công thức - giá trị sẽ thay đổi theo điều kiện khác, thì có cách nào các filter của Pivot tự động nhận giá trị của A2 mà không cần phải chọn ô A2 và bấm enter không?

Trân trọng

 

[giangleloi]

Cám ơn Giangleloi nhiều.

Bạn cho mình hỏi thêm 1 chút nữa thôi là trong trường hợp Ô A2 của là 1 công thức - giá trị sẽ thay đổi theo điều kiện khác, thì có cách nào các filter của Pivot tự động nhận giá trị của A2 mà không cần phải chọn ô A2 và bấm enter không?

Trân trọng

Nói chung là bạn muốn thay đổi theo điều kiện như thế nào bạn hãy nói rõ ra (có file càng tốt), chứ thật sự không hiểu ý bạn cho lắm.

 

[dinhphuong9327]

Xin gởi thêm file đính kèm.

Cám ơn giangleloi.

 

[giangleloi]

Xin gởi thêm file đính kèm.

Cám ơn giangleloi.

Theo tôi hiểu thì bạn muốn gõ vào ô B1 hoặc B2 kết quả tại ô D2 sẽ thay đổi. Và Pivot Table cũng sẽ thay đổi. Thử code sau nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Or Target.Address = "$B$2" Then
  [G1].Value = [D2].Value
  [J1].Value = [D2].Value
  [G12].Value = [D2].Value
  Sheet3.[B1].Value = [D2].Value
End If
End Sub

 

[dinhphuong9327]

Oh, cám ơn giangleloi nhiều, đúng ý mình muốn rồi

Trân trọng