Оптимизация кода. Тупит при сложном условии. - Microsoft Office Excel

kikim · 26.08.2014, 11:12

Тупит при сложном условии Система+ARP+KT (сначала фильтрует без ARP и копирует в отдельный лист, потом без КТ тоже в отдельный лист, а потом формирует общую таблицу). Тупизна возникает при выборе значения УГП = Е, если другое значение поставить, то все ок.
Как сделать так, чтобы не тупил?

IgorGO · 26.08.2014, 12:13

тормозит процедура Merges3

вот здесь:

Код:

Worksheets("1").Activate
Set rA = Range(Range("A2"), Range("A2").End(xlDown))
Worksheets("2").Activate
Set rB = Range(Range("A2"), Range("A2").End(xlDown))

когда на листах пусто - в rA и rB попадает по 1 млн. пустых ячеек, а потом каждую из них Вы пытаетесь впихнуть в коллекцию, понятно - в коллекцию они не попадают но 2 млн. ячеек по-очереди проверяются на непригодность внесения в коллекцию

kikim · 26.08.2014, 12:50

IgorGO, можете подсказать лучшее решение этой проблемы?

IgorGO · 26.08.2014, 13:06

Код:

  Set ra = [a2]
  If Not IsEmpty(ra.Offset(1, 0)) Then Set ra = ra.Resize(ra.End(xlDown).Row - 1, 1)

kikim · 26.08.2014, 14:00

Все равно, при УГП = Е тупит(

26.08.2014, 12:13	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	тормозит процедура Merges3 вот здесь: Код: `Worksheets("1").Activate Set rA = Range(Range("A2"), Range("A2").End(xlDown)) Worksheets("2").Activate Set rB = Range(Range("A2"), Range("A2").End(xlDown))` когда на листах пусто - в rA и rB попадает по 1 млн. пустых ячеек, а потом каждую из них Вы пытаетесь впихнуть в коллекцию, понятно - в коллекцию они не попадают но 2 млн. ячеек по-очереди проверяются на непригодность внесения в коллекцию Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

26.08.2014, 13:06	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	Код: `Set ra = [a2] If Not IsEmpty(ra.Offset(1, 0)) Then Set ra = ra.Resize(ra.End(xlDown).Row - 1, 1)` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Оптимизация кода (C++)	Кирилл Романов	Помощь студентам	0	30.10.2013 23:36
Оптимизация кода	HDMI	PHP	16	22.10.2012 13:06
Оптимизация кода	LatuSerge	Общие вопросы Delphi	10	27.12.2011 01:51
Оптимизация кода	viscas	PHP	3	31.05.2009 16:04
Оптимизация кода	nusik	Общие вопросы Delphi	2	21.05.2009 17:55

26.08.2014, 12:50	#3
kikim Регистрация: 29.11.2009 Сообщений: 8	IgorGO, можете подсказать лучшее решение этой проблемы?

26.08.2014, 14:00	#5
kikim Регистрация: 29.11.2009 Сообщений: 8	Все равно, при УГП = Е тупит(