Wie zentriere ich das Kontrollkästchen in einer Zelle in Excel automatisch?
Beim Einfügen von Kontrollkästchen in Zellen in Excel stellen Sie möglicherweise fest, dass es schwierig ist, alle Kontrollkästchen wie im linken Screenshot geordnet anzuordnen. Tatsächlich können Sie alle Kontrollkästchen in die Zellenmitte verschieben, um sie ordentlich in Ordnung zu halten. Die Methode in diesem Artikel kann Ihnen helfen.
Kontrollkästchen Auto-Center in Zelle mit VBA-Code
Kontrollkästchen Auto-Center in Zelle mit VBA-Code
Gehen Sie wie folgt vor, um alle Kontrollkästchen in Zellen in einem aktuellen Arbeitsblatt automatisch zu zentrieren.
1. Im Arbeitsblatt müssen Sie alle Kontrollkästchen automatisch zentrieren und die Taste drücken Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Fenster, bitte klicken Insert > Modul. Kopieren Sie dann den VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Zentriert automatisch alle Kontrollkästchen in Zellen
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 Sub3. Drücken Sie die Taste F5 Schlüssel. Anschließend werden alle Kontrollkästchen sofort in die Mitte der Zellen verschoben (siehe Abbildung unten).
Note: Dieser VBA-Code kann sowohl auf CheckBox (ActiveX Control) als auch auf CheckBox (Form Control) angewendet werden.
TIPP: Wenn Sie mehrere Kontrollkästchen in großen Mengen in einen ausgewählten Bereich einfügen möchten, können Sie Folgendes versuchen: Kontrollkästchen für Batch-Einfügung Dienstprogramm pf Kutools for Excel. Oder fügen Sie mehrere Optionsschaltflächen mit dem Batch ein Optionsschaltflächen zum Batch-Einfügen Nützlichkeit. Außerdem können Sie mit dem Kontrollkästchen alle Kontrollkästchen gleichzeitig löschen Kontrollkästchen zum Löschen von Stapeln Dienstprogramm wie unten gezeigte Screenshots. Du kannst gehen zu Laden Sie die Software innerhalb von 30 Tagen kostenlos und ohne Einschränkung herunter.
In Verbindung stehende Artikel:
- Wie erstelle ich eine Dropdown-Liste mit mehreren Kontrollkästchen in Excel?
- Wie ändere ich einen bestimmten Zellenwert oder eine bestimmte Farbe, wenn das Kontrollkästchen in Excel aktiviert ist?
- Wie markiere ich eine Zelle oder Zeile mit einem Kontrollkästchen in Excel?
- Wie kann das Kontrollkästchen basierend auf dem Zellenwert in Excel aktiviert werden?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
