|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.08.2010, 07:32 | #11 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Извините, что вмешиваюсь. Хочу сделать небольшое замечание (дополнение).
При изменении размерности массива с помощью ReDim Preserve, создается новый массив, в который перезаписываются все элементы текущего массива. Во-первых, т.к. мы заранее знаем количество обрабатываемых листов, то это делать совершенно ни к чему, во-вторых, не потребуется формировать массив "наоборот", а затем его транспонировать. Т.е. примерно так: Код:
Чем шире угол зрения, тем он тупее.
|
05.08.2010, 10:15 | #12 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Хорошие замечания. Спасибо.
Получился еще один вариант: Код:
1 - Main2 0,046875 сек 2 - Main 0,0546875 сек 3 - 2-й код (Дэлчев) 0,0625 сек 4 - 3-й код (Крупский) 0,12890625 сек. Или можно еще как-то ускорить? И попутно вопросик по поводу переключения обновления экрана. У нас обновление происходит, собственно, один раз: Range([A1], Cells(UBound(a, 1), 17)).Value "Бац" = a. Стоит ли ради одного Бац переключать ScreenUpdating? |
05.08.2010, 11:24 | #13 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
У меня как-то раз ScreenUpdating = False только тормозил код в такой ситуации, потести.
webmoney: E265281470651 Z422237915069 R418926282008
|
05.08.2010, 12:01 | #14 |
Пользователь
Регистрация: 03.08.2010
Сообщений: 22
|
Блин! Мне теперь подругому надо!!!! )))))
Подскажите , а можно это все выполнить из другого файла. Т.е. Делаем пустой файл, прикрепляем кнопку и макрос, нажимаем на кнопку и макрос просит выбрать файл из которого все это будет собрано в тот пустой.... Вот так вот возможно? И если да, может кто-то может рассказать как? |
05.08.2010, 15:23 | #15 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
Вот другой блин. В пустом файле на лист - кнопку, на кнопку - макрос, макрос - в стандартный модуль.
Код:
|
05.08.2010, 19:06 | #16 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Цитата:
Код:
Чем шире угол зрения, тем он тупее.
|
|
05.08.2010, 20:24 | #17 |
Форумчанин
Регистрация: 25.04.2010
Сообщений: 616
|
SAS888, Ваш Sub Main3() лидирует с заметным отрывом 0,0078125 сек!
И без отключения обновления макросы все-таки замедляются (в разных случаях на разные величины). Т.о. формируем массивы сразу из диапазонов и отключаем обновление экрана. Как-то так. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Блоковый код Хемминга в VBA | Dju_Vava | Microsoft Office Excel | 1 | 10.12.2009 18:14 |
Есть код программы Сортировка строк в файле...помогите разобраться) | defol-777 | Общие вопросы C/C++ | 8 | 29.09.2009 11:42 |
Жутко назойливый БАННЕР ! ! ! | Fisk | Безопасность, Шифрование | 7 | 21.09.2009 17:24 |
Помогите разобраться в реализации поразрядной сортировки(код внутри) | CooCkoo | Помощь студентам | 0 | 15.06.2009 23:52 |
не получается разобраться в коде ! разъясните пожалуйста! код внутри! | Lion_paint | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 16.05.2009 09:30 |