Note: The other languages of the website are Google-translated. Back to English

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:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (6)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych chi'n berffaith... :lol: :lol: :lol: 8) 8) 8)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n braf iawn, ond ar fy nghodau rwy'n defnyddio'r swyddogaeth "GetAsyncKeyState" i gydnabod statws mynediad fy nata (gan ddefnyddio gwn sganio) ac mae'r swyddogaeth "MsgBoxTimeout" yn effeithio ar y swyddogaeth "GetAsyncKeyState". Heb y "MsgBoxTimeOut" mae popeth yn gweithio'n normal, pan fyddaf yn ei gynnwys, mae fel dadactifadu'r swyddogaeth "GetAsyncKeyState", ond nid yw'r ddau eisiau gweithio gyda'i gilydd. Oes gennych chi unrhyw awgrym?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. a oes unrhyw ffordd i atal Excel (VBA) rhag canu pan fydd y blwch yn ymddangos? Mae angen i mi ddefnyddio hwn fel neges dolennu dro ar ôl tro mewn darn o god ond ar wahân i droi'r sain i lawr nid wyf yn gwybod sut i atal y sain rhybudd rhag ymddangos bob tro mae'r blwch yn ymddangos? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Diolch am hyn - mae'n ddefnyddiol iawn. A oes unrhyw ffordd i atal Excel (VBA) rhag canu pan fydd y blwch yn ymddangos? Mae angen i mi ddefnyddio hwn fel neges dolennu dro ar ôl tro mewn darn o god ond ar wahân i droi'r sain i lawr nid wyf yn gwybod sut i atal y sain rhybudd rhag ymddangos bob tro mae'r blwch yn ymddangos? Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo thebankman, Dyma'r seiniau system gais ddiofyn mewn ffenestri. Gallwch ei ddiffodd fel y dangosir yn y screenshot isod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch Crystal. Gwerthfawrogir yn fawr
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir