Sut i greu amserydd blwch neges i gau'r blwch negeseuon yn awtomatig ar ôl amser penodol yn Excel?
Wrth ddefnyddio llyfr gwaith Excel, efallai y byddwch yn aml yn defnyddio sgriptiau VBA i ddatrys problemau. A bydd rhai blychau neges yn ymddangos yn ystod y sgript. Mewn rhai achosion, byddwch am i rai blychau negeseuon penodedig gau yn awtomatig ar ôl amser penodol, yn hytrach na'u cau â llaw. Yn yr erthygl hon, byddwn yn dangos dull i chi o greu amserydd blwch neges i gau'r blwch neges yn awtomatig ar ôl amser penodol yn Excel.
Creu amserydd blwch neges i ddiswyddo blwch negeseuon ar ôl amser penodol
Creu amserydd blwch neges i ddiswyddo blwch negeseuon ar ôl amser penodol
Yma yn darparu templed sgript VBA i chi greu amserydd blwch neges.
Gan dybio eich bod yn rhedeg sgript VBA i symud rhesi yn seiliedig ar werth cell. Ar ôl gorffen symud, mae angen blwch negeseuon arnoch i'w agor i ddweud wrthych fod y llawdriniaeth yn llwyddiannus a bod angen cau'r blwch neges hwn yn awtomatig ar ôl 4 eiliad (gweler y llun isod). Dilynwch y camau isod.
1. Agorwch y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, ac yna mewnosodwch y cod VBA yr ydych am ei ddefnyddio i symud rhesi yn seiliedig ar werth celloedd.
2. Copïwch y cod VBA 1 canlynol a'i roi cyn y cod yr ydych am ei weithredu. Gweler y sgrinlun isod:
Cod 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. Copïwch y cod VBA 2 isod a'i roi cyn y llinell "End Sub" o'r cod yr ydych am ei weithredu.
Cod VBA 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Nodyn: Gallwch newid cynnwys y blwch neges, ac amser arddangos y blwch deialog yn ôl eich anghenion.
4. ar ôl rhedeg y cod i gyflawni'r llawdriniaeth, bydd blwch neges pop i fyny ac yna cau yn awtomatig ar ôl amser penodol (yn yr achos hwn yw 4 eiliad).
Erthyglau perthnasol:
- Sut i popio blwch negeseuon wrth glicio ar gell benodol yn Excel?
- Sut i gopïo testun o'r blwch negeseuon yn Excel?
- Sut i popio blwch negeseuon wrth actifadu / agor taflen waith benodol yn Excel?
- Sut i popio blwch negeseuon i arddangos ystod o gelloedd neu werthoedd celloedd yn Excel?
- Sut i popio blwch negeseuon os yw gwerth celloedd yn newid o fewn ystod yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!