Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Ejemplo de SelectCase Aplicado a Menú de Restaurante

| 3 comentarios

Ingresamos la siguiente tabla, que viene a ser las opciones del menú del restaurante:

Tabla

Luego crearemos un formulario con el siguiente detalle:

Formulario

El código del botón calcular, calculará cual es el precio de la orden que ingrese, este botón tiene el siguiente código:

Private Sub Precio_Click()

Dim E As Integer Dim S As Integer Dim P As Integer

E = TextBox1.Text S = TextBox2.Text P = TextBox3.Text

Select Case E Case 0 To 2 P1 = 2 Case 3 To 4 P1 = 3 Case 5 To other MsgBox "El número ingresado como Entrada, pertenece a un segundo o postre" End Select

Select Case S Case 0 To 4 MsgBox "El número ingresado como segundo, pertenece a una entrada" Case 5 To 9 P2 = 5 Case 10 To 14 MsgBox "El número ingresado como segundo, pertenece a un postre" (MENSAJE DE ERROR PARA NÚMEROS QUE NO SE ENCUENTREN EN EL MENÚ)

End Select

Select Case P Case 0 To 9 MsgBox "El numero ingresado como postre, pertenece a una entrada o segundo" Case 10 To 13 P3 = 1 Case 14 P3 = 2

TextBox4.Text = P1 + P2 + P3 End Select

End Sub

A continuación un ejemplo:

ejemplo

A continuación el archivo:

Menu

 

Elaborado por: RICHARD SANTILLÁN TAFUR

3 comentarios

  1. Hola. mi consulta es si en excel puedo.
    ingresar datos de un puerto serial del a1 a a20
    y si puedo enviar datos desde b1 a b20.
    por puerto serial. todo esto en linea para comunicarme con cualquier placa sea arduino o micro controlador.
    Saludos cordiales.
    Y un excel lente año

  2. En el ejemplo no se muestra el precio. Se corrige poniendo el TextoBox4.Text después del End Select.

    End Select
    TextBox4.Text = P1 + P2 + P3
    De esta manera se muestra el precio total del Menú.

  3. muchas gracias maestro

Deja una respuesta

Los campos requeridos estan marcados con *.