Lấy dữ liệu từ Pivot table băng VBA (1 người xem)

[adamduong]

Chào diễn đàn,

Trên Pivot table, khi bạn rà chuột đến một vị trí nào đó, đều hiển thị được thông tin data liên quan đến record hiện tại đó.

Nhờ diễn đàn hướng dẫn tôi code vba để lấy dữ liệu của record hiện tại tại vị trí của cell mà con trỏ đang đứng.

Vi dụ: Data có 3 field F1, F2, F3, thì khi đứng tại vị trí một cell nằm trong pivot mình có thể lấy được thông tin F1, F2, F3 liên quan. Nếu mình để con trỏ ở mục b1(F2) thì mình lấy được b(F1) và 3(F3)

[TABLE="width: 116"]
[TR]
[TD="width: 79"]Sum of F3
[/TD]
[TD="width: 37"][/TD]
[TD="width: 38"][/TD]
[/TR]
[TR]
[TD]F1
[/TD]
[TD]F2
[/TD]
[TD]Total
[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]a
[/TD]
[TD="bgcolor: transparent"]a1
[/TD]
[TD="bgcolor: transparent, align: right"]1
[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]a Total
[/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent, align: right"]1
[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]b
[/TD]
[TD="bgcolor: transparent"]b1
[/TD]
[TD="bgcolor: transparent, align: right"]2
[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent"]b2
[/TD]
[TD="bgcolor: transparent, align: right"]3
[/TD]
[/TR]
[TR]
[TD="bgcolor: transparent"]b Total
[/TD]
[TD="bgcolor: transparent"][/TD]
[TD="bgcolor: transparent, align: right"]5
[/TD]
[/TR]
[TR]
[TD]Grand Total
[/TD]
[TD][/TD]
[TD="align: right"]6

[/TD]
[/TR]
[/TABLE]


Nhờ diễn đàn hướng dẫn. Cảm ơn