工做表

Sub 新建工做表()
Sheets.Add , , 2 自動命名

Sheets.Add.Name = "hello" 直接命名
End Sub
Sub 刪除工做表()
Sheet1.Delete
Sheets("hello").Delete

on error resume next
application.displayalert = false 刪除時屏蔽彈出框
End Sub
Sub 移動工做表()
Sheet3.Move , Sheet2
End Sub
Sub 選擇工做表()
'Sheet3.Select '不能選擇隱藏
Sheet3.Activate

Worksheets("sheet5").Select
Worksheets(Array("sheet5", "sheet6")).Select 多選
End Sub
相關文章
相關標籤/搜索