相关疑难解决方法(0)

我试图填充我的对象集合时遇到一个奇怪的问题.当我为每个循环做PromptsRange.Rows一切都是完美的.您可以单步浏览该NewPrompt区域并观察每一行是否通过,并最终添加到PromptsCollection最后.我遇到的问题是在这一点之后.如果您尝试为每个循环执行a PromptsCollection,则每个对象(36)都完全相同,并且是查找表中的最后一个值.我很难过.也许其中一位学者可以帮助我.

这是我的查阅表

以下代码位于userform模块中.选项明确

Private pPromptsCollection As New Collection
Private pProductPromptMapping As New clsOrderPromptRow
Private pOrderPrompts As New clsOrderPromptRow
Private pTarget As Range
Private pSKU As String

Public Property Get PromptsCollection() As Collection
    Set PromptsCollection = pPromptsCollection
End Property

Public Property Let PromptsCollection(Value As Collection)
    Set pPromptsCollection = Value
End Property

Private Sub SetPromptControls()
Dim PromptsRange As Range
Dim PromptRow As Range

Set PromptsRange = Range("LookUpTablePrompts")

For Each PromptRow In PromptsRange.Rows
    Dim NewPrompt …