Всплывающее окно без кнопки

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

Всплывающее окно без кнопки (Макросы/Sub)

f_f

Дата: Понедельник, 22.06.2015, 11:47 | Сообщение № 1

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

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

Сообщений: 10

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

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

Excel 2010

Есть ли такая возможность, чтобы во время длительного выполнения макроса всплывало информационное окно, например "Пожалуйста подождите", но по окончании работы макроса оно само пропадало бы?

Ответить

KSV

Дата: Понедельник, 22.06.2015, 11:53 | Сообщение № 2

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

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

Сообщений: 770

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

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

Excel 2013

ИМХО, лучше в строке статуса выводить % выполнения, чтоб пользователь не только "не паниковал", но и знал сколько еще ждать.
[vba]

Код

Application.Statusbar = "Выполнено 57%"

[/vba]

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Ответить

f_f

Дата: Понедельник, 22.06.2015, 11:57 | Сообщение № 3

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

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

Сообщений: 10

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

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

Excel 2010

Отлично!

А этот код достаточно встроить в начале макроса и все? Или команду закрытия окна надо?

Ответить

KSV

Дата: Понедельник, 22.06.2015, 12:11 | Сообщение № 4

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

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

Сообщений: 770

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

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

Excel 2013

Цитата f_f, 22.06.2015 в 11:57, в сообщении № 3

Или команду закрытия окна надо?

Это будет НЕ окно. Этот текст будет выводиться в строке статуса (в нижней части окна Excel)
[vba]

Код

Sub Test()
     Dim i&, n&
     n = Rows.Count
     For i = 1 To n
         Application.StatusBar = "Обрабатывается строка: " & i & " из " & n

         ' ... здесь какие-то ваши длительные действия

     Next
     Application.StatusBar = False ' после завершения цикла в строке статуса напишет "ГОТОВО"
End Sub

[/vba]