Problema del cuadro de texto en la programación vba

subcuadro de texto privado 1 _ antes de la actualización (ByVal Cancelar como formularios ms. devolver valor booleano)

Si no es IsNumeric(TextBox1), entonces

MsgBox "¡No es un número!"

Cancelar=Verdadero

Terminará si...

Finalizar conector

Botón de subcomando privado 1_Click()

Atenuar i es Doble

i = Formato(Reemplazar(TextBox1. Valor, "., "."), "0.00")

Hoja2. Rango("A1"). Valor = i

Conector final

Este código se redondeará a dos decimales ya sea que el cuadro de texto1 se ingrese como un punto o un punto.

Datos extendidos:

AcceptsReturn indica si se debe crear una nueva línea de texto en el componente TextBox de varias líneas o activar el botón predeterminado del formulario cuando se presiona la tecla ENTER.

AcceptsTab Este valor indica cuándo se presiona la tecla ENTER. presionado Si se debe escribir un carácter de tabulación en un componente de cuadro de texto de varias líneas al tabular en lugar de mover el foco al siguiente componente en la secuencia de teclas TAB

AllowDrop obtiene o establece un valor que indica si el componente puede hacerlo. acepta datos que el usuario arrastra sobre él.

Obtiene o establece qué bordes del componente están anclados a los bordes de su contenedor.

BackColor Obtiene o establece el color de fondo del componente. p>

BackgroundImage obtiene o establece la imagen de fondo que se muestra en el componente

Enciclopedia Baidu-Cuadro de texto