如何在 vba 中导航数组?
在 VBA 中,要迭代数组,可以使用For (For Next) 循环。要编写此循环代码,您需要知道数组的大小(上限和下限) ,以便可以将两者用作循环的计数器。基本上 for 循环将从数组的第一个元素开始并循环直到最后一个元素。
下表包含从 1 到 5 的五个元素,并且在这些元素中包含数字。所以我们的想法是编写可以迭代这五个元素的代码,然后将其乘以 2。
在 VBA 中循环数组
- 首先,您需要知道数组的上限和下限,为此您需要使用 UBOUND 和 LBOUND 函数。
- 之后,您需要使用这些限制为循环创建一个计数器。
- 接下来,您需要编写一行代码来将元素的值乘以 2。这行代码将获取元素本身的值,然后将其相乘。
- 最后,使用“Next”关键字关闭循环代码。
这是完整的代码。
Option Base 1 Sub vba_array_loop() Dim myArray(5) As Integer myArray(1) = 10 myArray(2) = 20 myArray(3) = 30 myArray(4) = 40 myArray(5) = 50 Dim uB As Integer, lB As Integer uB = UBound(myArray) lB = LBound(myArray) For i = lB To uB myArray(i) = myArray(i) * 2 Next i End Sub