OfficeAutomation

▶ Goto문 ▶ If ~ Then문 ▶ Select Case문 ▶ For ~Next문 For Each 요소 In 컬렉션 문 ▶ Do ~ Loop문 Do While ~ Loop문, Do ~ While Loop문 Do Until ~ Loop문, Do ~ Until Loop문 ■ Goto문 프로그램의 다음 실행 위치를 레이블이 지정된 곳으로 한다. - 정상 흐름이 레이블을 만나지 않도록 레이블 전에 Exit 문을 삽입한다. - 오류처리 코드에만 사용하라!!! (코드가 꼬일 수 있음) [ 레이블 지정 ] - 문자열 레이블 : - 숫자 Sub GoTo_Demo() Dim i As String Dim a As Integer 1 i = InputBox("암호를 입력하시오") If i "1234" Then GoTo ..

▶ With ~ End With문 ▶ For Each ~ Next문 ■ With ~ End With문 하나의 개체에 여러작업을 한번에 수행 Sub ChangeFont() Dim r As Range Set r = Range("a1:e10") With r.Font .Name = "맑은고딕" .Bold = True .Italic = True .Size = 12 .Underline = xlUnderlineStyleSingle .ThemeColor = xlThemeColorAccent1 End With End Sub ■ For Each ~ Next문 컬렉션 개체에 포함된 모든 개체에 대해서 작업을 수행 Sub CloseInActive() Dim wb As Workbook For Each wb In Workbook..