VBA Excel 2003: Convertir un número real de un textbox en porcentaje
P/ Dante Amor
Hola! Estoy trabajando con un Userform donde a través de un textbox ingreso un número (supongamos 4,5). Lo que necesito con una macro son dos cosas:
- Que en el textbox1 aparezca el signo de porcentaje (es decir, ESCRIBO el número 4,5 y aparece el signo %. Es una especie de trampa visual, para que la persona que usa el formulario no esté buscando el signo de porcentaje en el teclado).
- Necesito que el numero ingresado en textbox1 se copie en A1 de la hoja activa, YA COMO UN VALOR DE PORCENTAJE (es decir, que valga 4,5 por ciento)
Respuesta de Dante Amor
1
H o l a:
Pon el siguiente evento en tu formulario
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por.Dante Amor If TextBox1 > 0 And IsNumeric(TextBox1) Then TextBox1 = Format(CDbl(TextBox1 / 100), "#0.00%") End If End Sub
Ahora, después de capturar el valore del porcentaje, tienes que presionar enter o salir del textbox.
Cuando sales del textbox, se muestra el formato del porcentaje.
En un botón pon lo siguiente para pasar el dato a la celda:
Private Sub CommandButton1_Click() 'Por.Dante Amor valor = Replace(TextBox1, "%", "") If valor > 0 And IsNumeric(valor) Then valor = valor / 100 [A1] = CDbl(valor) End If End Sub
Previamente debes poner el formato de la celda A1 como %
