Блог

Главная - Вопросы по программированию - Как выполнить цикл массива за одно и то же время в VBA

Как выполнить цикл массива за одно и то же время в VBA

#vba #vba6

#vba #vba6

Вопрос:

Моя проблема в том, что после 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

Комментарии:

1. VBA не поддерживает многопоточность, поэтому вы не можете запускать их одновременно. В настоящее время вы запускаете их вложенными.

2. Вы не хотите «запускать массив из 2 циклов одновременно» , это не ваша цель. Это только то, как вы в настоящее время думаете, что сможете достичь своей цели. Опишите свою цель.