Hola! Envío mi reto de simulación de préstamo, para conocer el valor a pagar mensualmente con el valor del préstamo y el número de cuotas.
Introducción a Macros y VBA
¿Qué es VBA y qué son las macros?
Espacio de VBA
Diagrama de flujo
Variables y tipos de datos
Funciones y subrutinas
Grabar y correr macros
Quiz: Introducción a Macros y VBA
Funciones y subrutinas
Sintaxis de funciones y subrutinas
Crear una función
Crear una subrutina
Message Box
Input Box
Select Case
If - Then
Ciclos For - Next
Ciclos Do While - Loop
Quiz: Funciones y subrutinas
Resumen y conclusión
Resumen y conclusión
No tienes acceso a esta clase
¡Continúa aprendiendo! Únete y comienza a potenciar tu carrera
Aportes 183
Preguntas 15
Hola! Envío mi reto de simulación de préstamo, para conocer el valor a pagar mensualmente con el valor del préstamo y el número de cuotas.
Buenas tardes profe, dejo captura del código de una calculadora de ganancias para realizar ventas. Al final se puede ver los diferentes datos que se le pide al usuario, hasta llegar al msj final.
Mi funcion convierte COP a USD
Public Function exchange()
Dim num As Double
Dim a
num = InputBox("Input amount for COP to USD", "Exchange")
a = MsgBox(num & " Colombian Pesos = " & Round(num / 4812.9428, 4) & " US Dollars", , "Exchange")
End Function
Prueba Un salario minimo 2022 en dolares equivale a :
Input:
Output:
Cálculo del IMC:
Hola! les dejo el resultado que obtuve, mi sub rutina busca elevar el número deseado a la potencia indicada por el usuario.
Public Sub potencia()
Dim numero As Integer
Dim exponente As Integer
Dim b
numero = InputBox("Ingrese número", "Potencia")
exponente = InputBox("Ingrese exponente", "Potencia")
a = MsgBox(numero ^ (exponente), , "Resultado de la potencia")
End Sub
Hice un intento sencillo con texto para juntar nombre, me pareció algo genial sacarlo del contexto de la clase y probar con las demás herramientas que hemos visto. Gracias!
En VBA,
InputBox
es una función que muestra un cuadro de diálogo donde el usuario puede ingresar un valor. Este cuadro de diálogo permite obtener información directamente del usuario, como un número, texto u otra información relevante para tu aplicación.
La sintaxis básica de InputBox
es la siguiente:
InputBox(prompt, [title], [default], [xpos], [ypos])
Donde:
prompt
es una cadena de texto que se muestra como mensaje o instrucción para el usuario.[title]
(opcional) es una cadena de texto que especifica el título del cuadro de diálogo.[default]
(opcional) es un valor predeterminado que se muestra en el cuadro de texto de entrada.[xpos]
y [ypos]
(opcional) son las coordenadas x e y que definen la posición inicial del cuadro de diálogo.Sub ObtenerNombre()
Dim nombre As String
nombre = InputBox("Por favor, ingrese su nombre:", "Nombre")
MsgBox "Hola, " & nombre & "!" End Sub
Este código muestra un cuadro de diálogo donde se le solicita al usuario que ingrese su nombre. El valor ingresado se guarda en la variable nombre
. Luego, se muestra un MessageBox
que muestra un saludo utilizando el nombre ingresado.
Sub VerificarNumeroPar()
Dim numero As Variant
numero = InputBox("Ingrese un número:")
If IsNumeric(numero) Then
If numero Mod 2 = 0 Then
MsgBox numero & " es un número par.", vbInformation, "Número par"
Else
MsgBox numero & " no es un número par.", vbInformation, "Número impar"
End If
Else
MsgBox "Debe ingresar un número válido.", vbExclamation, "Error de entrada"
End If
End Sub
Eh realizado una subrutina para sacar la raíz cuadrada, cubica, a la cuarta, a la quinta,…
Sub rutina en la que se simula el ingreso de un usuario y contraseña 😃
Public Sub user()
Dim usuario As String
Dim contrasenia As String
usuario = InputBox("Ingrese su usuario", "Platzi Team")
contrasenia = InputBox("Ingrese su contraseña", "Platzi Team")
a = MsgBox("Bienvenido " & usuario, , "Platzi Team")
End Sub
Hola comunidad,
Decidimos crear una subrutina privada para convertir el peso de una persona considerando la gravedad que existe en la luna.
Escriban cualquier código, lo que sea, los ayudará a recordar.
Hola comunidad Platzi.
Realice una subrutina para saber cuantas debes ordenar en un restaurante.
En mi caso lo que hice fue realizarle una pregunta al usuario para devolverle un mensaje confirmando o negando su respuesta.
Hola, cree una subrutina con ayuda de chatgpt en donde usando el inputbox damos un correo y mandamos un PDF al correo escrito con las filas seleccionadas en el Range 😃
Public Sub ConvertirPDFyEnviarCorreo()
' Seleccionar el rango de celdas que se desea convertir a PDF
Range("A1:F20").Select
' Especificar la ruta de salida del archivo PDF
Dim RutaPDF As String
RutaPDF = "C:\Escritorio\archivo.pdf"
' Exportar el rango de celdas seleccionado a un archivo PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaPDF, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
' Crear un nuevo mensaje de correo electrónico
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim correo_destinatario As String
'box correo destinatario
correo_destinatario = InputBox("escribe el correo del destinatario", "correo")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
' Adjuntar el archivo PDF al correo electrónico
OutlookMail.Attachments.Add RutaPDF
' Configurar las propiedades del mensaje
With OutlookMail
.To = correo_destinatario
.BCC = ""
.Subject = "Prueba Excel"
.Body = "Sebas confirma la prueba"
.Send
End With
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
Ejercicio de Clase: Convertidor de Monedas
Convertir pesos mexicanos a otras monedas
Realmente muy interesante este curso.
Mi aporte, una calculadora de inversión a tiempo y rendimiento definido que arroja al final la cantidad que se obtendría al termino.
Wow es la primera vez que hago este tipo de operaciones y me esta gustando bastante que más podré hacer ??
La Teacher es excelente
Calcular MCD de dos números solicitados, solo calcular dicho MCD(a,b) si ambos numeros son mayores a cero.
Utiliza Input msgbox,y funcion.
Método Divisiones sucesivas.
Sintaxis:
Ejecución:
nunca me funcionó el ejercicio de la profesora. que estres.
no se pueden numeros grandes
Public Sub totalCompra()
Dim precio As Integer
Dim cantidad As Integer
Dim a
precio = InputBox("Precio", "Compra")
cantidad = InputBox("Cantidad", "Compra")
a = MsgBox(precio * cantidad, , "Total compra")
End Sub
Ejemplo con promedio de 3 notas :
Les comparto el grafico de lo realizado
Aqui dejo mi Ejercicio para calcular la utilidad bruta
Public Sub Util()
Dim Cant As Integer
Dim Pr As Double
Dim Gas As Double
Dim d
Cant = InputBox("Ingresa la cantidad de Producto Vendido", "Utilidad bruta")
Pr = InputBox("Ingresa el Precio de Venta Unitario del Producto", "Utilidad bruta")
Gas = InputBox("Ingresa el Costo Unitario del Producto", "Utilidad bruta")
d = MsgBox(Cant * (Pr - Gas), , "Utilidad Bruta")
End Sub
Genial…!!!
Calculo de cuota mensual para un préstamo s/ Sistema Francés con una tasa del 377,5% anual…!!!
Buenas remito el ejercicio hecho para esta clase:
Buen día,
Adjunto mi aporte.
Mi aporte, quise hacerlo parecido a otro estudiante
El uso del “Input Box” en Visual Basic se destaca como una herramienta vital para la entrada de datos por parte de los usuarios, haciendo hincapié en el almacenamiento preciso mediante variables y la creación de versiones personalizadas con mensajes y títulos explicativos. La habilidad de emplear estos datos para ejecutar operaciones, incluso en subrutinas, agrega eficiencia al proceso
Hola! Envío mi reto de IVA, ingresando un precio del producto, el cual le incluirá el 21% de impuesto.
Saludos!
Public Sub divs()
Dim Peso_col_cop As Double
Dim Dolar_usd As Double
Dim a
Dolar_usd = 4020.36
Peso_col_cop = InputBox("Ingrese cuantos pesos quiere convertir en dolares", "Tasa de Cambio")
a = MsgBox(Round(Peso_col_cop / Dolar_usd, 2), , "Cambio Peso COP a dolar USD")
End Sub
Reto cumplido: Calculo de intereses ganados de una inversion de 1000 en 5 años con un interes simple del 12%
Hola! Envío el reto, para esta ocasión hice una función lineal
Muy buena clase! La combinacion de MessageBox e InputBox permite hacer opraciones interesantes!
UNO RAPIDO PARA REFORZAR CONOCIMIENTOS Y NO OLVIDAR
()
'esta sub pide las medidas de un tanque cuadrado y calcula el volumen de un tanque
Public Function calculo()
Dim largo
Dim ancho
Dim alto
Dim altura
Dim v
largo = InputBox(“largo del tanque en pulgadas”)
ancho = InputBox(“ancho del tanque en pulgadas”)
alto = InputBox(“altura del tanque en pulgadas”)
calculo = ((largo * ancho * alto) * 0.004329)
v = MsgBox(calculo, vbDefaultButton1, "El volumen del
tanque en galones ")
End Function
(
Me puse a jugar un rato, un familiar tiene un local de viveres y me pregunte cuanto debe vender tal cosa 😄
¿Quieres ver más aportes, preguntas y respuestas de la comunidad?