Unidad 3. Lenguaje Visual Basic de Aplicaciones (VBA) (X)

Sub Ventas01

'

Dim PrUnit, Neto As Double

Dim Cantidad As Integer

Cantidad = InputBox ("Ingrese la cantidad")

PrUnit = InputBox("Ingrese el precio unitario")

IGV  = InputBox("Valor del IGV", ,0.18)

Neto = Cantidad*PrUnit-Cantidad*PrUnit*IGV

MsgBox("El monto neto es: "+Chr(13)+Chr(10)+Chr(13)+Chr(10)&Neto)

End Sub

Sub Botones

Dim Msg, ComboBotones, Título, Ayuda, Ctxt, Respuesta, MiCadena

Msg = "¿Desea continuar?"

ComboBotones = vbYesNo + vbCritical + vbDefaultButton2    ' Define los botones.

Título = "Prueba de la función MsgBox con botones"       ' Define el título.

Ayuda = "DEMO.HLP"                                                       ' Define el archivo de ayuda.

Ctxt = 1000                                                                          ' Define el tema

                                                                                            ' el contexto

Res = MsgBox(Msg, ComboBotones, Título, Ayuda, Ctxt)       ' Muestra el mensaje.

End Sub