Get Property As Integer 引发运行时错误 451：Property let procedure not defined and property get procedure didn't return an object

Question

我编写了一个名为 TimeManagementTable 的类模块来抽象出我正在使用的表的一些数据。这是代码：

Option Explicit
Private table As ListObject
Private idColumn As Integer
Private subColumn As Integer
Private descColumn As Integer
Private epColumn As Integer

' ERROR -1: No Table
' ERROR -2: Columns Not Found
Public Function init(newSelection As Range) As Variant
    Dim column As ListColumn
    Dim msg As Variant

    If newSelection.ListObject Is Nothing Then
        msg = MsgBox("Table not detected!", vbCritical, "Aborted")
        init = -1
        Exit Function
    End If
    Set table = newSelection.ListObject
    For Each column In table.ListColumns
        Select Case column.Name
            Case "ID"
                idColumn = Int(column.Index)
            Case "SUB"
                subColumn = Int(column.Index)
            Case "Description"
                descColumn = Int(column.Index)
            Case "EP"
                epColumn = Int(column.Index)
        End Select
        If (idColumn > 0 And subColumn > 0 And descColumn > 0 And epColumn > 0) Then
            Exit For
        End If
    Next
    If (idColumn = 0 Or subColumn = 0 Or descColumn = 0 Or epColumn = 0) Then
        msg = MsgBox("Either EP, ID, SUB, or Description column not detected!", vbCritical, "Aborted")
        init = -2
        Exit Function
    End If
End Function

Public Property Get TableObject() As ListObject
    Set TableObject = table
End Property

Public Property Get IDColumnInde() As Integer
    IDColumnInde = idColumn
End Property

Public Property Get SUBColumnInde() As Integer
    SUBColumnInde = subColumn
End Property

Public Property Get DescColumnInde() As Integer
    DescColumnInde = descColumn
End Property

Public Property Get EPColumnInde() As Integer
    EPColumnInde = epColumn
End Property

我调用了第一个 Get 属性，如下所示：

Set newSelection = Application.InputBox("Please enter which Time Log table you would like to add a row to:", "Insert New Entry", "DeliverableTimeLog", , , , , 8)
Set tmt = New TimeManagementTable
If (tmt.init(newSelection) < 0) Then Exit Sub
For Each row In tmt.TableObject.ListRows
   if row.Range.Formula(1, tmt.IDColumnIndex) = choiceID

其中 tmt 是 TimeManagementTable 的对象，row 是 ListRow 对象，choiceID 是整数。

现在我每次使用 for each 循环运行宏时都会得到

运行时错误 451：未定义属性让过程和属性获取 过程没有返回对象

在此获取属性的末尾：

Public Property Get IDColumnIndex() As Integer
    IDColumnIndex = idColumn
End Property

我觉得我正在失去理智，它所做的只是返回一个整数。如果有人能帮助我了解发生了什么，那就太棒了。如果您需要更多信息，请告诉我，我尽量保持简洁。

编辑：完整的类模块源代码和初始化

Answer 1

该错误基本上是说您正在尝试分配给Property Get 成员。

SomeGetter = 42

这是非法的，因为您不能分配给没有 Property Let 访问器的属性。

关于“不返回对象”的部分是因为：

SomeGetter = 42

会合法，如果SomeGetter 返回一个具有可分配给 RHS 值的默认成员的对象。换句话说，因为 VBA 看不到这个：

SomeGetter.DefaultProperty = 42

然后它会抛出一个错误，因为SomeGetter 不能是赋值的 LHS。寻找错字。确保每个模块都在顶部显示Option Explicit，尤其是类模块和带有引发错误的循环的模块。

您的帖子看起来包含多个混合版本的代码，因此很难准确判断问题出在哪里。

---

其实……

if row.Range.Formula(1, tmt.IDColumnIndex) = choiceID

Formula 是一个Variant 属性，但我从未见过它被这样编入索引。我认为 that 是 VBA 抱怨的属性。你是故意的吗？

if row.Range.Cells(1, tmt.IDColumnIndex).Value = choiceID