티스토리 뷰

카테고리 없음

[Excel][VBA] 개체와 컬렉션 다루기

어린왕자1234 2021. 11. 22. 09:23

▶ 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 Workbooks
    If book.Name = ActiveWorkbook.Name Then
        book.Close
    End If
    
End Sub

※ Selection이 Range개체의 컬렉션 기능을 수행한다.

Sub SelectNegative()
    Dim c As Range
    
    For Each c In Selection
        If c.Value < 0 Then
            c.Interior.Color = RGB(255, 0, 0)
        End If
    Next c
    
End Sub
저작자표시