• 新增表單

Sub AddNewsheet()Sheets.Add End Sub

?

Sub AddNewSheet2()'若有同名的sheet已經(jīng)存在時(shí)，使用該種方法添加表單，會(huì)報(bào)錯(cuò)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

?

• 獲取當(dāng)前工作簿中所有表單的名稱

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

?

• 獲取當(dāng)前工作簿中表單數(shù)量

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

?

• 復(fù)制表單

?

?

?

?

?

?

?

轉(zhuǎn)載于:https://www.cnblogs.com/nikeylee/archive/2012/07/12/2588654.html

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。