Làm cách nào để liệt kê tất cả các bảng tổng hợp từ một sổ làm việc?
Giả sử bạn có một sổ làm việc lớn chứa nhiều bảng tổng hợp, bây giờ, bạn muốn liệt kê tất cả các bảng tổng hợp trong sổ làm việc này, có được không? Tất nhiên, mã VBA sau trong bài viết này sẽ giúp bạn. Để biết thêm thông tin chi tiết, mời bạn đọc tham khảo bài viết dưới đây.
Liệt kê tất cả các bảng tổng hợp từ một sổ làm việc với mã VBA
Liệt kê tất cả các bảng tổng hợp từ một sổ làm việc với mã VBA
Mã VBA sau có thể giúp bạn liệt kê tất cả các tên bảng tổng hợp cùng với các thuộc tính của chúng, chẳng hạn như phạm vi dữ liệu nguồn, tên trang tính, ngày làm mới, v.v.
1. Mở sổ làm việc của bạn mà bạn muốn liệt kê tất cả các bảng tổng hợp.
2. Giữ ALT + F11 chìa khóa và nó mở Cửa sổ Microsoft Visual Basic for Applications.
3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.
Mã VBA: Liệt kê tất cả các bảng tổng hợp từ một sổ làm việc
Sub ListPivotsInfor()
'Update 20141112
Dim St As Worksheet
Dim NewSt As Worksheet
Dim pt As PivotTable
Dim I, K As Long
Application.ScreenUpdating = False
Set NewSt = Worksheets.Add
I = 1: K = 2
With NewSt
.Cells(I, 1) = "Name"
.Cells(I, 2) = "Source"
.Cells(I, 3) = "Refreshed by"
.Cells(I, 4) = "Refreshed"
.Cells(I, 5) = "Sheet"
.Cells(I, 6) = "Location"
For Each St In ActiveWorkbook.Worksheets
For Each pt In St.PivotTables
I = I + 1
.Cells(I, 1).Value = pt.Name
.Cells(I, 2).Value = pt.SourceData
.Cells(I, 3).Value = pt.RefreshName
.Cells(I, 4).Value = pt.RefreshDate
.Cells(I, 5).Value = St.Name
.Cells(I, 6).Value = pt.TableRange1.Address
Next
Next
.Activate
End With
Application.ScreenUpdating = True
End Sub
4. Sau đó nhấn F5 để chạy mã này, tất cả các tên bảng tổng hợp, phạm vi dữ liệu nguồn, tên trang tính và các thuộc tính khác được liệt kê trong một trang tính mới được đặt ở phía trước trang tính đang hoạt động của bạn như ảnh chụp màn hình sau:
Các bài liên quan:
Làm cách nào để kiểm tra xem bảng tổng hợp có tồn tại trong sổ làm việc không?
Làm cách nào để thêm nhiều trường vào bảng tổng hợp?
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
