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

Macro e VBA

Ultimi post da Alexps81 2 mesi fa

4 Post

2 Utenti

0 Reactions

172 Visualizzazioni

A.Maurizio

(@a-maurizio)

Post: 17

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.

Allegati : Togli_msgbox.xlsm

Versione di Excel

Excel 2019

Sistema operativo

Windows

Postato : 11/07/2025 19:22

Alexps81

(@alexps81)

Post: 33

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

A.Maurizio

(@a-maurizio)

Post: 17

Eminent Member

Avviatore di Topic

Ciao AlexPs81 ti ringrazio tantissimo per il tuo aiuto

Ma fatto in questo modo per certi versi lo avevo già provato anche io

E vi garantisco che funziona benissimo .

Però io non volevo a priori fare uso del Userform

Perché il mio desiderio e fare in modo che ogni cella faccia la funzione come tasto e come tasto deve ricevere ad esempio il compleanno di !

E visto che il font di ogni cella e portata al minimo consentito dei suoi pixel

Vorrei fare in modo che l'msgbox mi faccia vedere il suo contenuto.

Tutto qua.

Infatti sto anche pensando di aggirare il tutto e vedere se sia possibile richiamare una label inserita in un Userform

Che riceva il dato desiderato : Compleanno ecc...!

E presentarsi sul foglio di excel ma Senza aprire l'userform

Ma per il momento non ho ancora provato nulla di concreto.

Ciao e Grazie

Mostra testo citato

Indirizzo non trovato

Il tuo messaggio non è stato recapitato a noreply@excelacademy.it perché l'indirizzo risulta inesistente o non può ricevere email.

La risposta del server remoto è:

550 5.1.1 : Indirizzo del destinatario rifiutato: utente sconosciuto nella tabella della casella di posta virtuale

Nascondi testo citato

---------- Messaggio inoltrato ----------
Da: Maurizio Aghileira < a.maury1704@gmail.com >
A: noreply@excelacademy.it
Cc:
Ccn:
Data: Sab, 12 lug 2025 11:03:18 +0200
Oggetto: Ri: Nuova Risposta

Vi ringrazio tantissimo per il vostro aiuto

Ma fatto in questo modo per certi versi lo avevo già provato anche io

E vi garantisco che funziona benissimo.

Però io non volevo a priori fare uso del Userform

Perché il mio desiderio e fare in modo che ogni cella faccia la funzione come tasto e come tasto deve ricevere ad esempio il compleanno di !

E visto che il font di ogni cella e portata al minimo consentito dei suoi pixel

Vorrei fare in modo che l'msgbox mi faccia vedere il suo contenuto.

Tutto qua.

Infatti sto anche pensando di aggirare il tutto e vedere se sia possibile richiamare una etichetta inserita in un Userform

Che riceveva il dato desiderato: Compleanno ecc...!

E presentarsi sul foglio di Excel ma Senza aprire l'userform

Ma per il momento non ho ancora provato nulla di concreto.

Ciao e Grazie

Il ven 11 lug 2025, 22:05 Excel Academy < info@officeacademy.it > ha scritto:

Ciao A.Maurizio!
È stata pubblicata una nuova risposta sul topic a cui sei iscritto - chiudendo Un Msgbox Con un Temporizzatore .

RISPONDI: chiudere Un Msgbox Con un Temporizzatore

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:

Sub pubblico ChiudiUserForm() Scarica UserForm1 Fine Sub

Quindi appena lanciato il UserForm, dopo 5 secondi si chiuderà da sola.

Se desideri annullare l\'iscrizione a questo argomento, utilizza il link sottostante.

Disscriviti

https://www.excelacademy.it/wp-json/wp-mail-smtp/v1/e/ZGF0YSU1QmVtYWlsX2xvZ19pZCU1RD0zODExNiZkYXRhJTVCZXZlbnRfdHlwZSU1RD1vcGVuLWVtYWlsJmhhc2g9MDEwNjU0YWI3NDhkMDliNGVlOTZjNzM1YmExZTZmMDYwOTNkODU1OGY0YzNlNDU4ZDg5ZjY0MWVkN2RiOGNjZg= =" alt="" />

Questo post è stato modificato 2 mesi fa da A.Maurizio

Postato : 12/07/2025 11:21

Alexps81

(@alexps81)

Post: 33

Eminent Member

@A.Mautizio, non c'è scritto nulla nel tuo ultimo post

Postato : 12/07/2025 14:17

12 Forum
698 Discussioni
4,850 Post
0 Online
3,809 Utenti

Icone forum: Il forum non contiene post non letti Il forum contiene post non letti

Icone discussione: Nessuna Risposta Con risposte Attivo Hot In evidenza Non approvato Risolto Privato Chiuso