Фоновый рисунок во время выполнения макроса

[fedor_zuev]

Подскажите код: хочу, чтобы во время выполнния процедуры, на экране был рисунок какой-нить...
ну или, на худой конец ,просто скрыть все операции, выполняемые макросом..

 

[kagor]

Подскажите код: хочу, чтобы во время выполнния процедуры, на экране был рисунок какой-нить...
ну или, на худой конец ,просто скрыть все операции, выполняемые макросом..

А на чем пишем? Можно более подробно описать что нужно h34r:

 

[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