Set 문

이 글은 도움말을 번역한 글입니다.

변수 또는 속성에 객체 참조를 할당합니다.

Syntax
Set objectvar = {[ New ] objectexpression | Nothing }

objectvar : 필수입니다. 변수 또는 속성의 이름으로, 표준 변수 명명 규칙을 따릅니다.

New : 선택 사항입니다. New는 일반적으로 선언 중에 암시적 객체 생성을 활성화하기 위해 사용됩니다. New를 Set과 함께 사용하면 클래스의 새 인스턴스가 생성됩니다. 객체변수에 객체에 대한 참조가 포함된 경우 새 객체가 할당될 때 해당 참조가 해제됩니다. New 키워드는 내재 데이터 유형의 새 인스턴스를 만드는 데 사용할 수 없으며 종속 객체를 만드는 데 사용할 수 없습니다.

Dim intValue As Integer
Set intValue = New Integer ' 올바르지 않음: 내장 데이터 유형인 Integer에 대해 New 키워드 사용 불가

Dim rng As Range
Set rng = New Range ' 올바르지 않음: Range는 종속 객체이므로 New 키워드로 인스턴스 생성 불가

Dim rng As Range
Set rng = Worksheets("Sheet1").Range("A1") ' 올바른 방법: 워크시트 참조를 사용하여 Range 인스턴스에 접근

objectexpression : 필수입니다. 개체 이름, 동일한 개체 유형의 다른 선언된 변수 또는 동일한 개체 유형의 개체를 반환하는 함수나 메서드로 구성된 표현식입니다.

Nothing : 선택 사항입니다. objectvar와 특정 객체의 연결을 중단합니다. objectvar에 아무것도 할당하지 않으면 다른 변수가 참조하는 객체가 없을 때 이전에 참조된 객체와 관련된 모든 시스템 및 메모리 리소스가 해제됩니다.

유효하려면 objectvar가 할당되는 객체와 일치하는 개체 유형이어야 합니다.

Sub Example()

    Dim obj As Object
    Set obj = Worksheets("Sheet1")

End Sub

Sub Example()
    Dim objWorkbook As Workbook
    Set objWorkbook = ThisWorkbook
    Debug.Print "당신이 선택한 워크북의 이름은: " & objWorkbook.Name
End Sub

Dim, Private, Public, ReDim 및 Static 문은 객체를 참조하는 변수만 선언합니다. Set 문을 사용하여 특정 개체를 할당할 때까지 실제 개체는 참조되지 않습니다.

일반적으로 변수에 개체 참조를 할당할 때 Set 문을 사용하면 해당 변수에 개체의 복사본이 생성되는 것이 아니라 개체에 대한 참조(reference)가 생성됩니다. 한 개 이상의 개체 변수가 동일한 개체를 참조할 수 있습니다. 이러한 변수들은 개체의 복사본이 아니라 개체 자체를 가리키는 참조(reference)이기 때문에, 개체 내부의 어떤 변경사항이든 해당 개체를 참조하는 모든 변수에 영향을 미칩니다. 그러나 Set 문에서 New 키워드를 사용하면 실제로 개체의 인스턴스를 생성합니다.

Sub ObjectReferenceExample()
    ' CreateObject 함수를 사용하여 새로운 Scripting.Dictionary 개체를 생성합니다.
    Dim dict1 As Object
    Set dict1 = CreateObject("Scripting.Dictionary")

    ' dict2 변수도 dict1과 동일한 개체를 참조합니다.
    Dim dict2 As Object
    Set dict2 = dict1

    ' dict1과 dict2 모두 동일한 개체를 참조하므로, 하나의 변수를 통해 개체를 수정하면 다른 변수에도 반영됩니다.
    dict1.Add "Key1", "Value1"
    dict2.Add "Key2", "Value2"

    ' dict1과 dict2는 모두 동일한 개체를 참조하므로, 개체에 대한 변경사항이 두 변수 모두에 영향을 미칩니다.
    Debug.Print "dict1 Count: " & dict1.Count ' Output: dict1 Count: 2
    Debug.Print "dict2 Count: " & dict2.Count ' Output: dict2 Count: 2

    ' New 키워드를 사용하여 새로운 Scripting.Dictionary 개체를 생성합니다.
    Dim dict3 As New Scripting.Dictionary

    ' dict4 변수도 새로운 Scripting.Dictionary 개체를 생성합니다.
    Dim dict4 As New Scripting.Dictionary

    ' dict3과 dict4는 서로 다른 개체를 참조합니다.
    dict3.Add "Key3", "Value3"
    dict4.Add "Key4", "Value4"

    ' dict3과 dict4는 서로 다른 개체를 참조하므로, 개체에 대한 변경사항이 서로 영향을 미치지 않습니다.
    Debug.Print "dict3 Count: " & dict3.Count ' Output: dict3 Count: 1
    Debug.Print "dict4 Count: " & dict4.Count ' Output: dict4 Count: 1
End Sub

도움말 출처 :

Set statement (VBA)