• 新增表單

Sub AddNewsheet()Sheets.Add End Sub

?

Sub AddNewSheet2()'若有同名的sheet已經存在時，使用該種方法添加表單，會報錯Sheets.Add.Name = "NewSheet2" End Sub

?

• 修改表單名稱

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

?

• 刪除表單

Sub DeleteSheet()Application.DisplayAlerts = FalseSheets("NewName").DeleteApplication.DisplayAlerts = True End Sub

?

• 獲取當前工作簿中所有表單的名稱

Sub GetAllSheetsname()Dim sheet As ObjectFor Each sheet In ThisWorkbook.WorksheetsDebug.Print sheet.NameNext End Sub

?

• 獲取當前工作簿中表單數量

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

?

• 復制表單

?

?

?

?

?

?

?

轉載于:https://www.cnblogs.com/nikeylee/archive/2012/07/12/2588654.html

總結

以上是生活随笔為你收集整理的vba基本操作 -- 表单操作的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。