[엑셀vba] with를 이용해서 편하게 코딩하자

with를 이용하면 보다 짧은 코드를 작성할 수 있다.

어떻게 쓰는지 알아보자.

---

사용법

Sub with_Test()

    With Range("A1")
    
        .Font.Color = RGB(255, 0, 0)

    End With


End Sub

With 함수는 변수, 개체 등을 생략 할 수 있게 만들어준다. 위 예시 코드를 보면 With 옆에 생략할 개체를 넣어줌으로써 With 와 End With 사이에서는 해당 개체를 적지않고 .(온점)만 찍어도 개체의 속성을 사용 할 수 있게 된다.

점만 찍어도 속성이 나타난다.

※ 범위, 셀, 시트 등의 개체가 아니라 변수를 넣어도 됨

※ vba가 그렇듯 마지막엔 End with 필수!

---

이중 With

Sub with_Test()
    
    With Sheets(1)
        
        With .Range("A1")
            .Font.Color = RGB(255, 0, 0)
        End With
        
        With .Range("C1")
            .Font.Color = RGB(0, 0, 255)
        End With
        
    End With
    
End Sub

With 안에 여러 개의 With를 넣어서 사용 할 수 있다.

 

---