Select Case - Calcular costo de entrada Concierto

Descripción:

Con este programa se podrá calcular el costo de entrada a un concierto dependiendo de la zona que se elija. El cual recibirá como parámetros el código de la zona del concierto y si pagara con tarjeta de crédito; el macro utilizara dos sentencias Case que nos arrojara el valor de la entrada a comprar.

(Para mayor visualización de la imagen, hacer click en la misma)

Codigo vba:

Sub conocer_costo()

Dim codigo As Byte
Dim costo As Integer
Dim dsct As String

codigo = InputBox("Ingrese codigo (1, 2, 3, 4, 5, 6, 7)")
dsct = InputBox("Pago con tarjeta Interbank (si/no)")

Select Case dsct
Case "si":  descuento = 0.75
Case "no": descuento = 1
End Select

Select Case codigo
Case 1: costo = 540 * descuento
Case 2: costo = 216 * descuento
Case 3: costo = 270 * descuento
Case 4: costo = 162 * descuento
Case 5: costo = 324 * descuento
Case 6: costo = 216 * descuento
Case 7: costo = 81 * descuento
End Select

Cells(4, 7) = codigo
Cells(5, 7) = costo
Cells(6, 7) = dsct

MsgBox "El valor de la entrada es: " & costo & " soles"
End Sub

Ejemplo:

Calcular costo de entrada Concierto