Msgbox SI/NO VBA | Msgbox VBA Excel SI o NO

MSGBOX VBA EXCEL SI O NO: Este código es para presentar al usuario un Sí / No con un cuadro de mensaje y tiene la capacidad de ejecutar código basado en la respuesta. Funciona mediante el establecimiento de una variable igual a la respuesta del cuadro de mensaje y la evaluación de la variable con una instrucción IF ... THEN. código está comentado en lugares para cambiar el texto del mensaje de la pantalla, dónde colocar el código de respuesta SI, y NO.

#ExcelVBA #MacrosExcel #MicrosoftExcelVBA

Parámetros

Prompt (Obligatorio). Expresión de tipo String que se muestra como mensaje en el cuadro de diálogo. La longitud máxima de Prompt es de aproximadamente 1024 caracteres, según el ancho de los caracteres utilizados. Si Prompt consta de más de una línea, puede separar las líneas mediante un carácter de retorno de carro (Chr(13)), un carácter de avance de línea (Chr(10)) o una combinación de caracteres de retorno de carro/avance de línea (Chr(13) y Chr(10)) entre cada línea.

Buttons (Opcional). Expresión numérica que corresponde a la suma de los valores que especifican el número y tipo de botones que se han de mostrar, el estilo de icono que se va a usar, la identificación del botón predeterminado y la modalidad del cuadro de mensaje. Si se omite Buttons, el valor predeterminado será cero.

Title (Opcional). Expresión de tipo String que se muestra en la barra de título del cuadro de diálogo. Si se omite Title, en la barra de título aparecerá el nombre de la aplicación.

Valor devuelto

En la siguiente tabla se incluyen los valores de enumeración de MsgBoxStyle:

Miembro	Valor	Descripción
OKOnly	0	Muestra sólo el botón Aceptar.
OKCancel	1	Muestra los botones Aceptar y Cancelar.
AbortRetryIgnore	2	Muestra los botones Anular, Reintentar y Omitir.
YesNoCancel	3	Muestra los botones Sí, No y Cancelar.
YesNo	4	Muestra los botones Sí y No.
RetryCancel	5	Muestra los botones Reintentar y Cancelar.
Critical	16	Muestra el icono Mensaje crítico.
Question	32	Muestra el icono Consulta de advertencia.
Exclamation	48	Muestra el icono Mensaje de advertencia.
Information	64	Muestra el icono Mensaje de información.
DefaultButton1	0	El primer botón es el predeterminado.
DefaultButton2	256	El segundo botón es el predeterminado.
DefaultButton3	512	El tercer botón es el predeterminado.
ApplicationModal	0	Aplicación modal: el usuario debe responder al cuadro de mensaje antes de continuar trabajando en la aplicación actual.
SystemModal	4096	Sistema modal: se suspenden todas las aplicaciones hasta que el usuario responda al cuadro de mensaje.
MsgBoxSetForeground	65536	Especifica la ventana del cuadro de mensaje como ventana de primer plano.
MsgBoxRight	524288	Texto alineado a la derecha.
MsgBoxRtlReading	1048576	Especifica que el texto debe aparecer para ser leído de derecha a izquierda en los sistemas árabe y hebreo.

Valor devuelto

Constante	Valor
OK	1
Cancel	2
Abort	3
Retry	4
Ignore	5
Yes	6
No	7

Código de ejemplo:

Sub SiNoMsgBox()

    'Interrogante

    Mensaje = "Esta seguro...?"

    'Mostrar mensaje

    Mensaje = MsgBox(Mensaje, vbQuestion + vbYesNo, "#FreelancerExcel")

    If Mensaje = vbNo Then

        'Codigo si la respuesta es NO

        MsgBox "Selecciono NO!", vbInformation, "#FreelancerExcel"

    Else

        'Codigo si la respuesta es SI

        MsgBox "Selecciono SI!", vbInformation, "#FreelancerExcel"

    End If

End Sub

El codigo msgbox vba es muy util cuando lo utilizamos en la opción salir del formulario, donde nos daría la opción si salimos del formulario (SI) o seguimos en la misma(NO)

Descargar Archivo: msgbox.xlsm 

Ver Automatización utilizando Excel VBA-Mysql