Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сообщение об окончании работы макро - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Сообщение об окончании работы макро
Ursus Дата: Вторник, 08.08.2017, 13:50 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрейший денёчек!
Подскажите, друзья, что можно дописать в код, чтобы по окончании работы макроса случалось msgbox с сообщением об окончании и/или ещё какой-либо звуковой "блюм"?...
Спасибо
 
Ответить
СообщениеДобрейший денёчек!
Подскажите, друзья, что можно дописать в код, чтобы по окончании работы макроса случалось msgbox с сообщением об окончании и/или ещё какой-либо звуковой "блюм"?...
Спасибо

Автор - Ursus
Дата добавления - 08.08.2017 в 13:50
buchlotnik Дата: Вторник, 08.08.2017, 13:59 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
[vba]
Код
Sub b()
    ' your code
    Beep
    MsgBox "Done!"
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub b()
    ' your code
    Beep
    MsgBox "Done!"
End Sub
[/vba]

Автор - buchlotnik
Дата добавления - 08.08.2017 в 13:59
_Boroda_ Дата: Вторник, 08.08.2017, 14:21 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Я обычно пишу что-то типа
[vba]
Код
Sub tt
ttt = Timer
'код макроса
MsgBox "Работа макроса завершена." & vbLf & vbLf & "Время обработки: " & Format((Timer - ttt) / 24 / 60 / 60, "hh:mm:ss")
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЯ обычно пишу что-то типа
[vba]
Код
Sub tt
ttt = Timer
'код макроса
MsgBox "Работа макроса завершена." & vbLf & vbLf & "Время обработки: " & Format((Timer - ttt) / 24 / 60 / 60, "hh:mm:ss")
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 08.08.2017 в 14:21
Ursus Дата: Вторник, 08.08.2017, 14:56 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо, buchlotnik, Не хочет только "beep" работать... (
 
Ответить
СообщениеСпасибо, buchlotnik, Не хочет только "beep" работать... (

Автор - Ursus
Дата добавления - 08.08.2017 в 14:56
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!