2 
'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 并且我单步执行它以确保我的字符串正在传递，它就会显示为 ""，而不是我通过的任何东西。

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

谢谢

4

1 回答 1

0

哇，我感觉自己像个新手！很抱歉耽误了任何人的时间。我想我一直在寻找编写大量代码的方法并且没有得到足够的休息。我不小心把我的一个公式写反了。

再次感谢。

于 2012-04-13T13:15:56.830 回答