Hur automatiskt centrera kryssrutan i cellen i Excel?
När du infogar kryssrutor i celler i Excel kanske du märker att det är svårt att ordna alla kryssrutor ordnat som den vänstra skärmdumpen visas. Egentligen kan du flytta alla kryssrutor till cellcentret för att hålla dem ordentligt ordnade. Metoden i den här artikeln kan hjälpa dig.
Autocentrera kryssruta i cell med VBA-kod
Autocentrera kryssruta i cell med VBA-kod
För att automatiskt centrera alla kryssrutor i celler i ett aktuellt kalkylblad, gör så här.
1. I kalkylbladet måste du automatiskt centrera alla kryssrutor, trycka på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer klicka på fönstret Insert > Modulerna. Kopiera och klistra sedan in VBA-kod i kodfönstret.
VBA-kod: Centrera automatiskt alla kryssrutor i celler
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. tryck på F5 nyckel. Sedan flyttas alla kryssrutor till mitten av cellerna omedelbart enligt nedanstående skärmdump.
Anmärkningar: Denna VBA-kod kan tillämpas på både CheckBox (ActiveX Control) och CheckBox (Form Control).
Dricks: Om du vill infoga flera kryssrutor i ett valt område i bulk kan du prova Kryssrutor för satsinsats verktyg pf Kutools för Excel. Eller satsa flera alternativknappar i batch med Alternativknappar för batchinsats verktyg. Dessutom kan du ta bort alla kryssrutor samtidigt med Bockradera kryssrutor verktyget som visas nedan. Du kan gå till gratis nedladdning av programvaran utan begränsning inom 30 dagar.
Relaterade artiklar:
- Hur skapar jag en listruta med flera kryssrutor i Excel?
- Hur ändrar jag ett specificerat cellvärde eller färg när kryssrutan är markerad i Excel?
- Hur markerar jag cell eller rad med kryssrutan i Excel?
- Hur gör jag kryssrutan markerad baserat på cellvärde i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
