In questo articolo, impareremo la funzione MsgBox in Excel VBA, di seguito sono riportate le impostazioni degli argomenti dei pulsanti di msgbox vba:
| Costante | Valore | Descrizione |
| vbOKOnly | 0 | Visualizza solo il pulsante OK. |
| vbOKAnnulla | 1 | Visualizza i pulsanti OK e Annulla. |
| vbAbortRetryIgnore | 2 | Visualizza i pulsanti Interrompi, Riprova e Ignora. |
| vbSìNoAnnulla | 3 | Visualizza i pulsanti Sì, No e Annulla. |
| vbSìNo | 4 | Visualizza i pulsanti Sì e No. |
| vbRiprovaAnnulla | 5 | Visualizza i pulsanti Riprova e Annulla. |
| vbCritical | 16 | Visualizza l'icona del messaggio critico. |
| vbDomanda | 32 | Visualizza l'icona della query di avviso. |
| vbExclamation | 48 | Visualizza l'icona del messaggio di avviso. |
| vbInformazioni | 64 | Visualizza l'icona del messaggio informativo. |
| vbDefaultButton1 | 0 | Il primo pulsante è quello predefinito. |
| vbDefaultButton2 | 256 | Il secondo pulsante è quello predefinito. |
| vbDefaultButton3 | 512 | Il terzo pulsante è quello predefinito. |
| vbDefaultButton4 | 768 | Il quarto pulsante è quello predefinito. |
| vbApplicationModal | 0 | Modalità di applicazione; l'utente deve rispondere alla finestra di messaggio prima di continuare a lavorare nell'applicazione corrente. |
| vbSystemModal | 4096 | Modale di sistema; tutte le applicazioni vengono sospese fino a quando l'utente non risponde alla finestra di messaggio. |
| vbMsgBoxHelpButton | 16384 | Aggiunge il pulsante Aiuto alla finestra del messaggio |
| VbMsgBoxSetForeground | 65536 | Specifica la finestra della finestra di messaggio come finestra in primo piano |
| vbMsgBoxRight | 524288 | Il testo è allineato a destra |
| vbMsgBoxRtlReading | 1048576 | Specifica che il testo deve apparire come lettura da destra a sinistra sui sistemi ebraico e arabo |
Vediamo come la finestra di messaggio vba può aiutare l'utente a eliminare tutto il contenuto delle celle nel foglio di lavoro corrente.
Di seguito lo snapshot dei dati:
Dobbiamo seguire i passaggi seguenti:
- Fare clic sulla scheda Sviluppatore
- Dal gruppo Codice, seleziona Visual Basic
- Inseriamo un pulsante di comando
- Inserisci il seguente codice nel modulo del foglio di lavoro corrente: -
Opzione esplicita
Sub CommandButton1_Click privato ()
Dim risposta come numero intero
answer = MsgBox("Vuoi eliminare tutte le celle nel foglio corrente?", vbYesNo + vbQuestion, "Elimina tutte le celle")
Se risposta = vbSì Allora
Cells.ClearContents
Altro
'fare niente
Finisci se
Fine sottotitolo
- Quando si fa clic sul pulsante Comando, verrà visualizzato il seguente messaggio
- Fare clic sul pulsante Sì per eliminare tutte le celle.
- Il risultato sarà il seguente
In questo modo, possiamo eliminare tutte le celle utilizzando il pulsante di comando in Excel VBA.
Scarica la casella di messaggio in Excel VBA