David tự hỏi liệu có cách nào để hiển thị tên của PivotTable trong chính PivotTable hay không.

Câu trả lời ngắn gọn là không có cách nào để làm điều này một cách tự động. Câu trả lời dài hơn là bạn có thể “gian lận” và buộc một tên vào PivotTable. Ví dụ: bạn có thể chọn ô nhãn hàng trong PivotTable và chỉnh sửa nó (F2), thay thế bất kỳ ô nào ở đó bằng bất kỳ tên nào bạn muốn nhập. Điều này khác xa với tính năng tự động và khi bạn làm mới PivotTable, bạn sẽ cần nhớ chỉnh sửa lại ô.

Một cách khác để đặt tên vào PivotTable là sử dụng macro. Có thể có một số cách tiếp cận bạn có thể thực hiện trong macro của mình. Một cách tiếp cận là tạo một bảng dữ liệu mà PivotTable của bạn sẽ dựa trên đó. Cung cấp cho bảng dữ liệu một tiêu đề, trong cột đầu tiên. (Bất kỳ văn bản cũ nào cho tiêu đề sẽ được thực hiện, vì macro sẽ ghi đè lên nó.)

Sau khi bạn tạo PivotTable, hãy chạy macro sau. Nó xác định tên của PivotTable, nhét nó vào tiêu đề của bảng dữ liệu, làm mới PivotTable (để tên xuất hiện ở đó), rồi cập nhật tên của bộ lọc báo cáo PivotTable để nó giống với tên PivotTable.

Sub GetPVName()

Dim pvt As PivotTable     Dim PVName As String

' Get the PivotTable name from the ActiveSheet     ' If there are multiple PivotTables, this approach     ' ensures the macro will work with the last PivotTable     ' in the PivotTables collection     For Each pvt In ActiveSheet.PivotTables         PVName = pvt.Name     Next pvt

' Put PivotTable name as a heading for the first     ' column of the data table     Range("Table1").Cells(0, 1) = PVName

' Refresh the PivotTable     ActiveSheet.PivotTables(PVName).PivotCache.Refresh

' Set the PivotTable name in the report filter     With ActiveSheet.PivotTables(PVName).PivotFields(PVName)

.Orientation = xlPageField         .Position = 1     End With End Sub

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (3233) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.