¿Cómo centrar automáticamente la casilla de verificación en la celda en Excel?
Al insertar casillas de verificación en las celdas de Excel, es posible que observe que es difícil organizar todas las casillas de verificación ordenadamente como se muestra en la captura de pantalla de la izquierda. De hecho, puede mover todas las casillas de verificación al centro de la celda para mantenerlas en orden. El método de este artículo puede ayudarte.
Casilla de verificación de centro automático en la celda con código VBA
Casilla de verificación de centro automático en la celda con código VBA
Para centrar automáticamente todas las casillas de verificación en las celdas de una hoja de trabajo actual, haga lo siguiente.
1. En la hoja de trabajo, debe centrar automáticamente todas las casillas de verificación, presione la otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic en recuadro > Módulo. Luego copie y pegue el código VBA en la ventana de código.
Código de VBA: centre automáticamente todas las casillas de verificación en las celdas
Sub CenterCheckbox ()
Dim xRg As Range
Dim chkBox As OLEObject
Dim chkFBox As CheckBox
On Error Resume Next
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.OLEObjects
If TypeName(chkBox.Object) = "CheckBox" Then
Set xRg = chkBox.TopLeftCell
chkBox.Width = xRg.Width * 2 / 3
chkBox.Height = xRg.Height
chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
End If
Next
For Each chkFBox In ActiveSheet.CheckBoxes
Set xRg = chkFBox.TopLeftCell
chkFBox.Width = xRg.Width * 2 / 3
chkFBox.Height = xRg.Height
chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
Next
Application.ScreenUpdating = True
End Sub
3. presione el F5 llave. Luego, todas las casillas de verificación se mueven al centro de las celdas inmediatamente como se muestra a continuación.
Note: Este código VBA se puede aplicar tanto a CheckBox (Control ActiveX) como a CheckBox (Control de formulario).
Consejo: Si desea insertar varias casillas de verificación en un rango seleccionado de forma masiva, puede probar el Casillas de verificación de inserción de lote utilidad pf Kutools for Excel. O inserte por lotes varios botones de opción con el Botones de opción de inserción por lotes utilidad. Además, puede eliminar todas las casillas de verificación a la vez con el Casillas de verificación de eliminación por lotes utilidad como se muestra a continuación. Puedes ir a Descarga gratis el software sin limitación en 30 días..
Artículos relacionados:
- ¿Cómo crear una lista desplegable con múltiples casillas de verificación en Excel?
- ¿Cómo cambiar un valor o color de celda especificado cuando la casilla de verificación está marcada en Excel?
- ¿Cómo resaltar celda o fila con casilla de verificación en Excel?
- ¿Cómo hacer que la casilla de verificación esté marcada según el valor de la celda en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!