WorkbookNewSheet 事件

       

在任何打开的工作簿中新建工作表时产生此事件。

Private Sub object_WorkbookNewSheet(ByVal Wb As Workbook, ByVal Sh As Object)

object   在类模块中带有事件声明的 Application 类型对象。有关详细信息,请参阅 Application 对象事件的用法

Wb   工作簿。

Sh   新建的工作表。

示例

本示例将新建工作表移到工作簿的末尾。

Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, _
        ByVal Sh As Object)
    Sh.Move After:=Wb.Sheets(Wb.Sheets.Count)
End Sub