No tienes acceso a esta clase

¡Continúa aprendiendo! Únete y comienza a potenciar tu carrera

Input Box

11/17
Recursos

Aportes 183

Preguntas 15

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!

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

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.

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:

![](https://static.platzi.com/media/user_upload/image-5c7da847-ad3d-46b2-ae6f-59047d885009.jpg)
Ejercicio ![](https://static.platzi.com/media/user_upload/image-5e56ba03-6075-4adc-ba30-db769277a3b6.jpg)![](https://static.platzi.com/media/user_upload/image-2ca945d1-02db-414d-967e-9cb7103074d9.jpg)
![](https://static.platzi.com/media/user_upload/image-2073167b-efbc-46fb-916c-664133a1fda2.jpg) ![](https://static.platzi.com/media/user_upload/image-5d23eaac-7eae-4242-924f-9f6cdf6aaaf1.jpg) ![](https://static.platzi.com/media/user_upload/image-e42da3fb-3a20-4b6d-97a9-d793749339ab.jpg) ![](https://static.platzi.com/media/user_upload/image-5d17264d-2ae0-4938-9bee-31f6973420fb.jpg) ![](https://static.platzi.com/media/user_upload/image-ff6b36c6-c2ce-44ed-ba0f-6afb8e6d31e8.jpg)
Bueno Volvi a probar e hice esto `Sub CalcularSolanas()` ` Dim USDTDisponible As Double` ` Dim ValorSolana As Double` ` Dim SolanasPosibles As Double` ` ' Establecer el valor de Solana` ` ValorSolana = 250` ` ' Pedir al usuario la cantidad de USDT disponible` ` USDTDisponible = InputBox("¿Cuántos USDT tienes disponibles?", "Cantidad de USDT")` ` ' Calcular la cantidad de Solanas posibles` ` SolanasPosibles = USDTDisponible / ValorSolana` ` ' Mostrar el resultado en un MsgBox` ` MsgBox "Puedes comprar " & Format(SolanasPosibles, "0.00") & " SOL", vbInformation, "Resultado"` `End Sub` ![](https://static.platzi.com/media/user_upload/image-0106abb0-01c1-43db-ad4e-8190900917cd.jpg) ![](https://static.platzi.com/media/user_upload/image-cbfd3ca3-6565-4bfe-a633-d26946b8b597.jpg)
Esto fue lo que hice! Intentaré mejorarlo. ![](https://static.platzi.com/media/user_upload/image-4d659651-f11a-4d0a-8e49-17644bf036f5.jpg) El unico problema es que el precio varía mucho pero es un ejemplo
![](https://static.platzi.com/media/user_upload/image-1190dd75-678b-4c48-aa30-ac697b99fa7e.jpg) ![](https://static.platzi.com/media/user_upload/image-bd08809e-a464-4388-900b-f7f577147efd.jpg)
MSGBOX ![](https://static.platzi.com/media/user_upload/image-1fda8fe0-c12d-43f3-9943-74b4c0602c2b.jpg)INPUT BOX ![](https://static.platzi.com/media/user_upload/image-31359679-1c8b-4364-94fb-b1e6aef96250.jpg) DIVISIÓN CON SUBRUTINA ![](https://static.platzi.com/media/user_upload/image-30c11b24-760a-495e-bc57-00da06d4f0e6.jpg)
Hola, mi código me marca un error pero no entiendo porqué ![](https://static.platzi.com/media/user_upload/image-7f0f0eeb-f1e3-45c4-8b14-81fed2fd1d92.jpg)
La función que presentas tiene un error de sintaxis en la declaración de variables y la forma en que se gestiona el InputBox. Aquí tienes una versión corregida: ```vba Public Function Div(Denominador As Double) As Double Dim Numerador As Double Numerador = InputBox("Escriba el numerador") If Denominador <> 0 Then Div = Numerador / Denominador Else MsgBox "El denominador no puede ser cero." End If End Function ``` Este código asegura que no dividas por cero y mejora la claridad de tu función.
Reto: ![](https://static.platzi.com/media/user_upload/image-f7a48fd6-c4b0-4d49-9c4d-c123e1fa2ef1.jpg)
Mejore el código echo clases antes sobre el IMC.![](https://static.platzi.com/media/user_upload/image-cd86c788-ac29-4de2-8a15-b19dbcd76fc1.jpg) ![](https://static.platzi.com/media/user_upload/image-41920666-af57-43c9-aae2-144d6e4a3309.jpg)
Sí, en VBA puedes declarar variables que contengan caracteres especiales. Sin embargo, es importante tener en cuenta que los nombres de las variables no pueden comenzar con caracteres especiales y deben seguir las reglas de nomenclatura de VBA. Los caracteres especiales pueden ser utilizados como parte de una cadena, pero no como parte del nombre de la variable. Por ejemplo: ```vba Dim texto As String texto = "¡Hola, mundo!" ``` En este caso, "texto" es una variable que contiene caracteres especiales dentro de la cadena.
Para ejecutar un MsgBox en una hoja de Excel utilizando VBA, debes seguir estos pasos: 1. Abre el Editor de Visual Basic (VBA) en Excel presionando `ALT + F11`. 2. Inserta un nuevo módulo (clic derecho en "VBAProject" > Insertar > Módulo). 3. Escribe el siguiente código: ```vba Sub MostrarMensaje() MsgBox "Este es un mensaje de ejemplo." End Sub ``` 4. Para ejecutar la subrutina, regresa a Excel y usa `ALT + F8`, selecciona `MostrarMensaje` y haz clic en "Ejecutar". Esto mostrará una ventana emergente con el mensaje definido.
Hola, comparto mi reto, es como vendedor de una tienda, deseo obtener mi meta diaria del mes, segun el presupuesto total. 😊![](https://static.platzi.com/media/user_upload/image-473401d0-0069-443a-80d5-0f1abf81ef24.jpg)
Trate de hacerlo de forma sencilla y entender las bases, mi ejercicio buscar conocer el retorno de la inversión en un año con tasas ya pactadas. Tengo una pregunta si para el tipo de datos quiero que sea en términos de porcentaje que otro tipo de datos puedo usar que no sea as single codigo: ![](https://static.platzi.com/media/user_upload/image-bfdf3288-ad61-4306-854d-04f9d5cfc0b2.jpg) Excel: ![](https://static.platzi.com/media/user_upload/image-a270c1de-280e-45e7-801c-6e652c0c782d.jpg) ![](https://static.platzi.com/media/user_upload/image-7cb016a8-f283-49b7-a283-b252ae379460.jpg) ![](https://static.platzi.com/media/user_upload/image-62973cc4-35b5-42aa-b43c-ca0e6a9626b8.jpg)
Comparto mi ejercicio con la formula de Harris-Benedict para calcular la tasa metabolica basal de una persona con base a su edad, peso y altura. ![](https://static.platzi.com/media/user_upload/Captura%20de%20pantalla%202024-09-03%20164239-e04783e3-83c5-46c8-9ef3-9aca72e8fdca.jpg) ![](https://static.platzi.com/media/user_upload/Captura%20de%20pantalla%202024-09-03%20164254-e70a3c66-7808-4a95-9677-eb8a53e62e01.jpg) ![](https://static.platzi.com/media/user_upload/Captura%20de%20pantalla%202024-09-03%20164305-b014c8a5-9bac-4edd-a952-43c38c0270bf.jpg)![](https://static.platzi.com/media/user_upload/Captura%20de%20pantalla%202024-09-03%20164318-9020957f-69c3-422b-86f7-b38a534a5643.jpg) ![](https://static.platzi.com/media/user_upload/Captura%20de%20pantalla%202024-09-03%20164328-314b35a5-9d56-4f9a-9e66-39726bc4eac9.jpg)
Este es el código de mi ejercicio, donde pido el nombre, apellidos e ingreso mensual. ![](https://static.platzi.com/media/user_upload/imagen-0407113d-ed42-404c-bb40-8509556b1f2b.jpg) Al final concateno la información y se muestra el resultado ![](https://static.platzi.com/media/user_upload/imagen-2974efd4-a151-47da-b7b3-8fb37376b457.jpg)
Calculadora IMC: ![](https://static.platzi.com/media/user_upload/image-02a62990-865c-48db-a59a-4879977d5dd9.jpg)
Aquí esta mi propuesta en donde le pido al usuario que ingrese su año de nacimiento, el año actual y le devuelve su edad. ![](https://static.platzi.com/media/user_upload/Inputbox%20y%20Messagebox-19abacd0-f636-4728-aaff-64232fb36ad6.jpg) ![](https://static.platzi.com/media/user_upload/Inputbox%20y%20Messagebox%20Resultado-8602974b-fecb-4ba8-9c29-5f68b3ee815f.jpg)
Reto cumplido :) ![](https://static.platzi.com/media/user_upload/Ejercicio3_Imput-Msg_Box1-a0d22bf5-67a4-4d2d-9660-bea3e95aa5b6.jpg) ![](https://static.platzi.com/media/user_upload/Ejercicio3_Imput-Msg_Box2-3e94c738-00eb-43e8-b5ce-4560609d474a.jpg)
Mi aporte :D ![](https://static.platzi.com/media/user_upload/image-f846ea3b-f7c3-4d42-bae6-450da044236b.jpg)
Una subrutina con el monto completo de un prestamo con interes compuesto ![](https://static.platzi.com/media/user_upload/image-ca72644f-4d2c-4376-b530-f027c0c5fc1d.jpg)
![](https://static.platzi.com/media/user_upload/MSGBOX%20DIV3-01c5e34c-4620-4473-bcca-dd77617e87f2.jpg) Mi aporte, muchas gracias
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 “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 😄