excel - 删除/添加工作表事件 - VBA

Question

是否有任何事件在工作表删除和添加时触发？我已经尝试过

Private Sub Workbook_NewSheet(ByVal Sh As Object)
End Sub

但此事件仅在我添加工作表时才有效。就我而言，我需要一些可以在“添加”和“删除”中工作的东西。

任何帮助将不胜感激。

Answer 1

这是另一种方法

逻辑:

1. 在删除工作表之前，统计工作簿中的工作表数量
2. 激活工作表后，检查工作簿中的工作表数量

代码:

Dim PreviousWorksheetCount As Integer

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim CurrentWorksheetCount As Integer

    CurrentWorksheetCount = ThisWorkbook.Sheets.Count

    If CurrentWorksheetCount < PreviousWorksheetCount Then
        MsgBox "Sheet was deleted"
    End If
End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)
    PreviousWorksheetCount = ThisWorkbook.Sheets.Count
End Sub