No tienes acceso a esta clase

隆Contin煤a aprendiendo! 脷nete y comienza a potenciar tu carrera

Input Box

11/17
Recursos

Aportes 161

Preguntas 13

Ordenar por:

驴Quieres ver m谩s aportes, preguntas y respuestas de la comunidad?

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

  • Teniendo presente que para HOY 29/11/2022 a las 13:41 el exchange es:
    1 USD = 4812.9428 COP
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!

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

InputBox

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.

Sintaxis

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.

Ejemplos

Preguntar nombre y saludar

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.

Verificar Numero Par

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

Escriban cualquier c贸digo, lo que sea, los ayudar谩 a recordar.

Hola comunidad,

Decidimos crear una subrutina privada para convertir el peso de una persona considerando la gravedad que existe en la luna.

Hola comunidad Platzi.
Realice una subrutina para saber cuantas debes ordenar en un restaurante.

Ac谩 dejo el resultado de mi ejercicio 馃憞

En mi caso lo que hice fue realizarle una pregunta al usuario para devolverle un mensaje confirmando o negando su respuesta.

Hola, env铆o mi reto ![](https://static.platzi.com/media/user_upload/image-2afe8640-7b9a-4ee1-acba-b5efe626a30e.jpg) Investigu茅 como se imprimen los datos en el MsgBox en l铆neas diferentes y se hace con vbCrLf que provoca un enter y se posiciona al inicio de la nueva linea. el resultado se ve as铆: ![](https://static.platzi.com/media/user_upload/image-2f278c61-31f5-48d8-9d2a-6cd8d4fdb74e.jpg)

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:

Hola a todos. Presento mi reto con el c谩lculo de una inversi贸n considerando monto a invertir, tasa anual, periodo de la inversi贸n en meses y moneda de la inversi贸n, dando como resultado los rendimientos que se pueden obtener ![](https://static.platzi.com/media/user_upload/image-f0288240-7655-42a0-9e01-2e1cf6dfa332.jpg) ![](https://static.platzi.com/media/user_upload/image-10551e56-8c3f-4fdf-bf80-888ac181dc65.jpg)
Adjunto mi reto ![](https://static.platzi.com/media/user_upload/image-2d7d6160-06ab-4296-9c4d-ff6c806453e9.jpg) ![](https://static.platzi.com/media/user_upload/image-25f7d660-cf10-416f-a7e9-21389f8db346.jpg)
![](https://static.platzi.com/media/user_upload/image-997df100-2dc7-4bf0-b607-94bbbf4b4040.jpg)
Me fui a lo sencillo Public Sub divs() Dim num As Integer Dim den As Integer Dim a num = InputBox("Escribe el numerador", "Divisi贸n") den = InputBox("Escribe el denominador", "Divisi贸n") a = MsgBox(num / den, , "Divisi贸n") End Sub

nunca me funcion贸 el ejercicio de la profesora. que estres.

Hola!! 驴alguien podr铆a ayudarme? Tengo un problema y es que al ejecutar la subrutina, la divisi贸n que se realiza al final para conseguir el % de beneficio es incorrecta, me arroja siempre 0.1 o 0.01. ![](https://static.platzi.com/media/user_upload/image-30ed39e3-f72b-4410-8b5d-f27e480be097.jpg) ![](https://static.platzi.com/media/user_upload/image-8ca85dbd-4178-4a06-bcaa-9944510f2f44.jpg) ![](https://static.platzi.com/media/user_upload/image-e09e3966-67c3-4661-b1c4-5f70805977d9.jpg) ![](https://static.platzi.com/media/user_upload/image-c55c78bc-1250-4473-8087-d266662340f4.jpg) ![](https://static.platzi.com/media/user_upload/image-f33941fb-b04d-4bf2-9681-def6b99a7aa3.jpg) Graciasss!
Public Function p4(den As Integer) As Double Dim x Dim num num = InputBox("escribe el numerador") p4 = den / num x = MsgBox("el resultado es" & p4) ?p4(6) 3

no se pueden numeros grandes

Concatenar string![](https://static.platzi.com/media/user_upload/image-1ad67cb6-ccbc-4c5b-85f3-ca5643a3aa64.jpg)![](file:///C:/Users/LENOVO/Downloads/Captura.JPG)
![](https://static.platzi.com/media/user_upload/image-e8e4d826-21ca-49d3-bb49-619ebe62c299.jpg)![](https://static.platzi.com/media/user_upload/image-b92a4fb6-8a1c-4639-accf-53f6e8ebb13f.jpg)
Espero esten muy bien! aqui les dejo la soluci贸n al reto se me ocurri贸 hacer que calculara cuanto porcentaje de un numero es otro numero. ![](https://static.platzi.com/media/user_upload/image-348de967-9b91-4b6a-b1bb-2f95609289dd.jpg) ![](https://static.platzi.com/media/user_upload/image-2f19da0b-f7e2-4bc8-ae12-c099bdb4a4d5.jpg)![](https://static.platzi.com/media/user_upload/image-18d570e4-cb87-48f8-804d-317270c93892.jpg) ![](https://static.platzi.com/media/user_upload/image-40d5df31-d133-4000-8ab3-1fc26938a032.jpg) ![](https://static.platzi.com/media/user_upload/image-5a7986c2-826c-4be4-8a86-78b51247ef03.jpg)![](https://static.platzi.com/media/user_upload/image-a32a37c3-fc95-47f6-9f69-10067161657d.jpg)
Vamoss!!![](https://static.platzi.com/media/user_upload/image-04c42efc-2983-4a4d-9bfb-ab27283aed10.jpg)![](https://static.platzi.com/media/user_upload/image-ba58b388-b2f6-4167-a819-a17042d54c02.jpg)![](https://static.platzi.com/media/user_upload/image-b050edb7-76e5-4070-a978-aca8dc1cbf12.jpg) ![](https://static.platzi.com/media/user_upload/image-13969b25-70f7-48ec-84b0-b30f5dc56c89.jpg)
Hola! Comparto mi aporte: ![](https://static.platzi.com/media/user_upload/image-21f9b14b-6c51-4208-a301-26095b7e84f7.jpg)
```txt les dejo mi ejercicio ``` ```js ``` ![](https://static.platzi.com/media/user_upload/Captura%20de%20pantalla%202024-02-11%20032551-7b51409b-5284-4118-812b-864b6c4f0664.jpg)
almacenandolo en una celda ![](https://static.platzi.com/media/user_upload/imagen-2af33d76-5fc9-481f-8ff8-c3e4daf0557e.jpg)
```txt 'Para saber el promedio de 5 notas para ver si te rajas o pasas' Public Sub prom5notas() Dim nota1 As Double Dim nota2 As Double Dim nota3 As Double Dim nota4 As Double Dim nota5 As Double Dim a nota1 = InputBox("Ingrese la primera nota", notas) nota2 = InputBox("Ingrese la segunda nota", notas) nota3 = InputBox("Ingrese la tercera nota", notas) nota4 = InputBox("Ingrese la cuarta nota", notas) nota5 = InputBox("Ingrese la quinta nota", notas) sumatoria = nota1 + nota2 + nota3 + nota4 + nota5 a = MsgBox("El promedio de tus notas es " & sumatoria / 5, vbMsgBoxRight) End Sub ```'Para saber el promedio de 5 notas para ver si te rajas o pasas' Public Sub prom5notas() Dim nota1 As Double Dim nota2 As Double Dim nota3 As Double Dim nota4 As Double Dim nota5 As Double Dim a nota1 = InputBox("Ingrese la primera nota", notas) nota2 = InputBox("Ingrese la segunda nota", notas) nota3 = InputBox("Ingrese la tercera nota", notas) nota4 = InputBox("Ingrese la cuarta nota", notas) nota5 = InputBox("Ingrese la quinta nota", notas) sumatoria = nota1 + nota2 + nota3 + nota4 + nota5 a = MsgBox("El promedio de tus notas es " & sumatoria / 5, vbMsgBoxRight) End Sub Es b谩sico pero son mis pinitos.
Hola! Les dejo mi calculadora del 脥ndice de Masa Corporal ![]()![](https://static.platzi.com/media/user_upload/image-0e835c13-d49f-4690-a3e4-5d6cc85f964a.jpg)
![](https://static.platzi.com/media/user_upload/image-c81609e5-e6c9-4287-bcce-69e687fbc3b7.jpg)
No es necesario definir con Dim las variables a utilizar, pero, 驴Es una buena practica? 驴Hay razones para usarlo? Si alguien sabe por favor responda, gracias. ```js Public Sub divs() num = InputBox("Insert a numerator", "Numerator") denom = InputBox("Insert a denominator", "Denominator") a = MsgBox("The result of your division is " & num / denom, , "Division") End Sub ``` ![](https://static.platzi.com/media/user_upload/image-b75be22f-8a12-40da-91c8-9d0e32165970.jpg)![](https://static.platzi.com/media/user_upload/image-31a5e4ff-0926-40b0-a2c2-a39a4377f207.jpg)![](https://static.platzi.com/media/user_upload/image-45aed070-1563-4a72-8c66-b8502eea8573.jpg)
No es necesario definir con Dim las variables a utilizar, pero, 驴Es una buena practica? 驴hay razones para usarlo? Si alguien sabe por favor responda, gracias. ```css Public Sub divs() num = InputBox("Insert a numerator", "Numerator") denom = InputBox("Insert a denominator", "Denominator") a = MsgBox("The result of your division is " & num / denom, , "Division") End Sub ```Public Sub divs() num = InputBox("Insert a numerator", "Numerator") denom = InputBox("Insert a denominator", "Denominator") a = MsgBox("The result of your division is " & num / denom, , "Division") End Sub ![](https://static.platzi.com/media/user_upload/image-9d9dbe3c-1ff4-4995-b05a-3e99033d9c72.jpg)![](https://static.platzi.com/media/user_upload/image-82ee7899-fe73-4c28-aa70-517090778c5f.jpg)![](https://static.platzi.com/media/user_upload/image-874bd325-f2a5-428a-9865-db59683ba04d.jpg)
Hola, env铆o mi reto para el c谩lculo del Punto de equilibrio de una empresa ![](https://static.platzi.com/media/user_upload/image-373186fb-eea3-400f-b7d4-0530681eca15.jpg)
Dejo aqu铆 mi peque帽o aporte. Cree un formulario con datos personales ![](https://static.platzi.com/media/user_upload/image-25c4e0f7-a26b-4e6a-9680-acde0de9c79e.jpg) Cambie el nombre de las variables de "num" a "name" y de "den" a "last". Tambien cambie el tipo de dato de "Integer" a "String", para que el resultado salga en formato de texto. Resultado: ![](https://static.platzi.com/media/user_upload/image-4c92af20-a1da-4440-8bc1-1bba6bb735fa.jpg) ![](https://static.platzi.com/media/user_upload/image-2c434e48-f926-469f-9b68-71e0233b3f3f.jpg) ![](https://static.platzi.com/media/user_upload/image-9054e57e-3920-4b54-a292-b57f02a8de99.jpg)
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
envio mi ejemplo creado por mi![](https://static.platzi.com/media/user_upload/image-34f0947e-89e4-45d1-b6a8-50781178b138.jpg)![](https://static.platzi.com/media/user_upload/image-9787d77e-7f0d-4111-b0a2-c6ce839e7841.jpg)
Alguien me puede ayudar explic谩ndome por qu茅 me sale este recuadro y como lo puedo corregir? ![]()![]()

Ejemplo con promedio de 3 notas :

ejercicio: aportes del empleado en Bolivia ![](https://static.platzi.com/media/user_upload/image-380c9dd8-a8c1-408c-8534-ccf6e432a21e.jpg)
Promedio de notas![](https://static.platzi.com/media/user_upload/image-a04840a2-1fed-43e2-9a6f-cd8a60b21bb0.jpg)
![](https://static.platzi.com/media/user_upload/image-b96eee24-d687-4c3b-8d58-e56c70edbf2d.jpg)
Hola , me pueden decir cuando es preferible utilizar una funci贸n o una sub rutina? Gracias
Una predicci贸n muy exacta... ![](https://static.platzi.com/media/user_upload/image-0a7f4797-6a32-4926-9526-8a8d5a9125ac.jpg)

Les comparto el grafico de lo realizado

Hola! dejo un ejemplo sencillo para validar la ejecuci贸n presupuestal. 'Ejemplo InputBox y MsgBox Public Sub CalcularPorcentajeEjecucionPresupuestal() ' Declarar las variables Dim presupuesto As Double Dim gastoReal As Double ' Obtener el presupuesto y el gasto real presupuesto = InputBox("Ingrese el presupuesto:") gastoReal = InputBox("Ingrese el gasto real:") ' Calcular el porcentaje de ejecuci贸n presupuestal porcentajeEjecucionPresupuestal = (gastoReal / presupuesto) \* 100 ' Imprimir el porcentaje de ejecuci贸n presupuestal MsgBox ("El porcentaje de ejecuci贸n presupuestal es " & porcentajeEjecucionPresupuestal & "%.") End Sub ![](https://static.platzi.com/media/user_upload/Captura%20de%20pantalla%202023-10-22%20210856-63090e1b-2a2f-4bdd-8597-c672a4b7fcde.jpg)
El ejercicio es una peque帽a factura, se capturan diferentes datos y se colocan los resultados en una sola ventana con saltos de l铆nea ![](https://static.platzi.com/media/user_upload/image-c2a587c0-8f19-4696-9159-ba8584e04e2a.jpg)
Una subrutina para que diga la cuota mensual de un prestamo ![](https://static.platzi.com/media/user_upload/image-bb789650-051a-4d6a-afb2-dc3eca536068.jpg) ![](https://static.platzi.com/media/user_upload/image-d69a0147-2691-4fe2-bfc8-709f054705a8.jpg)
![]()`Public Sub edadfutura()` ` Dim edad As Integer` ` Dim nombre As String` ` Dim a` ` ` ` edad = InputBox("Escribe tu edad", "Edad")` ` nombre = InputBox("Escribe tu nombre", "Nombre")` ` ` ` a = MsgBox(nombre & ", tu edad en 10 a帽os ser谩 " & edad + 10, , "Tu edad en 10 a帽os")` ` ` ` ` `End Sub` ![](https://static.platzi.com/media/user_upload/image-5efe0329-8eec-4914-898a-e88240d42d87.jpg)

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鈥!!!

Mientras tanto en ARGETINA鈥


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 鈥淚nput 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(鈥渓argo del tanque en pulgadas鈥)
ancho = InputBox(鈥渁ncho del tanque en pulgadas鈥)
alto = InputBox(鈥渁ltura 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 馃槃

Hola comparto un ej sencillo.

Public Sub renta()

Dim ingreso As Long
Dim a

ingreso = InputBox("cual fue tu ingreso neto en el a帽o anterior?", "tax SAS")

a = MsgBox("debes de pagar: " & ingreso * 0.33 & " pesos", , "tax SAS")

End Sub

Este es el resultado de el ejecicio

Mi ejemplo de inputbox:

Buen d铆a,
Relaciono las im谩genes de un sencillo ejemplo.

Para calcular el anio de nacimiento segun la edad y a帽o actual jaja, por si son desmemoriados como yo:

Hola a todos, escrib铆 una instrucci贸n que te pregunta cuantos a帽os tienes y te dice en que a帽o naciste.

Ejercicio:

Resultado de la divisi贸n:

Una subrutina sencilla que funciona como conversor de moneda

Public Sub conversor()

    Dim dolar As Single
    Dim TRM As Single
    Dim m
    
    dolar = InputBox("Cu谩ntos Dolares tienes? ", "Conversor Moneda - Cantidad de Dolares")
    TRM = InputBox("Dime cu谩l es la tasa de cambio en tu pa铆s ", "Conversor Moneda - TRM")

    m = MsgBox("La cantidad de pesos que tienes es: " & dolar * TRM, vbApplicationModal, "Cantidad de D贸lares")

End Sub

Pide la cantidad de dolares y la Tasa de cambio del pais, con estos datos calcula la cantidad en la moneda que el usuario haya escogido con relacion a la TRM (Tasa de cambio)

隆Saludos!
Mi aporte de calculadora de 脥ndice de Masa Corporal.

Hola que tal.

Les paso mi aporte.
Sali贸 perfecto.

Buena clase.

Buen d铆a dejo capturas de mi reto, para este caso es un simulador de credito.

Us茅 la formula de PAGO que aprendimos en clases pasadas, sin embargo, no pude resolver el error al poner la tasa con % , por lo que es necesario usar decimales.

Si alguno me podria ayudar resolviendo el error se los agradecieria 馃槃

Hola, comparto subrutina para 铆ndice de masa corporal:莽

Buen d铆a para todos

Hice un mensaje de ganancia de inversi贸n

Public Sub gananciainv()

    Dim capital As Double
    Dim porcentaje As Double
    Dim plazo As Integer
    Dim a
    
    capital = InputBox("Capital que deseas invertir", "Capital")
    porcentaje = InputBox("Tasa de inversi贸n anual", "Tasa")
    plazo = InputBox("Plazo en meses al que deseas invertir", "Plazo")
    
    tasadecimal = porcentaje / 100
    tasamensual = tasadecimal / 12
    tasacliente = tasamensual * plazo
    
    ganancia = capital * tasacliente
    gananciatotal = ganancia + capital
    
    a = MsgBox("Tu ganancia ser谩 de $" & ganancia & " y al final del plazo recibir谩s $" & gananciatotal, , "Ganancia total")
    
    
End Sub