提示關閉來自數據透視表的新工作表

Question

我經常發現，使用數據透視表時，我最終得到了大量來自新工作表的工作表，這些工作表是通過數據透視表下鑽創建的。我認爲一個偉大的宏將是在透視表創建的所有新工作表的右上角顯示一個小的用戶窗體，允許用戶輕鬆刪除工作表並返回到數據透視表。但是，我無法弄清楚如何觸發宏。有任何想法嗎？基本上，只要在透視表中向下鑽取創建新工作表，就需要自動觸發宏。

Answer 1

隨着出已經變得複雜，你可能在尋找這樣的事情...

下 「的ThisWorkbook」 添加以下代碼：

---

EDITED

這是爲我工作：

Private Sub Workbook_NewSheet(ByVal Sh As Object) 
    If Detect_Pivot(Sh) Then 
     Sh.Activate 
     frmSheetOptions.Show 
    End If 
End Sub  

Function Detect_Pivot(wsNew As Worksheet) As Boolean 
    Dim wb As Workbook 
    Dim pvt As PivotTable 
    Dim bNew As Boolean 
    Dim i As Integer 

    i = 0 
    bNew = True 
    Set wb = ThisWorkbook 

    For Each pvt In wsNew.PivotTables 
     i = i + 1 
     s = Split(pvt.SourceData, "!") 
     sName = s(0) 
     If wsNew.Name = sName Then 
      bNew = False 
      Exit For 
     End If 
    Next 
    If i > 0 Then Detect_Pivot = bNew 
End Function 

---

要顯示FRM內部：

Private Sub cmdHide_Click() 
    frmSheetOptions.Hide 
End Sub 

Private Sub cmdDelete_Click() 
    ActiveSheet.Delete 
    frmSheetOptions.Hide 
End Sub 

Private Sub UserForm_Initialize() 
    frmSheetOptions.lblSheetName = ActiveSheet.Name 
End Sub 

Answer 2

要每次創建新的工作表開始的事件，你可以用下面的例子（蒂姆·威廉姆斯的答案）。但是，我不知道如何判斷新工作表是否是從數據透視表創建的。下鑽可能是由數據透視表觸發的事件，在這種情況下，也許您可​​以應用此方法來查找它。這將需要一些調查。

Private WithEvents app As Excel.Application 

Sub Init() 
    Set app = Application 'start capturing events 
End Sub 

Private Sub app_NewWorkbook(ByVal Wb As Workbook) 
    Debug.Print "New" 
End Sub 

Private Sub app_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean) 
    Debug.Print "Before close: " & Wb.Name 
End Sub 

Private Sub app_WorkbookOpen(ByVal Wb As Workbook) 
    Debug.Print "Open: " & Wb.Name 
End Sub