vba基本操作 -- 表单操作

Sub AddNewsheet()
Sheets.Add
End Sub

Sub AddNewSheet2()
'若有同名的sheet已经存在时，使用该种方法添加表单，会报错
Sheets.Add.Name = "NewSheet2"
End Sub

Sub RenameSheet()
Sheets("Sheet23").Select
Sheets("Sheet23").Name = "NewName"
End Sub

Sub DeleteSheet()
Application.DisplayAlerts = False
Sheets("NewName").Delete
Application.DisplayAlerts = True
End Sub

Sub GetAllSheetsname()
Dim sheet As Object
For Each sheet In ThisWorkbook.Worksheets
Debug.Print sheet.Name
Next
End Sub

Sub SheetCounts()
Debug.Print Sheets.Count
End Sub