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)
1 Respuesta
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 %
