Как да създадете таймер за кутия за съобщения за автоматично затваряне на кутията за съобщения след определено време в Excel?
Когато използвате работна книга на Excel, може често да използвате VBA скриптове за решаване на проблеми. И ще има някои кутии за съобщения, изскачащи по време на изпълнение на скрипта. В някои случаи ще искате някои определени кутии за съобщения да се затварят автоматично след определено време, вместо да ги затваряте ръчно. В тази статия ще ви покажем метод за създаване на таймер за кутия за съобщения за автоматично затваряне на кутията за съобщения след определено време в Excel.
Създайте таймер за кутия за съобщения, за да отхвърлите автоматично кутията за съобщения след определено време
Тук се предоставя шаблон на VBA скрипт, за да създадете таймер за кутия за съобщения.
Да предположим, че изпълнявате VBA скрипт за преместване на редове въз основа на стойността на клетката. След като приключите с преместването, трябва да изскочи поле за съобщение, за да ви каже, че операцията е била успешна и това поле за съобщение трябва да се затвори автоматично след 4 секунди (вижте екранната снимка по-долу). Моля, следвайте стъпките по-долу.
1. Отвори Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модулии след това вмъкнете VBA кода, който искате да използвате за преместване на редове въз основа на стойността на клетката.
2. Копирайте следния VBA код 1 и го поставете преди кода, с който искате да работите. Вижте екранната снимка по-долу:
VBA код 1:
Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal xHwnd As LongPtr, _
ByVal xText As String, _
ByVal xCaption As String, _
ByVal xMsgBoxStyle As VbMsgBoxStyle, _
ByVal xwlange As Long, _
ByVal xTimeOut As Long) _
As Long
3. Копирайте VBA код 2 по-долу и го поставете преди реда „End Sub“ на кода, с който искате да работите.
VBA код 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Забележка: Можете да промените съдържанието на полето за съобщения и времето за показване на диалоговия прозорец според вашите нужди.
4. След стартиране на кода за извършване на операцията, ще се появи прозорец със съобщение и ще се затвори автоматично след определено време (в този случай е 4 секунди).
Свързани статии:
- Как да изскача прозорец със съобщение, когато щракнете върху определена клетка в Excel?
- Как да копирам текст от полето за съобщения в Excel?
- Как да изскача прозорец със съобщение при активиране/отваряне на определен работен лист в Excel?
- Как да изскача прозорец за съобщение, за да се покаже диапазон от клетки или стойности на клетки в Excel?
- Как да изскача прозорец със съобщение, ако стойността на клетката се промени в диапазон в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!