excel - 用 Range 初始化 vba 类成员变量

Question

我创建了一个类，其中一个成员变量属于范围类型。现在，如果我尝试初始化或设置该范围的值，我会出错:对象变量或未设置 block 变量。现在我认为这是因为它被初始化为 Nothing 但是如果我使用子类 Class_Initialize 并尝试在那里设置默认值，它仍然会出错。那么给了什么？

Private pRng As Range
Private pstype As Boolean

Public Property Get Rng() As Range
    Rng = pRng
End Property

Public Property Let Rng(Value As Range)
   pRng = Value
End Property

Public Property Get Stype() As Boolean
   Stype = pstype
End Property

Public Property Let Stype(Value As Boolean)
    pstype = Value
End Property

Private Sub Class_Initialize()
    pRng = Range("A1")
    pstype = True
End Sub

Answer 1

您需要使用 Set 关键字来初始化或设置范围，例如:

Set Rng = pRng
Set pRng = Value