Макрос. (Не)модальные формы.

[Jarik]

Добрый день.

Есть макрос, который выполняется длительное время.
Хочу реализовать окошко, которое показывает, какая часть макроса выполнилась (в процентах).

В качестве макроса, выполняющегося хоть сколько-то длительное время был написан следующий:

Sub DelRows()
    For i = Rows.Count To 1 Step -1
        Rows(i).delete
    Next i
End Sub

Далее было создана UserForm, допустим, с именем ProcessForm с TextBox с именем bar внутри. Эта форма и будет индикатором удаления.
Выставляю ShowModal False
Тогда путем нехитрых изменений наш макрос приобретает вид.

Sub DelRows()
    Dim pc As Integer ' хранит количество выполненных процентов
    nrows = Rows.Count
    ProcessForm.Show
    
    For i = nrows To 1 Step -1
        Rows(i).Delete
        pc = WorksheetFunction.RoundDown(((nrows - i + 1) / nrows) * 100, 0)
        If pc <> 0 Then ProcessForm.bar = WorksheetFunction.Rept("|", pc)
    Next i
    ProcessForm.Hide
End Sub

Однако индикатор не отображается, только в самом конце.

Буду рад помощи!
Спасибо!

[doober]

Sub DelRows()
    For i = Rows.Count To 1 Step -1
        Rows(i).delete


ProgressBar1.Value =100*(1-(Rows.Count -i)/Rows.Count  )' добавить этот код
    Next i
End Sub

Кидаешь на лист ProgressBar1 и форму создавать не надо,проверил все работает Фотоконтроль прилагаеться

[viter.alex]

Он не отображается, потому что слишком быстро все происходит и вы просто этого не видите.
Где-то был код для «прогресс-бар» от EducatedFool
После ProcessForm.Show нужно поставить оператор DoEvents. Также его нужно поставить после того, как вы обновили ваш «прогресс-бар».

И форму нужно не прятать, а выгружать:
Unload ProcessForm

[viter.alex]

Прошу прощения. Продублировал

[EducatedFool]

А зачем извращаться с прогресс-баром?
Не проще ли удалить строки так:

Sub DelRows()
    Rows.Delete
End Sub

Доля секунды, и всё готово...

А если надо удалить не все строки, а лишь некоторые, то можно использовать макрос из этой темы:
http://www.programmersforum.ru/showp...42&postcount=2
Тоже работает достаточно быстро.

PS: Если так нужен прогрессбар, то пример есть здесь:
http://www.programmersforum.ru/showp...31&postcount=2

[doober]

Эсли удалять 100 или 200 строк,то не стоит городить огород
Но у него продолжительное время,значит много
я проверил на 1000 строк,приблизительно 4 сек,все отлично видно и не надо прерываний ставить

[Jarik]

Всем спасибо, когда будет время (сейчас на работе), разберусь.
По поводу удаления строк - это просто пример, который был написан специально для того, чтобы смоделировать работу некоторого продолжительного макроса.
Естественно, макрос будет совершенно другим.

Еще раз всем спасибо.
Если будут вопрсы, вернусь.