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. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
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. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
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 10 - office 2013
miko
Utente Senior
 
Post: 520
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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
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. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
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. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
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 10 - office 2013
miko
Utente Senior
 
Post: 520
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 65 ospiti