Microsoft Excel
Ver Más instrucciones
1
lanzamiento Microsoft Excel , haga clic en la pestaña de " desarrolladores" y haga clic en el icono "Insertar " que se encuentra en los controles panel . Haga clic en " Cuadro de texto " por debajo de los controles ActiveX y haga clic en cualquier celda en la que desee insertar el cuadro de texto. Añadir un nuevo botón con la misma técnica .
2 Haga clic en " Macros " y tipo " removeBlankTxtBox " debajo del nombre de la macro y haga clic en " Crear" para crear una nueva macro.
3
Escriba lo siguiente para capturar errores si los hay :
On Error GoTo Err_removeBlankTxtBox :
4
Agregue el código siguiente para comprobar si el cuadro de texto está en blanco y eliminar que si es verdad :
Si ActiveSheet.TextBox1.Value = "" Then
Sheet1.OLEObjects
( " TextBox1 ") Eliminar
End If
< br . > 5
Agregue el siguiente código para controlar los errores :
Exit_removeBlankTxtBox :
Exit Sub
Err_removeBlankTxtBox :
Resume Exit_removeBlankTxtBox :
Página 6
volver a Microsoft Office Excel y haga clic en el botón. Haga clic en " Asignar macro ... " y haga clic en " removeBlankTxtBox . " Haga clic en " Aceptar". Haga clic en " Botón 1 " para ejecutar la macro y quitar el cuadro de texto si es en blanco.