Clases
1: Introducción a las Macros en Excel
2: Editor de Visual Basic
3: Fundamentos de VBA y el Modelo de Objetos en Excel
4: Herramientas de VBA para agilizar tu aprendizaje
5: Manipulación de celdas, rangos, filas y columnas
6: Propiedades más usadas para trabajar con rangos de celdas
7: Métodos más usados en rangos de celdas
8: Trabajo con Hojas y métodos más usados
9: Trabajo con Archivos y métodos más usados
10: Variables, constantes y tipos de datos
11: Variables de objeto y la instrucción Set
12: Ámbito de las variable, tiempo de vida y variables estáticas
13: Instrucción If...Then...Else para la toma de decisiones
14: Instrucción With...End With para facilitar nuestro código
15: Función MsgBox para mostrar mensajes
16: Función y método InputBox para ingresar valores
Ejemplo 2: If...Then...ElseIf...Else
Participaciones
Raimundo_Graciano hace 1 mes
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
↳ Responder
JuliaBravo490 hace 1 mes
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
0
Estás agregando un comentario en esta clase
Inicia sesión para dejar tu duda, comentario y/o respuesta