有没有办法将所有值从一个数组传输到另一个数组，然后擦除原始数组？

Question

我在工作中尝试开发的代码块遇到了问题。本质上，我在 Excel 中创建了一个用户表单，人们将在其中输入轨道车的数据，因为它们在特定位置加载（我们将这些称为“点 1、点 2、点 3 等”）。

有时他们必须将那辆车移动到不同的位置，在这种情况下，我希望他们能够保留轨道车上第一个/原始条目中的所有信息，然后从原始位置删除数据一旦完成。

为了以更精简的方式实现这一点，我为 5 个点中的每一个都建立了数组，这些点引用了他们在用户窗体上输入数据的所有单元格：

Dim spot1information(14)
    spot1information(0) = UserForm.ProductType1.Value
    spot1information(1) = UserForm.ProductID1.Value
    spot1information(2) = UserForm.BatchID1.Value
    etc....

Dim spot2information(14)
    spot2information(0) = UserForm.ProductType2.Value
    spot2information(1) = UserForm.ProductID2.Value
    spot2information(2) = UserForm.BatchID2.Value
    etc....

所有五个位置以此类推。我不知道这是否会使事情变得更加困难，但请注意，这些数组值并非都属于同一类型。例如，索引 (0) 将是一个字符串，但索引 (10) 是 DATETIME，索引 (12) 定义为 Long。

假设他们正在将汽车从地点 1 移动到地点 2。简而言之，我希望代码执行以下操作：

• 将 spot2information 中索引 0 - 6 的值（当前为空）替换为 spot1information 中索引 0 - 6 的值（用户已在用户表单中填写）。
• 我只对索引 0-6 感兴趣，因为它们包含相关的轨道车信息
• 将 spot1information 的每个值清空到“”

为此，我尝试了以下代码及其一些变体：

If OriginalSpot.Value = 1 Then
    If DestinationSpot.Value = 2 Then
        For i = 0 to 6
           spot2information(i) = spot1information(i)
        Next
        For Each i in spot1information
           spot1information(i) = ""
        Next
     End If
 End If

但是，这不断出现类型不匹配。我想是因为 spot2information 数组中的数据是空的，而 spot1information 数组中的数据不是，但我不完全确定解决这个问题的方法。

---

更新：我做了下面的建议并替换：spot1information(i) = "" 与 Erase spot1information

代码现在基本上可以工作了！数组“spot2information”的值现在是以前的“spot1information”值，“spot1information”现在为空。

下面建议的 2D 数组也很有魅力。我一直面临的新问题是数组值正在更新，但用户表单没有。 （注意：将来我会将这类事情作为一个单独的问题发布，我深表歉意！）

Answer 1

将其作为 2D 数组更容易管理：

Sub Tester()

    Dim spots(1 To 5, 0 To 14), n As Long, i As Long
    
    'fill your spot arrays from the form....
    For n = 1 To 5
        spots(n, 0) = UserForm.Controls("ProductType" & n).Value
        spots(n, 1) = UserForm.Controls("ProductID" & n).Value
        spots(n, 2) = UserForm.Controls("BatchID" & n).Value
        'etc etc
    Next n
    
    'swap a spot with another
    Debug.Print spots(2, 1), spots(3, 1)
    SwapSpots spots:=spots, fromSpot:=2, toSpot:=3
    Debug.Print spots(2, 1), spots(3, 1)

End Sub


Sub SwapSpots(spots, fromSpot As Long, toSpot As Long)
    Dim n As Long
    For n = 0 To 6
        spots(toSpot, n) = spots(fromSpot, n)
        spots(fromSpot, n) = Empty 'empty the source slot value
    Next n
End Sub

Answer 2

假设数组的DataType 与Index 相同，即所有点的index(0) 为string，所有点的Index(2) 为long，依此类推。

如果是这样，那么这部分应该不会产生任何错误：

    For i = 0 to 6
       spot2information(i) = spot1information(i)
    Next

错误应该发生在这部分，更准确地说是在标有#的行中

    For Each i in spot1information
       spot1information(i) = ""   '#
    Next

错误的原因似乎是尝试将字符串值"" 分配给数字类型，考虑到 "mismatch" 错误。

使用For Each i in spot1information 表示您要"Initiate" 或Erase 整个数组，因此我建议使用这一行而不是For…Next 方法。

Erase spot1information

关于这个：

但是我现在遇到了一个新问题，用户窗体上的值没有更新以反映存储在数组中的新值。我是否需要以某种方式“刷新”用户表单？

您刚刚更新了数组，然后您需要运行用于更新UserForm 中受两个数组影响的对象的值的过程。