Всплывающее окошко на время выполнения скрипта

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Всплывающее окошко на время выполнения скрипта (Макросы Sub)

lexa19921904

Дата: Четверг, 20.02.2014, 12:06 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Здравствуйте!
У меня макрос выполняется примерно 2-3 минуты
Подскажите пожалуйста можно ли сделать так, что бы во время выполнения данного макроса на экран выводилось сообщение типа MsgBox с надписью "Подождите ведутся расчеты", которое не требовало бы никакого отклика и исчезало во время завершения макроса, или сменялось обычным MsgBox "Все готово"

Но в примере скрипт выполняется быстро.

К сообщению приложен файл: test_proverk.xls (43.0 Kb)

Ответить

Саня

Дата: Четверг, 20.02.2014, 13:11 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

принцип такой

К сообщению приложен файл: 0122207.xls (58.5 Kb)

Ответить

KuklP

Дата: Четверг, 20.02.2014, 13:18 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

В нете полно прогрессбаров на ВБА, но для начала стоило бы использовать все возможности по ускорению макроса. Например, сократить к-во обращений к листу. Глядишь прогрессбар и не понадобится, тем более, что они значительно увеличивают время выполнения. Например:
[vba]

Код

Sub test()
     Dim x, y(), i&, k&, n&, s$
     Dim z&, q&, w&
     x = Range("A1").CurrentRegion.Value
     For i = 2 To UBound(x)
         x(i, 4) = x(i, 2) * x(i, 3)
     Next
     Range("A1").CurrentRegion.Value = x
     '    Do Until Cells(j, 2) = ""
     '        Cells(j, 4) = Cells(j, 2) * Cells(j, 3)
     '        j = j + 1
     '    Loop
     '    x = Range("A1").CurrentRegion.Value
     ReDim y(1 To UBound(x), 1 To 2)
...

[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

lexa19921904

Дата: Четверг, 20.02.2014, 14:34 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 28

Репутация: 0 ±

Замечаний: 20% ±

Excel 2010

Спасибо, буду делать прогресс бар.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Всплывающее окошко на время выполнения скрипта (Макросы Sub)

Страница 1 из 1
1