Code chọn vùng Pivot khi vùng dữ liệu thay đổi

[Phương Phương mito]

Kính gửi Anh Chị,
Em có file báo cáo bán hàng và em thực hiện Pivotable theo File. Khi em chọn Slicer Kho thì Pivotable2, Pivotable3, Pivotable4 sẽ thay đổi co dãn theo vùng dữ liệu. Em muốn tạo một Range theo kiểu biến như Module trong File như sau: rangestr = Array("C2:G2", "C4: D8", "C15:E35", "C54:E65", "C80:G80").

Em dùng code gì để gán cho vùng chẳng hạn: "C4: D8" là vùng của Pivotable2, "C15:E35" là vùng của Pivotable3, "C54:E65" là vùng của Pivotable4.

 

[ptm0412]

Sub PIVOTAREA()

Dim RangeUnion As Range

Set RangeUnion = Union([C4].CurrentRegion, [C15].CurrentRegion, [C54].CurrentRegion)

RangeUnion.Select

End Sub

 

[Phương Phương mito]

Sub PIVOTAREA()

Dim RangeUnion As Range

Set RangeUnion = Union([C4].CurrentRegion, [C15].CurrentRegion, [C54].CurrentRegion)

RangeUnion.Select

End Sub

Em cảm ơn Anh đã giúp đỡ em ạ !

 

[Phương Phương mito]

Sub PIVOTAREA()

Dim RangeUnion As Range

Set RangeUnion = Union([C4].CurrentRegion, [C15].CurrentRegion, [C54].CurrentRegion)

RangeUnion.Select

End Sub

Kính gửi Anh,
Em đang muốn in các vùng chứa Pivot này ra WORD và các bảng biểu từ Pivot này ra dạng ảnh. Em có Code kèm theo. Em muốn vùng Pivot này em đã tham khảo đoạn này của anh RangeUnion = Union([C4].CurrentRegion, [C15].CurrentRegion, [C54].CurrentRegion) và đã lập như sau:

rangestr = Array("C1:G2", [C4].CurrentRegion, [C15].CurrentRegion, [C54].CurrentRegion, "C70:G70") nhưng nó không được
Em vẫn phải quy lại kiểu thiết lập vùng cố định rangestr = Array("C1:G2", "C4:G8", "C15:E40", "C50:E63", "C70:G70") mới xuất ra được ạ. Code có ưu điểm là xuất dạng ảnh bao nhiêu vùng cũng được nhưng mà phải cố định nó ạ.
Em gửi File kèm theo. Anh xem xét giúp em với ạ. Em cảm ơn anh ạ.

 

[ptm0412]

rangestr = Array("C1:G2", [C4].CurrentRegion.Address, [C15].CurrentRegion.Address, [C54].CurrentRegion.Address, "C70:G70")

 

[Phương Phương mito]

rangestr = Array("C1:G2", [C4].CurrentRegion.Address, [C15].CurrentRegion.Address, [C54].CurrentRegion.Address, "C70:G70")

Quá chính xác rồi Anh ạ. Em cảm ơn Anh nhiều ạ !

 

[ptm0412]

Quá chính xác rồi Anh ạ. Em cảm ơn Anh nhiều ạ !

4 điều cơ bản trong bài của bạn:
- Select: Chỉ có range mới select được, chuỗi ký tự không select được
- Range: Muốn range để select thì biến phải là object và gán giá trị cho object bằng từ khóa Set
- Biến string phải gán giá trị string, vậy phải tìm giá trị string của range bằng thuộc tính Address
- Muốn cái gì phải hỏi cái ấy, chứ hỏi sao người ta trả lời vậy mất công hỏi lần 2: Muốn copy paste qua word mà hỏi select!

 

[Phương Phương mito]

Dạ vâng ạ. Tại em muốn hỏi thế cho đơn giản rồi em làm ạ. Nhưng em chưa hiểu bản chất Code nên không được ạ. Cảm ơn anh đã tận tình chỉ bảo em ạ !

4 điều cơ bản trong bài của bạn:
- Select: Chỉ có range mới select được, chuỗi ký tự không select được
- Range: Muốn range để select thì biến phải là object và gán giá trị cho object bằng từ khóa Set
- Biến string phải gán giá trị string, vậy phải tìm giá trị string của range bằng thuộc tính Address
- Muốn cái gì phải hỏi cái ấy, chứ hỏi sao người ta trả lời vậy mất công hỏi lần 2: Muốn copy paste qua word mà hỏi select!