Macro set classic lay out cho pivot table (4 người xem)

[daominhtri01]

E hay tạo pivot table layout ở dạng classic nên tạo 1 macro để chuyển và lưu macro ở personal file. Vấn đề là macro chỉ chạy đúng với pivot table đầu tiên. Các bác giúp e sửa lại cái macro để có thể chuyển layout của nhiều table với.
Macro của e nó như sau:

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'
With ActiveSheet.PivotTables("PivotTable1")
.InGridDropZones = True
.RowAxisLayout xlTabularRow
End With
End Sub

 

[ptm0412]

Vì "PivotTables(PivotTable1)" là Pivot đầu tiên

 

[daominhtri01]

Nhưng e lại ko biet sửa chỗ đó sao cho co thể chạy dc nhiều pivot

 

[ptm0412]

Sub Macro1()

  ' Keyboard Shortcut: Ctrl+Shift+L'
Dim PV
For Each PV in ActiveSheet.PivotTables
      With PV
            .InGridDropZones = True
            .RowAxisLayout xlTabularRow
      End With
Next
End Sub

 

[ndu96081631]

Sub Macro1()

  ' Keyboard Shortcut: Ctrl+Shift+L'
Dim PV
For Each PV in ActiveSheet.PivotTables.Count
      With PV
            .InGridDropZones = True
            .RowAxisLayout xlTabularRow
      End With
Next
End Sub

Dư cái .Count sư phụ ơi!
Ngoài ra nếu có 2 PivotTable nằm gần nhau thì code có thể bị lỗi (do ở chế độ Classic thì vùng PivotTable được mở rộng thêm dẫn đến tình trạng cái này đè cái kia)

 

[ptm0412]

Dư cái .Count sư phụ ơi!
Ngoài ra nếu có 2 PivotTable nằm gần nhau thì code có thể bị lỗi (do ở chế độ Classic thì vùng PivotTable được mở rộng thêm dẫn đến tình trạng cái này đè cái kia)

Hic, thấy rồi, mới sửa.
Mấy ngày nay viết code cũng như công thức đều xuống cấp. Ndu sửa giùm vụ bẫy lỗi đi.

 

[ndu96081631]

Hic, thấy rồi, mới sửa.
Mấy ngày nay viết code cũng như công thức đều xuống cấp. Ndu sửa giùm vụ bẫy lỗi đi.

Lỗi này ngoài On Error Resume Next em không biết phải sửa thế nào mới tối ưu (nếu chèn thêm dòng hoặc cột thì biết sẽ chèn vào chổ nào)

 

[daominhtri01]

Với e thì như vậy đã ok rồi. Mỗi sheet e tạo 1 pivot chạy ko thấy lỗi gì. Thanks các bác nhiều