Cómo usar el código Excel VBA para escribir una función if para calcular el tamaño de diferentes paquetes, mostrar los precios correspondientes y personalizar funciones

Como se muestra en la figura: En el proyecto de Excel, agregue un módulo y agregue el código de función GetPrice:

El código es el siguiente:

Función GetPrice (r1 como rango, r2 como rango)

aSize = LCase(Trim(r1.

aWeight = r2.Value

Seleccione Case aSize

Caso "estándar grande"

Si unPeso <= 2 Entonces

Resultado = 4,76

De lo contrario, Si unPeso <= 3 Entonces

Resultado = 5,26

ElseIf aWeight > 3 Then

Resultado = 5,26 + (aWeight - 3) * 0,38

Fin si

Caso "pequeño sobredimensionado"

Si unPeso <= 2 Entonces

Resultado = 8,26

De lo contrario

Resultado = 8,26 + (unPeso - 2) * 0,38

Fin si

Caso "grande sobredimensionado"

Si unPeso <= 90 Entonces

Resultado = 75,78

De lo contrario

Resultado = 75,78 + (aPeso - 90) * 0,79

Finalizar si

Caso de lo contrario

Si aPeso <= 90 Entonces

Resultado = 137,32

De lo contrario

Resultado = 137,32 + (aPeso - 90) * 0,91

Fin

Finalizar selección

GetPrice = Resultado

Finalizar función

El efecto es el siguiente: