VBA中如何向属性传递Range对象？传递遇‘对象要求’错误求助

我来帮你排查这个问题！你遇到的“对象要求”错误通常和Range对象的赋值规则或者变量声明细节有关，咱们一步步拆解解决：

先确认核心问题点 #

你的属性定义本身逻辑是对的，但大概率是变量声明不规范或者调用时没遵循对象赋值规则导致的错误。先看几个关键修正步骤：

1. 规范UserForm内的变量声明 #

首先在UserForm的通用声明段（所有过程之外的顶部）添加变量声明，并且开启强制变量检查：

Option Explicit ' 强制变量声明，避免隐式错误
Private r1 As Range ' 声明为Range类型的模块级变量，仅在UserForm内部访问

如果之前没声明r1，VBA会把它隐式处理为Variant类型，赋值Range对象时就容易触发“对象要求”错误。

2. 保留你的属性代码（本身没问题） #

你的Get/Set属性逻辑是正确的，配合上面的变量声明就可以正常工作：

Public Property Get MyRng() As Range
    Set MyRng = r1
End Property

Public Property Set MyRng(ByRef prange As Range)
    Set r1 = prange
End Property

3. 调用属性时必须用Set关键字 #

Range是对象类型，赋值给属性时必须使用Set，这是最容易踩坑的点！比如在标准模块里调用UserForm的代码应该是这样：

Sub TestPassRangeToForm()
    Dim myUF As New UserForm1 ' 实例化你的UserForm
    
    ' 关键：传递Range对象必须用Set
    Set myUF.MyRng = ThisWorkbook.Sheets("Sheet1").Range("A1:C10")
    
    myUF.Show vbModal ' 显示表单
    
    ' 可以测试是否成功传递
    If Not myUF.MyRng Is Nothing Then
        MsgBox "成功传递的Range地址：" & myUF.MyRng.Address
    End If
    
    Unload myUF
    Set myUF = Nothing
End Sub

如果省略Set直接写myUF.MyRng = Sheet1.Range("A1:C10")，VBA会尝试把Range的默认属性（Value）赋值给属性，这就会触发“对象要求”错误。

其他可能的排查点 #

• 确认传递的prange是有效的Range对象：不要传递Nothing或者非Range类型的变量（比如单元格的值、字符串）；
• 不要在UserForm的初始化过程（UserForm_Initialize）里直接访问MyRng属性，除非已经提前赋值，否则r1会是Nothing，也可能触发错误。

内容的提问来源于stack exchange，提问作者Dooey