Hvordan autocentreres afkrydsningsfelt i celle i Excel?
Mens du indsætter afkrydsningsfelter i celler i Excel, bemærker du muligvis, at det er svært at arrangere alle afkrydsningsfelter ordentligt som det venstre skærmbillede vises. Faktisk kan du flytte alle afkrydsningsfelter til cellecenter for at holde dem i orden pænt. Metoden i denne artikel kan hjælpe dig.
Autocentrer afkrydsningsfelt i celle med VBA-kode
Autocentrer afkrydsningsfelt i celle med VBA-kode
For at centrere alle afkrydsningsfelter i celler i et aktuelt regneark skal du gøre som følger.
1. I regnearket skal du centrere alle afkrydsningsfelter automatisk og trykke på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, klik venligst indsatte > Moduler. Kopier og indsæt derefter VBA-kode i kodevinduet.
VBA-kode: Centrer automatisk alle afkrydsningsfelter 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 Sub
3. Tryk på F5 nøgle. Derefter flyttes alle afkrydsningsfelter ind i midten af cellerne straks som vist nedenstående skærmbillede.
Bemærk: Denne VBA-kode kan anvendes på både CheckBox (ActiveX Control) og CheckBox (Form Control).
Tip: Hvis du vil indsætte flere afkrydsningsfelter i et valgt område i bulk, kan du prøve Batchindsats afkrydsningsfelter værktøj pf Kutools til Excel. Eller batch indsæt flere Optionsknapper med Batchindsats Optionsknapper hjælpeprogram. Desuden kan du slette alle afkrydsningsfelter på én gang med Batch Slet afkrydsningsfelter værktøj som vist nedenfor. Du kan gå til gratis download softwaren uden begrænsning i 30 dage.
Relaterede artikler:
- Hvordan oprettes en rulleliste med flere afkrydsningsfelter i Excel?
- Hvordan ændres en bestemt celleværdi eller farve, når afkrydsningsfeltet er markeret i Excel?
- Hvordan fremhæves celle eller række med afkrydsningsfelt i Excel?
- Hvordan laver man afkrydsningsfeltet baseret på celleværdi i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!