Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Фоновый рисунок во время выполнения макроса
Форум программистов > Системное программирование > Другие
fedor_zuev
Подскажите код: хочу, чтобы во время выполнния процедуры, на экране был рисунок какой-нить...
ну или, на худой конец ,просто скрыть все операции, выполняемые макросом..
kagor
Цитата
Подскажите код: хочу, чтобы во время выполнния процедуры, на экране был рисунок какой-нить...
ну или, на худой конец ,просто скрыть все операции, выполняемые макросом..
А на чем пишем? Можно более подробно описать что нужно smile.gif
Sudya
У меня тоже такая проблема. При выполнении макроса (проверка всех ячеек листа) прыгает лист и глаза вместе с ним. Прога Excel (VB6), как скрыть это все и вывести другой лист или рисунок или что другое????
Tanya
Скорее всего ты злоупотребляешь методом Select
Если тебе нужно только проверить ячейку, то
лучше не использовать Select - ничего прыгать не будеть и быстрее
При записи макрорекодером в Excele VBA вставляет Select. но можно и без него

Для сравнения gff - с выделением, gff1 - без выделения


Sub gff()
Dim i As Integer, Count As Integer, tt
tt = Now
With ActiveSheet
For i = 1 To 10000
.Range("A" & i).Select
If Selection.Value = 20 Then
Count = Count + 1
End If
Next i
End With
MsgBox Count & vbCrLf & Format(Now - tt, "nn:ss")
End Sub

Sub gff1()
Dim i As Integer, Count As Integer, tt
tt = Now
With ActiveSheet
For i = 1 To 10000
If .Range("A" & i).Value = 20 Then
Count = Count + 1
End If
Next i
End With
MsgBox Count & vbCrLf & Format(Now - tt, "nn:ss")
End Sub

А! Да! В общем-то, чтобы не менять код
можно использовать в начале макроса запрет обновления экрана
Application.ScreenUpdating = False
а в конце разрешить обновление
Application.ScreenUpdating = True
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.
Форум IP.Board © 2001-2008 IPS, Inc.