Добрый день! Вопрос: если вот это MsgBox "Привет", vbInformation написать в макросе, то на экран выведется окно и там нужно нажать ОК что бы это окно закрылось.... а как это переписать или что добавить в это, что бы окно если не нажали ОК само через 5 сек. закрылось? Заранее спасибо.
Добрый день! Вопрос: если вот это MsgBox "Привет", vbInformation написать в макросе, то на экран выведется окно и там нужно нажать ОК что бы это окно закрылось.... а как это переписать или что добавить в это, что бы окно если не нажали ОК само через 5 сек. закрылось? Заранее спасибо.ПалычЪ
Борода спасибо за инфу.....я просто подумал, что без создовании формы путем одной короткой строки типа Sub Дел() MsgBox "Привет", vbInformation End Sub можно что то добавить и вуаля заставка сама через некоторое время исчезнет..без нажатия на ней ОК..
Лови + в репу
Борода спасибо за инфу.....я просто подумал, что без создовании формы путем одной короткой строки типа Sub Дел() MsgBox "Привет", vbInformation End Sub можно что то добавить и вуаля заставка сама через некоторое время исчезнет..без нажатия на ней ОК..
Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long
Sub Дел() Range("B5:E85").ClearContents MessageBoxTimeOut Application.hWnd, "Пример Messagebox'а с таймаутом", "Автоматически закроется через 3 секунды", vbInformation + vbOKOnly, 0&, 3000 End Sub
[/vba]
без создания формы можно!!!
[vba]
Код
Private Declare Function MessageBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long
Sub Дел() Range("B5:E85").ClearContents MessageBoxTimeOut Application.hWnd, "Пример Messagebox'а с таймаутом", "Автоматически закроется через 3 секунды", vbInformation + vbOKOnly, 0&, 3000 End Sub
alex77755, Круто! а я так и не нашёл ответ на этот вопрос в просторах интернета. Искал буквально 3 дня назад. Чертовски вовремя! А вот сам таймер никак нельзя вывести в окно?
alex77755, Круто! а я так и не нашёл ответ на этот вопрос в просторах интернета. Искал буквально 3 дня назад. Чертовски вовремя! А вот сам таймер никак нельзя вывести в окно?ZamoK
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
