Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
белый экран при выполнении макросов
 
#1
10.10.2010 22:17:47
Еще раз добрый вечер! :)  
С очередным вопросом... :)  
Вот есть куча макросов, которые выполняются... время выполнения - около 2-х минут. Отключены все "тормоза"...  
Но во время выполнения макроса активный лист всегда должен быть на экране (оно так и есть). Но!  
Почему возникает белый экран во время выполнения макросов? (т.е. видимо загрузка большая на процессор и все такое), можно ли этого избежать?  
 
хм.. надеюсь меня понял кто-нибудь :)  
Спасибки заранее :)
 
 
 
#2
10.10.2010 22:26:04
О как!!! Здорово!!! Скрытие Excel я и не подумала даже!!!  
Дмитрий, Вы замечательный гений!!! Спасибо!!! :)
 
 
 
#3
10.10.2010 22:31:04
Если скрыть Эксель - не повлечёт ли это замедление работы макроса?  
Ведь тогда активным станет другое окно - если не само (не пробовал), то скорее всего юзер где-нибудь кликнет.  
Я почему спрашиваю - заметил, что код, в котором вставлено DoEvents и есть статусбар, работает значительно медленнее, если активным становится другое приложение. Или тогда надо убирать DoEvents?
 
 
 
#4
10.10.2010 22:38:37
В общем... до скрытия макрос выполнялся 121 секунду...  
После скрытия - 92 :)) не знаю, почему, но ... здорово!!! :) спасибо!
 
 
 
#5
10.10.2010 22:40:50
Статус бар время отнимает, но я именно по нему заметил, что когда активно окно Экселя - проценты бегут значительно живее, чем когда активен например ТоталКоммандер.
 
 
 
#6
10.10.2010 22:59:50
Замерил. Статусбар не ставил, а вот DoEvents тормозит здорово. И если есть DoEvents, то скрытие окна код только тормозит.  
Не скрывал:  
2,5    
2,484375    
2,53125  
Скрывал:  
2,625    
2,75    
2,625    
 
А вот сам код:  
Sub test()  
Dim tm  
tm = Timer  
Application.Visible = False  
Dim i As Long, ii As Long  
For i = 1 To 10000  
DoEvents  
For ii = 1 To 10000  
Next  
Next  
Application.Visible = True  
Debug.Print Timer - tm  
MsgBox Timer - tm  
End Sub  
 
Без DoEvents:  
1,015625    
1,015625  
vs  
1,171875    
1,265625    
Тут тоже скрытие только затормозило.
 
 
 
#7
10.10.2010 23:03:07
Со статус баром разобралась - действительно, без него быстрее, а вот что значит DoEvents?
 
 
 
#8
10.10.2010 23:07:52
DoEvents: http://www.firststeps.ru/vba/excel/r.php?40
 
 
 
Страницы: 1
Читают тему
Наверх