Анимация/статусбар во время макроса (Excel2003)

[xamillion]

Доброго времени! Прошу помощи в реализации анимации на время выполнения макроса. Без выполнения сложной задачи все прекрасно работает. Как только что-то сложнее то уже не работает. Добавил паузу - виснет!!! Ну что ему не так?

Sub sKODOM()
    Animation.Show
    Animation.L1.FontSize = 10


    Animation.Caption = "Пример анимации"
    Animation.L1.Caption = "Подождите - идет заполнение ..."

    Animation.WebBrowser1.Navigate ThisWorkbook.Path & "\bipolar-balls.GIF"

Application.OnTime Now + TimeValue("00:00:01"), "FillBlankCellsWithRandomNumbers"
End Sub


Sub FillBlankCellsWithRandomNumbers()

    ' код с небольшой модификацией взят с http://excelvba.ru/code/FillBlankCellsWithRandomNumbers

    ' заполняет пустые ячейки выделенного диапазона
    ' случайными значениями от 1 до 12

    Dim cell As Range, ra As Range
    ' ограничиваем выделенный диапазон используемой областью листа
    Set ra = Range("A1:AA10000")    'Intersect(Selection, ActiveSheet.UsedRange)

    If ra Is Nothing Then
        MsgBox "В выделенном диапазоне нет пустых ячеек!", _
               vbExclamation, "Нечего заполнять"
    Else
        Application.ScreenUpdating = False    ' отключаем обновление экрана

        ' перебираем все ячейки в выделенном диапазоне
        For Each cell In ra.Cells
            ' если ячейка пустая - вычисляем случайное число, и заносим его в ячейку
            If Trim(cell) = "" Then cell = Fix(Rnd() * 12 + 1)
        Next cell

        ' можно и так - записать во все ячейки формулу,
        ' а потом заменить формулы значениями
        'ra.Formula = "=INT(RAND()*12+1)":         ra.Value = ra.Value
    End If
    Animation.Hide
End Sub

Sub bezKODA()

    Animation.Show
    Animation.L1.FontSize = 10
  
  
    Animation.Caption = "Пример анимации"
    Animation.L1.Caption = "Подождите - идет заполнение ..."

    Animation.WebBrowser1.Navigate ThisWorkbook.Path & "\bipolar-balls.GIF"
    
Application.OnTime Now + TimeValue("00:00:07"), "quit"
    
End Sub

Sub quit()
    Animation.Hide
End Sub

[IgorGO]

во вложении анимация процесса выполнения в строке статуса.

[xamillion]

Сообщение от IgorGO

во вложении анимация процесса выполнения в строке статуса.

спасибо... это работает... это мы умеем )))

хотелось бы гифку WebBrowserом крутить...

[EducatedFool]

' перебираем все ячейки в выделенном диапазоне
For Each cell In ra.Cells
' если ячейка пустая - вычисляем случайное число, и заносим его в ячейку
If Trim(cell) = "" Then cell = Fix(Rnd() * 12 + 1)
Next cell

хреновый код
максимально медленный

если сформировать массив случайных значений, и вывести массив на лист одной командой (можно и формулами, как у вас закоментировано) , то заполнение выполнится моментально, и всякие анимации не потребуются

[xamillion]

в том-то и дело что в оригинале еще медленнее код, пытался перевести на массивы, но там то количество символов в ячейке большое, то еще на чем-то запинается... уже смотрел в сторону java, но тут вообще темный лес для меня...

может есть какие-то приоритеты (выделение памяти) для процедуры или еще чего умнее?