VBA属性让，不接受通过的价值
'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 Loop中传递的任何string，但是当它运行时，只要它访问属性让我们通过它来确保我的string被传递，它显示为“”，而不是我所传递的任何东西。
我在另一个类中使用了EXACT相同的代码，它可以像预期的那样完美地工作。 为什么这不正确的行为。
谢谢
哇，我觉得这是一个新手！ 抱歉抱着任何人的时间。 我想我一直在寻找许多代码，并没有得到足够的rest。 我有一个偶然写下的公式。
再次感谢。