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

Тема в разделе "Другие", создана пользователем fedor_zuev, 27 янв 2005.

Статус темы:
Закрыта.
  1. fedor_zuev

    fedor_zuev Гость

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

    kagor Гость

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

    Sudya Гость

    У меня тоже такая проблема. При выполнении макроса (проверка всех ячеек листа) прыгает лист и глаза вместе с ним. Прога Excel (VB6), как скрыть это все и вывести другой лист или рисунок или что другое????
     
  4. Tanya

    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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей