VBA-3단원. 시트 작업(Worksheet)

이 컬렉션은 통합 문서(Workbooks)에 있는 시트 세트(Sheets)입니다. 시트에서 어떤 작업을 수행할 수 있는지 살펴보겠습니다.

책의 장수를 계산하는 방법

먼저, 우리 책에 몇 장의 시트가 있는지 알아 보겠습니다.

Sub Test() 'moonexcel.com.ua
	MsgBox (Str(Application.Workbooks.Item("Test.xls").Sheets.Count))
End Sub

이 코드를 사용하여 통합 문서(Workbooks) "Test.xls"의 시트 수(Sheets.Count)를 표시하는 화면(MsgBox)에 메시지를 호출했습니다.

시트에는 셀뿐만 아니라 다이어그램도 포함됩니다. 또한 계산 시트와 마찬가지로 차트도 시트 수에 포함됩니다.

책에 시트를 추가하는 방법

시트 컬렉션에는 자신만의 시트를 추가하는 것도 가능합니다. 이를 위한 Add 메소드가 있습니다. 이 메소드에는 4개의 매개변수 Add(Before, After, Count, Type)가 있습니다. 이러한 매개변수는 모두 선택사항입니다. 처음 두 개는 시트 삽입 위치를 담당합니다. 다음으로 삽입할 시트 수는 Count이고 시트 유형은 Type입니다. 예를 들어 유형은 스프레드시트의 경우 xlWorkSheet, 차트의 경우 xlChart일 수 있습니다. 위치를 지정하지 않으면 현재 시트를 기준으로 시트가 삽입됩니다.

Sub Test() 'moonexcel.com.ua
    Sheets.Add After:=Worksheets("Sheet3"), Count:=4
End Sub

이런 식으로 "Sheet3" 시트 뒤에 4개의 시트(Count:=4)를 삽입했습니다. 책 맨 끝에 시트를 삽입할 수도 있습니다.

Sub Test() 'moonexcel.com.ua
	Worksheets.Add
	ActiveSheet.Move After:=Sheets(ActiveWorkbook.Sheets.Count)
End Sub

시트를 숨기는 방법

원하는 경우 일부 문자를 숨길 수 있습니다. 화면에 문자로 표시하고 싶지 않은 상수나 계산이 있을 때 유용합니다. 이를 위해 Visible 메소드를 사용할 수 있습니다. TRUE 또는 FALSE에서 이 속성을 설정하면 필요한 시트를 제거하거나 표시할 수 있습니다.

Sub Test() 'moonexcel.com.ua
	ActiveWorkbook.Sheets("Sheet3").Visible = False
End Sub