Оптимизировать (ускорить) программу, работающую с массивами

@module · Регистрация: 09.06.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Я пытаюсь оптимизировать программу, но опыта хватило только сократить код, но не ускорить.
Раньше программа искала значения прям на листе, сейчас попробовал реализовать через массив, но скорость не увеличилась. Буду очень благодарен за любые советы и помощь.
В коде постарался везде проставить комментарии, чтобы было понятно что и для чего там делаю. Интересует код на листе Revenue.

@Hugo121 · 30.07.2014, 13:27

Ну там массивы используются не всюду, хватает и работы с ячейками.
По поводу этих многократно вызываемых функций - следует эти массивы создать один раз, а не при каждом вызове функций.
И вот зачем брать в массив такой огромный диапазон (на 150000 ячеек), если просматриваете всего одну строку, 70 ячеек?
А вообще тут вероятно прямой резон использовать словари (хотя в задачу не вникал, лень).

@module · 30.07.2014, 13:41 **[ТС]**

Ячейки использовал только для записи готовых значений.
У меня что-то не получилось использовать в функции массив, объявленный в теле программы. Поэтому пришлось в каждой функции считывать.
Можете на примере любой функции посоветовать, как сделать?

Добавлено через 9 минут
например вот для функции:

Visual Basic

Function getcomp(comp As Variant)
Dim tek()
tek() = Worksheets("PL_текущий").Range("A1:BW2000").Value
For k = 1 To 70
    If tek(34, k) = comp Then
        getcomp = k
        Exit For
    End If
    If k = 70 Then
        getcomp = 70
        End If
Next k
 
End Function

и вызываем

Visual Basic

1	s = tek(n, getcomp(Sheets("Revenue").Cells(w, 1)))

@Hugo121 · 30.07.2014, 14:11

Массив можно например объявить публичным, сперва заполнить один раз в программе, а в функции только использовать.
Или передавать его в функцию в параметре, аналогично как значение для проверки.

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	30.07.2014, 13:27	2
	Ну там массивы используются не всюду, хватает и работы с ячейками. По поводу этих многократно вызываемых функций - следует эти массивы создать один раз, а не при каждом вызове функций. И вот зачем брать в массив такой огромный диапазон (на 150000 ячеек), если просматриваете всего одну строку, 70 ячеек? А вообще тут вероятно прямой резон использовать словари (хотя в задачу не вникал, лень). 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	30.07.2014, 14:11	4
	Массив можно например объявить публичным, сперва заполнить один раз в программе, а в функции только использовать. Или передавать его в функцию в параметре, аналогично как значение для проверки. 1

Опции темы