Raimundo_Graciano publicó en la clase Ejemplo 2: If...Then...ElseIf...Else hace 5 días
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
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
Respuestas
JuliaBravo490 respondió hace hace 4 días:
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.
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