Совместить процессы с высвечиванием формы

[Blame]

Здравствуйте!
Скажите, пожалуйста, а можно сделать так, чтобы пока шла обработка (работали процедуры, функции и т.д.) высвечивалась форма?
Даже вопрос такой. Например, пока обрабатывается 1 лист высвечивается одна форма, как только процесс заканчивается , высвечивается другая форма и процесс обработки при этом идет. Как переключать формы по окончанию обработки листа-понятно, но не понятно,как совместить процесс обработки и высвечивания формы.
Если можно, то примерчик.
Просто у меня получается, что или форма висит, или процесс идет..одно из двух...и смысл формы теряется))))

[tae1980]

Думаю это поможет http://www.sql.ru/forum/actualthread...55&hl=#1968357

[EducatedFool]

Воспользуйтесь прогресс-баром:
http://excelvba.ru/tools/ProgressIndicator

[alex77755]

Есть ещё стандартный статусбар. Можно выводить положение дел туда

[Blame]

Никогда не работала с прогресс-баром.
Для меня это пока сложно.

EducatedFool
Честно говоря,мне очень сложно разобраться в этом примере.
После того, как перетащили модули ProgressIndicator и форму F_Progress

Использовать прогресс бар сравнительно просто - достаточно добавить в макрос несколько строк кода:

необходимо добавить код:

Sub ПримерИспользованияПрогрессБара()

    КоличествоЗапусковВнешнегоМакроса = 3000

    Dim pi As New ProgressIndicator    ' создаём новый прогресс-бар
   pi.Show "Форматирование ячеек"    ' отбражаем индикатор

    ' первое действие (на шкале индикатора от 0 до 95 процентов) - это окраска ячеек
   pi.StartNewAction 0, 95, "Окраска ячеек", , , КоличествоЗапусковВнешнегоМакроса

    ' цикл с вызовом внешнего макроса "ФорматированиеЯчейки"
   For i = 1 To КоличествоЗапусковВнешнегоМакроса

        ' инициируем очередное действие в индикаторе
       pi.SubAction , "Обрабатывается ячейка $index из $count", "$time"

        ' собственно, код цикла
       ФорматированиеЯчейки i
    Next

    ' всё покрасили - теперь пора чистить ячейки )
   pi.StartNewAction 95, 100, "Очистка ячеек"
    Cells.Clear

    pi.Hide    ' закрываем индикатор
End Sub

Sub ФорматированиеЯчейки(ByVal n As Long)    ' вызываемый макрос
   Cells(n).Interior.ColorIndex = 15: Cells(n).BorderAround xlContinuous
End Sub

По правде говоря, не понятны следующие моменты:
1)

достаточно добавить в макрос

- в какой макрос добавлять ?
2) Здесь Sub ФорматированиеЯчейки(ByVal n As Long)- это основной маркос,который выполняет обработку? Если да,то он у меня процедура идет без указания параметров...
3)

 ' собственно, код цикла
       ФорматированиеЯчейки i

Код какого цикла необходимо прописывать ?
4) Простите за мою тупость,я понимаю,что это пример, но мне не нужно закрашивать ячейки. Мне нужно ,чтобы индикатор отображал процесс работы моего макроса..


alex77755
можно пример или ссылочку?

[Blame]

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

[Blame]

EducatedFool

После того, как я перетащили модули ProgressIndicator и форму F_Progress отображается форма и идет полоса прогресс бара, но после того,как доходит 100% ,их сменилось уже несколько ,а окончания процесс все нет.
Подскажите,пожалуйста, что мне надо добавить в код ?

[EducatedFool]

что мне надо добавить в код ?

Вы бы выложили свой файл - давно бы получили готовое решение...

[Blame]

EducatedFool

Спасибо за рекомендацию
Поняля
Пример обработки одного листа приложила в файл

[EducatedFool]

Давайте попробуем обойтись без прогресс-бара:

Sub Кнопка1_Щелчок()
    arr = Range([A2], Range("A" & Rows.Count).End(xlUp)).Resize(, 3).Value
    ReDim NewArr(1 To Rows.Count, 1 To 5)
    For i = LBound(arr) To UBound(arr)
        For Each s In Split(arr(i, 1), ",")
            j = j + 1: sArr = Split(s, "|")
            NewArr(j, 1) = sArr(0): NewArr(j, 2) = sArr(1): NewArr(j, 3) = sArr(2)
            NewArr(j, 4) = arr(i, 2): NewArr(j, 5) = arr(i, 3)
        Next s
    Next i
    Range("d2").Resize(j, 5).Value = NewArr
End Sub

Этот код (поскольку теперь он записывает ячейки не по одной, а весь результат сразу) отрабатывает примерно за секунду,
поэтому можно не городить всякие формы.

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__22-34-55.zip