Excel VBA属性Let，不接受传递的值

我的pproperty vCode应该显示我在For-Each循环中传递的任何字符串，但是当它运行时，只要它访问属性Let，并且我通过它来确保传递我的字符串，它就会显示为，而不是我传递的任何字符串

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

---

谢谢

哇，我觉得自己像个新手！很抱歉占用了大家的时间。我想我一直在寻找编写大量代码的方法，但没有得到足够的休息。我的一个公式不小心写反了

---

再次感谢。

哇，我觉得自己像个新手！很抱歉占用了大家的时间。我想我一直在寻找编写大量代码的方法，但没有得到足够的休息。我的一个公式不小心写反了

---

再次感谢。

您能添加剩余的属性代码吗？例如，字段和getCode\u ID。您可以添加其余的属性代码吗？即字段和getCode_ID。

'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