小编joe*_*oeb的帖子

我的块已正确注册并正常运行。
我唯一的抱怨是我不希望在同一篇文章中多次使用这些块。
是否可以限制这样的块行为？文档太可怕了。

我试图填充我的对象集合时遇到一个奇怪的问题.当我为每个循环做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 …

我正在学习three.js的过程中,我不断遇到这些古怪的数学公式,我无法理解为什么.

这是一个例子.

mouse.set( ( event.clientX / window.innerWidth ) * 2 - 1, 
- ( event.clientY / window.innerHeight ) * 2 + 1 );

如果有人可以向我解释这个逻辑,那么可能会给我一个不同的世界.从我从这个例子中可以理解的是,我们将屏幕上的当前鼠标x位置,然后除以屏幕的宽度,然后乘以2,然后减去1.对我来说似乎是不合逻辑的.

例2

geometry.rotateX( - Math.PI / 2 );

我敢肯定我错过了房间里那只巨大的大象,但我一直在弄错.我正在创建一个名为的公共字典,Prompts并在下面的子字母中填充自定义类对象.

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

Set PromptsRange = Range("LookUpTablePrompts")
Dim NewPrompt As clsPrompt
For Each PromptRow In PromptsRange.Rows
    Set NewPrompt = New clsPrompt
    NewPrompt.Name = PromptRow.Cells(1, 1)
    NewPrompt.ControlType = PromptRow.Cells(1, 2)
    NewPrompt.ComboboxValues = PromptRow.Cells(1, 3)
    NewPrompt.HelpText = PromptRow.Cells(1, 4)
    NewPrompt.TabIndex = PromptRow.Cells(1, 5)
    NewPrompt.ColumnIndex = PromptRow.Cells(1, 6)
    NewPrompt.TableIndex = PromptRow.Cells(1, 7)
    NewPrompt.ControlName = PromptRow.Cells(1, 8)


    Me.Prompts.Add NewPrompt.ControlName, NewPrompt
Next
End Sub

现在,我正在尝试遍历我刚刚在同一个类中的下一个sub中创建的字典.问题是每个循环都会给我一些对象错误

Public Sub SetProductPromptMapping()
Dim ProductPromptMappingRange As Range
Dim SKURange …