2강

Dim 통합문서 AS WorkBook

1. Set 통합문서 = ThisWorkBook
2. Set 통합문서 = ActiveWorkBook
3. Set 통합문서 = Application.Workbooks.Open(경로)

Dim 시트 AS WorkSheet

1. Set 시트 = Active Sheet
2. Set 시트 = 통합문서.WorkSheets("시트이름" or 순번)
3. Set 시트 = Sheet1

Dim 범위 AS Range

1. Set 범위 = 시트.Range("A1:A2")
2. Set 범위 = 시트.Cells(행번호, 열번호)
3. Set 범위 = Selection

For문

예제1

  For i= 1 To 10

     WS.Range("A" & i). Value = i

  Next i (i:생략가능)

예제2

  For Each WS In WB. WorkSheets

     MsgBox WS.Name

  Next

예제3

  For Each Rng In WS.Range("Al:A10")

     Rng. Value = Rng.Address

  Next

IF문

예제1

  If WS.Range("Al"). Value > 0 Then

     WS.Range("A2"). Value = "054"

  Else

     WS.Range("A2"). Value = "24"

  End If

예제2

  If WS.Range("Al"). Value > Q Then

     S.Range(" A2"). Value="양수"

  Else If WS.Range("Al"). Value = 0. Then

     WS.Range("A2"). Value = "-“

  Else

     WS.Range("A2"). Value = "24"

  End If

조건이 많으면

Select Case 조건

Case 조건

Case Else

Select