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

 
복사 폼