Excel VBA MsgBox basics

Novembre 2016

Con Excel VBA (Visual Basic for Applications) è possibile creare una finestra di dialogo, la VBA MsgBox che sfrutta il sistema operativo Windows.


Funzione MsgBox

Visualizzare un messaggio nella casella di dialogo, attendere che l'utente clicchi un bottone e poi conoscere che tasto l'utente ha cliccato tramite un Integer (numero intero) di ritorno.

Sintassi

MsgBox(prompt[, buttons] [, title] [, helpfile, context])


contextDescription
prompta (Must) string, la lunghezza massima del prompt è di 1024 caratteri, se il prompt si compone in più di una linea, è possibile separarle utilizzando un carattere ad ogni capo (Chr(13)
buttonsOpzionale, la somma dei valori che specificano il numero e il tipo di pulsanti da visualizzare, il valore predefinito per i pulsanti è 0.
titleOpzionale. Stringhe sono visualizzate nella barra del titolo della finestra di dialogo.
helpfileOpzionale. Delle stringhe che identificano l'Help file da utilizzare per fornire aiuto sensibile al contesto per la finestra di dialogo.
contextOpzionale. L'espressione numerica che è il numero di contesto del Help assegnato dall'autore dell'Help stesso, all'argomento adeguato.

Esempi:
Dim m
m = MsgBox("Simple MsgBox")


Dim m
m = MsgBox("Simple MsgBox with a custom title", 0, "This is a test Title")



Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 1)



Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 2)



Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 3)



Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 4))



Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 5)



Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 16)



Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 32)



Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 48)



Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 64)


Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 256)


Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 512)


Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 768)


Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 4096)


Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 16384)


Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 65536)


Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 524288)


Dim m
m = MsgBox("Line-1" & Chr(13) & "Line-2", 1048576)

Valori di ritorno

ConstantValueDescription
vbOK1OK
vbCancel2Cancel
vbAbort3Abort
vbRetry4Retry
vbIgnore5Ignore
vbYes6Yes
vbNo7No


Esempi:

Sub test()
    Dim m
    m = MsgBox("Do you really want do delete current active cell's value?", 4, "Delete confirmation")
    If m = 6 Then
        ActiveCell.Value = ""
    End If 
End Sub


In questo esempio, se si sceglie "Yes" la cella attiva verrà eliminata:


Potrebbe anche interessarti :
Il documento intitolato «  Excel VBA MsgBox basics » da CCM (it.ccm.net) è reso disponibile sotto i termini della licenza Creative Commons. È possibile copiare, modificare delle copie di questa pagina, nelle condizioni previste dalla licenza, finché questa nota appaia chiaramente.