Input Box en Visual Basic: Solicitar Datos al Usuario
Contenido del curso
María José Martínez Contreras
Juan Esteban Bolívar Ferrer
Maria Paoli
Ricardo Matias Nieto Goitea
Jaime Hernan Tamayo Guerra
Daniel Osorno
Jeinfferson Bernal G
Jonathan Higueros Garrido
vanessa corredor
Alvaro Villanueva
Joel Sierra Mendoza
Karin Stephany Parra Rosero
Miguel Angel Alburqueque Alburqueque
Joel Sierra Mendoza
Luis Alberto Herrera Gonzalez
Isaac Bustillo
Isaac Bustillo
Willy Alonso Neyra Mauricio
Samuel Gomez Cordoba
Paolo Quintero
sebastián Giraldo Vargas
Alvaro Rodriguez
Edgar Contreras
Adriana Maria Gonzalez Correa
Lizette Rosalía Dazza Hernández
Carlos Andres Novoa
diana carolina moya romero
Christian Camilo Alba Mojica
Yarokcy Alejandro Maldonado Alvarez
Jhins Ledys Cárdenas Pardo
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.
Genial Maria, gracias por el aporte.
si agregamos un input para otra variable que sea la tasa efectiva anual, y agregamos el calculo de la cuota según esa tasa en el msgbox, podriamos hacer un simulador con tasa variable. Buenisimo el aporte! gracias!
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.
Hola Ricardo. Excelente el ejercicio, pero tienes un error de cálculo que es muy común. Para calcular el precio de venta (PV) de un producto conociendo su costos (en tu ejercicio lo llamas precio con impuestos) debes utilizar la siguiente fórmula:
PV = Costo / ( 1 - ( Porcentaje ganancia / 100 ) )
Saludos,
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:
Muy buena. 👍🏽
Cálculo del IMC:
InputBox
En VBA,
InputBoxes 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
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
Excelente Álvaro. Lo he probado y está muy bien. Sólo una cosa: escribiste Dim b y luego en el msgbox colocaste la variable como a
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,....
Terrific! Thank you for sharing!
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.
Utilizamos la función Round para reducir los decimalesa 2 de nuestro double
Round (numero, cantidad decimales)
Saludos,
Escriban cualquier código, lo que sea, los ayudará a recordar.
Que significa Dim?
Es la abreviación de dimensión y es usado en Visual Basic para declarar variables. Normalmente es puesta en un modulo de VBA después de una Subrutina para referirnos al termino declarado en lugar de escribir el termino una y otra vez. Es el equivalente a la declaración de una variable en programación la diferencia es que a esta le ponemos de inicio Dim antes del nombre de la misma.
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
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.
Calcula de edades
Public Sub edad1()
Dim nacimiento As Date
Dim años As Integer
nacimiento = CDate(InputBox("Ingrese su fecha de nacimiento dd/mm/aaaa", "EDAD"))
años = Year(Date) - Year(nacimiento)
If Month(Date) < Month(nacimiento) Then
años = años - 1
ElseIf Month(Date) = Month(nacimiento) And Day(Date) < Day(nacimiento) Then
años = años - 1
End If
MsgBox "La edad exacta es: " & años & " años", , "EDAD"
End Sub
Les comparto mi ejemplo para pedir nombre:
Public Sub PedirNombre()
Dim nombre As String
nombre = InputBox("Por favor, escribe tu nombre:", "Registro de Usuario")
MsgBox "Hola " & nombre & ", bienvenido."
End Sub
porq sale esto, lo pase a otro modulo y me sigue saliendo
me pasa igual
Hola, envío mi reto
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í:
Esa interfaz esta muy bonita. Que version de Excel tienes?