VBA属性让，不接受传递的价值

Question

'CLASS PROPERTY CODE
Public Property Let setCode_ID(ByVal vCode_ID As String)
    Code_ID = vCode_ID
End Property

For Each Cell In WS_CostCode.Range(Cells(2, 1), Cells(fRow, 1)) 'COLUMN OF CODE_ID
    Set CostCodeItem = New Cost_CodeCL
    CostCodeItem.setCode_ID = "code id" 'WS_CostCode.Cells(Cell.Row, Cell.Column) 'SET CODE_ID 'SET CODE_ID
    CostCodeItem.setCode_Description = "code desc" 'WS_CostCode.Cells(Cell.Row, Cell.Column + 1) 'SET CODE_DESCRIPTION
    CostCodeItem.setCode_Category = "code category" 'WS_CostCode.Cells(Cell.Row, Cell.Column + 2) 'SET CODE_CATEGORY

    uKey = CostCodeItem.getCode_ID
    Debug.Print CostCodeItem.getCode_ID
    CostCodeColl.Add CostCodeItem, CostCodeItem.getCode_ID
Next Cell

我的pproperty“vCode”应该显示我在For Each循环中传递的任何字符串，但是当它运行时，只要它访问Property Let并且我逐步执行它以确保我的字符串被传递，它显示为“”而不是我经过的任何事情。

我在另一个类中使用了完全相同的代码，它按预期完美地运行。为什么这不正常。

由于

Answer 1

哇，我觉得这样的新手！对不起任何人的时间。我想我一直在寻找很多代码并且没有得到足够的休息。我的一个公式是偶然写回来的。

再次感谢。