Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

MsgBox con macro chiusura

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

MsgBox con macro chiusura

Postdi Francesco53 » 19/08/11 14:47

Buongiorno a tutti, chiedo se è possibile al tasto ok che appare in una MsgBox,
abbinare una macro che faccia chiudere il programma.
Grazie
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: MsgBox con macro chiusura

Postdi Francesco53 » 19/08/11 18:58

Grazie e scusate, ho risolto.
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: MsgBox con macro chiusura

Postdi miko » 20/08/11 09:44

ciao Francesco,
potresti postare la soluzione che hai trovato a questo tuo problema?
molto spesso anche io ho necessità di modificare le sterili msgbox, ma non sempre riesco ad ottenere risultati soddisfacenti.
grazie saluti
windows xp-office 2003
miko
Utente Senior
 
Post: 422
Iscritto il: 29/12/09 10:44

Re: MsgBox con macro chiusura

Postdi Anthony47 » 20/08/11 13:55

Non so che soluzione ha adottato Francesco, ma visto che il msgbox non ha una sua programmazione il risultato e' che la macro che ha aperto il messaggio continua all' ok; quindi bastera' inserire dopo l' istruzione msgbox le istruzioni che ti servono.
Ricorda che il msgbox puo' avere differenti layout di "buttons", vedi l' help on line alla voce "Funzione MsgBox"; in questo esempio vengono mostrati i bottoni Si / No, consentendo una scelta:
Codice: Seleziona tutto
Scelta = MsgBox("Vuoi terminare?", vbYesNo)
If Scelta = vbYes Then ThisWorkbook.Close savechanges:=True

Per una cosa piu' articolata devi andare su una Userform, che e' un oggetto programmabile quindi molto piu' versatile.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: MsgBox con macro chiusura

Postdi Francesco53 » 20/08/11 20:59

Scusa miko ho letto solo ora la tua richiesta, ho visto che ti ha dato delle indicazioni Anthony,
io ho risolto così:
Codice: Seleziona tutto
Dim Risp As Integer
Risp = MsgBox("Hai superato il limite di 100", vbOKOnly, "Fine elaborazione")
If Risp = 1 Then
Call Salva
End If
End If

Spero ti possa essere utile.
Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: MsgBox con macro chiusura

Postdi Francesco53 » 21/08/11 08:05

Per mico, cusa c'è un If in più.
Codice corretto:
Codice: Seleziona tutto
Dim Risp As Integer
Risp = MsgBox("Hai superato il limite di 100", vbOKOnly, "Fine elaborazione")
If Risp = 1 Then
Call Salva
End If

Francesco
S.O. Vista e Office 2007
Francesco53
Utente Senior
 
Post: 647
Iscritto il: 20/02/10 18:45

Re: MsgBox con macro chiusura

Postdi miko » 22/08/11 19:24

buona sera a tutti
grazie ad entrambi per le vostre soluzioni;
sono senz'altro utili, almeno se siamo costretti ad usarli sappiamo come far proseguire
una macro.
i msgbox sono antiestetici e come indicato da anthony, spesso preferisco costruire delle form aventi lo stesso scopo.
saluti ed ancora grazie
windows xp-office 2003
miko
Utente Senior
 
Post: 422
Iscritto il: 29/12/09 10:44


Torna a Applicazioni Office Windows


Topic correlati a "MsgBox con macro chiusura":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti