如何使用数组中的数据更新用户窗体对象，VBA

Question

这是我发布的上一个问题的后续问题（请参阅此处）：https://stackoverflow.com/q/64866771/14651009

从本质上讲，我在 Excel 中有一个 VBA 驱动的用户表单，人们将在其中输入轨道车的数据，因为它们在某个位置（在 5 个“点”处）加载

有时他们不得不将那辆有轨电车移到不同的地点。 在这种情况下，我希望他们能够保留第一个/原始条目中有关轨道车的所有信息。 在用户窗体上，新的点应该包含来自原始点的所有数据，并且一旦执行代码，原始点应该是空的。

顺便说一句，我正在处理 5 个加载点，每个加载点有 14 条信息。 我只想在发生重新定位时结转前 7 条信息（索引 0-6）

我做了两件事来实现这一点，首先我建立了所有 5 个点的所有数据的 2D 数组（根据另一个 Stack Overflow 用户的推荐，感谢 Tim Williams！）：

Dim spots(1 To 5, 0 To 14), n As Long, i As Long
'Fill spot arrays from the userform:
For n = 1 To 5
  spots(n, 0) = UserForm.Controls("ProductSelectionBox_Spot" & n).Value
  spots(n, 1) = UserForm.Controls("Spot" & n & "_ProductID").Value
  spots(n, 2) = UserForm.Controls("BatchNumber_Spot" & n).Value
  spots(n, 3) = UserForm.Controls("CarNumber_Spot" & n).Value
  spots(n, 4) = UserForm.Controls("Pounds_Spot" & n).Value
    ...
  spots(n, 14) = UserForm.Controls("TotalLoadTime_Spot" & n).Value
Next n

然后，我使用 for 循环替换索引 0 - 6，并清空原始位置的所有条目：

Dim fromSpot As Long
Dim toSpot As Long
fromSpot = Userform.OriginalSpotSelector.Value
toSpot= UserForm.DestinationSpotSelector.Value
'Replace function
For n = 0 to 6
    spots(toSpot, n) = spots(fromSpot, n)
Next n
'Empty original spot function
For n = 0 to 14
    spots(fromSpot, n) = Empty
Next n

就更改数组值而言，这绝对是一种魅力。 使用以下检查：

a = MsgBox(spots(toSpot, 1), vbOKOnly, "Test")

我可以打印一个消息框，显示目标点 (toSpot) 数组值现在是以前的原始点 (fromSpot) 值。 唯一的问题是，一旦代码被执行，用户表单本身就没有任何更新的值。

在我最初的问题中，一位评论者总结了这个问题：

“您需要设置一个过程来使用数组中的数据更新用户表单对象”

我和我的一位同事谈过，他说数组本质上只是用户表单值的副本，我必须利用指针来更新用户表单对象本身的值。 我已经做了一些研究，但仍然不知所措。 我是否需要使用指针来更新这些用户表单对象？ 有没有更简单的方法？ 如果没有，我如何在这个特定实例中应用指针？

Answer 1

好吧，结果证明解决方案很简单！ 我所要做的就是反转第一个代码块以将用户表单对象值重新分配给数组值，如下所示：

For n = 1 To 5
    Userform.Controls("ProductSelectionBox_Spot" & n).Value = spots(n, 0)
    Userform.Controls("Spot" & n & "_GMID").Value = spots(n, 1)
    Userform.Controls("BatchNumber_Spot" & n).Value = spots(n, 2)
    Userform.Controls("CarNumber_Spot" & n).Value = spots(n, 3)
          ...
    Userform.Controls("TotalLoadTime_Spot" & n).Value = spots(n, 14)
Next n