Здравствуйте! Есть 2 массива: - в первом, к примеру, содержится следующая информация: "Артикул", "Фамилия", "Имя", "Отчество", "Год рождения", "Месяц рождения", "День рождения"; - во втором, к примеру, содержится: "Артикул" и "Зарплата". Задача сопоставить эти артикулы между собой. Выполняю переборкой массивов:
[vba]
Код
For i = 0 To UBound(Card) - 1 For k = 0 To UBound(Finance) - 1 If Card(i).Article = Finance(k).Article Then 'Артикул найден! ' ... Exit For End If Next Next
[/vba]
Если размерность массивов большая, то процесс переборки занимает довольно продолжительное время. Может есть какой-либо способ ещё ускорить его?
Т.к. размер файла превышает разрешённый на форуме, то линк для скачивания: удален администрацией
P.S. Прогресс-бар и прочие "излишества" можно не учитывать - это для удобства.
Здравствуйте! Есть 2 массива: - в первом, к примеру, содержится следующая информация: "Артикул", "Фамилия", "Имя", "Отчество", "Год рождения", "Месяц рождения", "День рождения"; - во втором, к примеру, содержится: "Артикул" и "Зарплата". Задача сопоставить эти артикулы между собой. Выполняю переборкой массивов:
[vba]
Код
For i = 0 To UBound(Card) - 1 For k = 0 To UBound(Finance) - 1 If Card(i).Article = Finance(k).Article Then 'Артикул найден! ' ... Exit For End If Next Next
[/vba]
Если размерность массивов большая, то процесс переборки занимает довольно продолжительное время. Может есть какой-либо способ ещё ускорить его?
Т.к. размер файла превышает разрешённый на форуме, то линк для скачивания: удален администрацией
P.S. Прогресс-бар и прочие "излишества" можно не учитывать - это для удобства.Lob1AV
Люблю жену и дочек, люблю на свете жить Люблю менять всё в жизни, что лучше может быть!
Сообщение отредактировал _Boroda_ - Четверг, 09.07.2015, 10:16