VPF::Время выполнения скрипта непрерывно растет

hm8

Дата 11.8.2006, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 11.8.2006

Репутация: нет
Всего: нет

В ВБА я чайник, впервые код увидел недели 2 назад smile

. Пришлось срочно что-то писать, написалось, но при выполнении листы SYS_SHEET_NAME "накапливаются" в окошке VBA Projects.Лечу просто - закрываю файл с макросом, открываю снова, но ведь это неправильно,так что просьба помочь smile

Кусок листинга, в котором, по замерам, растет время выполнения:
Ищет совпадение значения элемента строки и столбца, и по пересечению копирует значение на другой лист.Warea_range.count ~ 12000 ячеек

Код


Reference:=Workbooks(SYS_TABLE_NAME).Worksheets(SYS_FORM_SHEET_NAME).Range("A1")
Set WAREA_RANGE = Range(DATA_AREA_START & ":" & DATA_AREA_STOP)
Set WAREA_ROWS = Range(ROW_START_SRCH & ":" & ROW_STOP_SRCH)
Set WAREA_COLUMNS = Range(COL_START_SRCH & ":" & COL_STOP_SRCH)
For counter = 1 To WAREA_RANGE.Rows.Count
If WAREA_RANGE.Cells(counter, 1).Interior.ColorIndex <> CELL_COLOR_INDEX Then WAREA_RANGE.Rows(counter).ClearContents
Next
For counterC = 1 To WAREA_COLUMNS.Count
For counterR = 1 To WAREA_ROWS.Count
found_c = 0
found_r = 0
FORM_WAREA_COLUMNS_TEMP = WAREA_COLUMNS(1, counterC).Value
FORM_WAREA_ROWS_TEMP = WAREA_ROWS(counterR, 1).Value
Application.Goto Reference:=Workbooks(SYS_TABLE_NAME).Worksheets(SYS_SYS_SHEET_NAME).Range("A1")
If Not Range("A1" & ":" & SYS_COLUMN_END_ADR).Find(FORM_WAREA_COLUMNS_TEMP, LookIn:=xlFormulas, LookAt:=xlWhole) Is Nothing Then _
found_c = Range("A1" & ":" & SYS_COLUMN_END_ADR).Find(FORM_WAREA_COLUMNS_TEMP).Column
If Not Range("A1" & ":" & SYS_ROW_END_ADR).Find(FORM_WAREA_ROWS_TEMP, LookIn:=xlFormulas, LookAt:=xlWhole) Is Nothing Then _
found_r = Range("A1" & ":" & SYS_ROW_END_ADR).Find(FORM_WAREA_ROWS_TEMP).Row
If found_c <> 0 And found_r <> 0 Then
temp_cell = Range("A1").Cells(found_r, found_c).Value
Application.Goto Reference:=Workbooks(SYS_TABLE_NAME).Worksheets(SYS_FORM_SHEET_NAME).Range("A1")
WAREA_RANGE(counterR, counterC) = temp_cell
temp_cell = Null
End If
Next
Next

UPDATE:
Понял, подобная хрень из-за этого

Код


Application.Goto _
Reference:=Workbooks(SYS_TABLE_NAME).Worksheets(SYS_SYS_SHEET_NAME).Range("A1")
For Each qt In Worksheets(SYS_SYS_SHEET_NAME).QueryTables
    qt.Refresh
Next

Теперь, вопрос - как обновлять этот лист, но так, чтобы он не "накапливался" в ВБА(см скрин в 1ом посте)?

Это сообщение отредактировал(а) hm8 - 11.8.2006, 15:13

cardinal

Дата 11.8.2006, 21:40 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: нет
Всего: 99

M
cardinal

Перенесено из VB6.

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »