Skip to main content

Conas lasc ama bosca teachtaireachta a chruthú chun an bosca teachtaireachta a dhúnadh go huathoibríoch tar éis am áirithe in Excel?

Agus leabhar oibre Excel á úsáid agat, is féidir leat scripteanna VBA a úsáid go minic chun fadhbanna a réiteach. Agus beidh roinnt boscaí teachtaireacht popping suas le linn an script a rith. I gcásanna áirithe, beidh tú ag iarraidh roinnt boscaí teachtaireachta sonraithe a dhúnadh go huathoibríoch tar éis am áirithe, in ionad é a dhúnadh de láimh. San Airteagal seo, taispeánfaimid modh duit chun lasc ama bosca teachtaireachta a chruthú chun an bosca teachtaireachta a dhúnadh go huathoibríoch tar éis am áirithe in Excel.

Cruthaigh lasc ama bosca teachtaireachta chun bosca teachtaireachta a dhíbhe go huathoibríoch tar éis am áirithe


Cruthaigh lasc ama bosca teachtaireachta chun bosca teachtaireachta a dhíbhe go huathoibríoch tar éis am áirithe

Soláthraíonn tú teimpléad script VBA anseo chun lasc ama bosca teachtaireachta a chruthú.

Ag glacadh leis go bhfuil script VBA á rith agat chun sraitheanna a bhogadh bunaithe ar luach cille. Tar éis duit an bogadh a chríochnú, beidh bosca teachtaireachta uait le teacht aníos chun a chur in iúl duit gur éirigh leis an oibríocht agus ní mór an bosca teachtaireachta seo a dhúnadh go huathoibríoch tar éis 4 soicind (féach an scáileán thíos). Lean na céimeanna thíos le do thoil.

1. oscail an Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil, agus ansin cuir isteach an cód VBA gur mhaith leat a úsáid chun sraitheanna a bhogadh bunaithe ar luach cille.

2. Cóipeáil an cód VBA 1 seo a leanas agus cuir é roimh an gcód is mian leat a oibriú. Féach ar an scáileán thíos:

Cód 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. Cóipeáil an cód VBA 2 thíos agus cuir é roimh an líne "Deireadh Fo" den chód is mian leat a oibriú.

Cód VBA 2:

 Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)

nótaí: Is féidir leat ábhar an bhosca teachtaireachtaí a athrú, agus am taispeána an bhosca dialóige de réir do chuid riachtanas.

4. Tar éis an cód a rith chun an oibríocht a dhéanamh, beidh bosca teachtaireachta aníos agus ansin dúnfaidh sé go huathoibríoch tar éis am áirithe (tá 4 soicind sa chás seo).


Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ufff... great!!... very good... thank you
This comment was minimized by the moderator on the site
Ufff... buenisimo!!... muy bien... gracias
This comment was minimized by the moderator on the site
Hi. Thanks for this - it's really useful. Is there any way to stop Excel (VBA) chiming when the box appears? I need to use this as a repeatedly looping message in a piece of code but aside from turning the volume down I don't know how to stop the warning sound appearing everytime the box appears? Thanks.
This comment was minimized by the moderator on the site
Hi thebankman,This is the default application system sounds in windows. You can turn it off as shown in the screenshot below.
This comment was minimized by the moderator on the site
Thanks Crystal. Much appreciated
This comment was minimized by the moderator on the site
Hi. is there any way to stop Excel (VBA) chiming when the box appears? I need to use this as a repeatedly looping message in a piece of code but aside from turning the volume down I don't know how to stop the warning sound appearing everytime the box appears? Thanks.
This comment was minimized by the moderator on the site
It is really nice, but on my codes I'm using the "GetAsyncKeyState" function to recognize the entry status for my data (using an scan gun) and the "MsgBoxTimeout" function is affecting the "GetAsyncKeyState" function. Without the "MsgBoxTimeOut" everything is working normal, when I include it, is like disactivate the "GetAsyncKeyState" function, but both not want to work together. Have you any suggestion?
This comment was minimized by the moderator on the site
You are just perfect... :lol: :lol: :lol: 8) 8) 8)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations