Sub TestAdd()
'新增工作表(無任何參數)
Worksheets.Add
'一次新增10個工作表
Worksheets.Add Count:=10
'新增工作表在sheet1之後
Worksheets.Add after:=Worksheets("sheet1")
'新增工作表在sheet1之前
Worksheets.Add before:=Worksheets("sheet1")
End Sub
Sub TestCopy()
'複製sheet1到sheet1之後
Worksheets("sheet1").Copy After:=Worksheets("sheet1")
'複製sheet1到sheet1之前
Worksheets("sheet1").Copy Before:=Worksheets("sheet1")
End Sub
在VBA中若要刪除工作表時,忽略此步驟需加入
Application.DisplayAlerts = False 程式碼來關閉顯示警告視窗
Sub TestDelete
'關閉警告視窗
Application.DisplayAlerts = False
'刪除作用中的工作表
ActiveSheet.Delete
'恢復警告視窗
Application.DisplayAlerts = True
End Sub
留言
張貼留言