Deztaca - Academia online para destacar en tu trabajo

Temario del curso

Anterior Siguiente

Lección 87 de 99 · Módulo 13

Ejemplo 2: If...Then...ElseIf...Else

▶️ Video · 6 min 📊 Módulo 13

Tus notas de esta clase

Inicia sesión y accede al contenido para usar marcadores en este curso.

Inicia sesión y accede al contenido para ver los anuncios de esta lección.

Participaciones 2 comentarios

Inicia sesión para dejar tu duda, comentario y/o respuesta

Iniciar sesión Inscribirme

Raimundo_Graciano hace 5 meses

Para agregarle el formato de procentaje en codigo.

Seria:

Range("C12").Value = Format(DESCUENTO, "0%").

Una pregunta....

¿Afecta el codigo, si se escribe en MAYUSCULA?, automaticamente el editor camba a minuscula algunas partes del codigo.

Sub If_VARIACIONES()

Dim CANTIDAD As Integer
Dim DESCUENTO As Double

CANTIDAD = Range("A11").Value

If CANTIDAD < 10 Then
DESCUENTO = 0
ElseIf CANTIDAD < 20 Then
DESCUENTO = 0.1
Else
DESCUENTO = 0.2

Range("C12").Value = Format(DESCUENTO, "0%")

End If
End Sub

JuliaBravo490 Equipo Deztaca hace 5 meses

Hola, Raimundo.

Sí, tu idea va bien encaminada: Format(DESCUENTO,"0%") te mostrará 0%, 10%, 20%, etc.

Solo un detalle: esa línea debe ir después de cerrar el If.
En tu código la dejaste dentro del Else (porque faltó el End If antes), y así solo se ejecutaría cuando cae en el Else.

Te quedaría así:
Sub If_VARIACIONES()

Dim CANTIDAD As Integer
Dim DESCUENTO As Double

CANTIDAD = Range("A11").Value

If CANTIDAD < 10 Then
DESCUENTO = 0
ElseIf CANTIDAD < 20 Then
DESCUENTO = 0.1
Else
DESCUENTO = 0.2
End If

Range("C12").Value = Format(DESCUENTO, "0%")

End Sub

Sobre tu pregunta: no afecta que escribas en MAYÚSCULAS o minúsculas. VBA no distingue entre mayúsculas/minúsculas (no es case-sensitive).
Y lo que ves de que el editor “corrige” algunas palabras es normal: es el autoformato de VBA (por ejemplo, Range, End Sub, etc.).

Cualquier inquietud no dudes consultarnos

Saludos,
Julia - Equipo Deztaca