Excel VBA之第四十三课

大家好，今天我们来学习工作簿的添加新工作表事件—NewSheet事件。当我们在工作簿中新建新工作表（包括图表工作表和数据工作表）的时候，都会执行NewSheet事件。如果我们有需要，就可以在这个事件中植入我们的设计代码。例如：

在上面的代码中，使用了工作表的Move方法来实现工作表的位置移动，语句Sh.Move after:=Sheets(Sheets.Count)的意思是把我们新建的工作表移动到最后面，这句代码可谓麻雀虽小，但五脏俱全，利用工作表集合—Sheets的Count属性得到当前所有工作表的个数，然后用Sheets(数字)的方式来引用工作表，Sheets(Sheets.Count)表示的就是最后一个工作表的意思。Sh.Name = "新建的数据工作表"是利用工作表的Name属性来修改工作表的名称。

我们新建一个数据工作表试试看执行结果：

期待这个事件在某个场合能给你帮助~

快捷查看