自動格式數據透視表向下鑽取

我在Excel中有一個數據透視表，它顯示了我們網站的推薦域名。當您向下鑽取時，會顯示引薦來自的特定頁面。數據透視表按推薦人數（從最高到最低）排序。但是，當您深入研究時，沒有任何訂單。雖然手動排序鑽取並不困難，但我在演示中使用電子表格，並且不想在演示期間播放數據和格式。自動格式數據透視表向下鑽取

有沒有辦法自動格式化向下鑽取？像按引薦次數排序，也許調整幾行？

2012-07-20 ccarnley7

此所述的ThisWorkbook代碼模塊中：

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
ans = MsgBox("Format this sheet?", vbYesNo) 
If ans = vbYes Then doFormatting Sh 
End Sub

並且這在標準的代碼模塊：

Sub doFormatting(sht As Worksheet) 
MsgBox "formatting new sheet: " & sht.Name 
End Sub

（當然，插入如所期望的格式）

2012-07-20 19:32:01 SeanC

肖恩，這似乎工作得很好，我得到了調整工作。我還有另外一個問題。我對VBA相當陌生，在哪裏可以找到關於要排序的代碼的一些信息？我甚至不知道該從哪裏開始工作。 – ccarnley7 2012-07-20 20:58:38

記錄宏是查看需要什麼代碼的理想位置。有很多次我記錄了一個宏，然後編輯這個宏以使其更加通用（並且在代碼中按'F1'來理解參數） – SeanC 2012-07-20 21:13:03

我不知道你是否在尋找vba解決方案，但我非常確定該功能已經存在。

您可以對任何向下鑽取字段進行排序。

如果在演示過程中單擊幾個按鈕太多不必擔心，那麼我會建議在下一個PPT幻燈片/工作表上放置一個數據透視表的修改副本。

例如：

Pivot Table Explanation

我不知道這是否圖像顯示了你。

2012-07-20 19:55:13 Stepan1010

回答