如何在VBA中同时循环数组

问题描述

我的问题是循环中的j完成后，i将会移动。

我想同时运行2循环数组。

ReDim ArrayItems(Download_frm.ListBox1.ListCount)
ReDim ArrayItems1(Download_frm.accountb.ListCount)

For i = 1 To Download_frm.ListBox1.ListCount
   Download_frm.ListBox1.ListIndex = i - 1
   ArrayItems(i) = Download_frm.ListBox1.Text
 
   MsgBox ArrayItems(i)
   'myarray = ArrayItems(i)
 
 
   For j = 1 To Download_frm.accountb.ListCount
      Download_frm.accountb.ListIndex = j - 1
      ArrayItems1(j) = Download_frm.accountb.Text
 
      MsgBox ArrayItems1(j)
      'MsgBox ArrayItems1(j)

      accountli = ArrayItems1(j)
 
      'MsgBox ArrayItems(i)
 
      COCODELI = ArrayItems(i)
   Next j
Next i

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

vba vba6