Chiudere Un Msgbox ...
 
Notifiche
Cancella tutti

La consultazione del forum è libera per tutti.

Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).

Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.

Chiudere Un Msgbox Con un Temporizzatore

2 Post
2 Utenti
0 Reactions
12 Visualizzazioni
Forum 1
(@a-maurizio)
Post: 16
Eminent Member
Avviatore di Topic
 

Ciao a tutti da A.Maurizio
Il mio problema e questo : Vorrei Sapere se fosse possibile chiamare un msgbox dal foglio di excel 
E con l'uso del VBA
Fare in modo che dopo un tempo stimato di 5 secondi
L'msgbox si possa chiudere senza che io debba intervenire premendo il tasto OK ecc.....!
Io ho provato a creare una funzione sfruttando l'uso delle Api di Windows 
Ma a quanto vedo non dunzione
Voi Potreste darmi una mano in merito ?
Grazie

(P.S) Inserisco il mio file di prova

----------------------------------------------------------------------------------------

Hello everyone from A. MaurizioMy problem is this: I would like to know if it is possible to call a msgbox from the Excel sheetAnd using VBATo make it so that after an estimated time of 5 secondsThe msgbox can close without me having to intervene by pressing the OK button, etc.....!I tried to create a function using Windows APIsBut as far as I can see, it doesn't workCould you help me with this?Thank you(P.S) I'm including my test file.

 

Versione di Excel
Sistema operativo
 
Postato : 11/07/2025 19:22
Alexps81
(@alexps81)
Post: 24
Eminent Member
 

Ciao @A.Maurizio,

secondo me la soluzione meno impegnativa in questi casi sarebbe utilizzare una UserForm che simula la MsgBox. A quel punto, dopo aver creato una UserForm identica ad una MsgBox, ci metti dentro una Label per il testo da contenere e un CommandButton che simula il tasto "OK", sull'evento Activate metti:

Private Sub UserForm_Activate()
    Label1.Caption = Range("A6").Value
    Application.OnTime Now + TimeValue("00:00:05"), "ChiudiUserForm"
End Sub

poi in un Modulo Standard metti:

Public Sub ChiudiUserForm()
    Unload UserForm1
End Sub

Quindi appena lanci la UserForm, dopo 5 secondi si chiuderà da sola.

 
Postato : 11/07/2025 22:04
Condividi:
My Agile Privacy
Questo sito utilizza cookie tecnici e di profilazione. Cliccando su accetta si autorizzano tutti i cookie di profilazione. Cliccando su rifiuta o la X si rifiutano tutti i cookie di profilazione. Cliccando su personalizza è possibile selezionare quali cookie di profilazione attivare.
Attenzione: alcune funzionalità di questa pagina potrebbero essere bloccate a seguito delle tue scelte privacy
     Scarica il nostro ebook gratuito     

Unisciti a oltre 35.000 professionisti
che hanno già scelto di semplificare il proprio lavoro
e aumentare la produttività con la nostra newsletter!

Scarica l’ebook con i
migliori trucchi e suggerimenti per Excel
selezionati per te da Excel Academy

Download