Note: The other languages of the website are Google-translated. Back to English
Login  \/ 
x
or
x
Registrati  \/ 
x

or

 Come creare una finestra di messaggio sì no prima di eseguire una macro in Excel?

In Excel, puoi attivare direttamente una macro premendo il tasto F5 o fare clic su Correre nel pulsante Microsoft Visual Basic, Applications Edition finestra. Ma, a volte, potresti voler creare una finestra di messaggio che chiederà all'utente se desidera eseguire la macro. In caso affermativo, continuare a eseguire il codice, in caso negativo, interrompere l'esecuzione del codice. In questo articolo, parlerò di come creare una finestra di messaggio sì no prima di eseguire una macro in Excel.

Crea una finestra di messaggio sì no prima di eseguire una macro con codice VBA


Crea una finestra di messaggio sì no prima di eseguire una macro con codice VBA


Il seguente codice VBA può aiutarti ad aggiungere una casella di richiesta sì no per confermare se si esegue una macro, eseguire i passaggi seguenti:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Dacci un'occhiata cliccando inserire > Moduloe incolla la seguente macro nel file Modulo Finestra.

Codice VBA: crea una finestra di messaggio sì no prima di eseguire una macro:

Sub continue()
CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
If CarryOn = vbYes Then
'put rest of code here
End If
End Sub

Osservazioni:: Nel codice sopra, copia e incolla il tuo codice senza l'estensione Sub intestazione e End Sub piè di pagina tra il If CarryOn = vbYes Then e Fine se script. Vedi screenshot:

casella di messaggio doc sì no macro 1

3. Quindi premere F5 chiave, verrà visualizzata una finestra di messaggio per ricordarti se desideri eseguire questo codice, fai clic su pulsante per continuare e fare clic su Non per fermare, vedi screenshot :

casella di messaggio doc sì no macro 2


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
fondo officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    FEWQ · 1 years ago
    Or you use this code on top and there is no need to put the whole code inside an if sentence

    CarryOn = MsgBox("Do you want to run this macro?", vbYesNo, "Kutools for Excel")
    If CarryOn = vbNo Then
    Exit Sub
    End If