Note: The other languages of the website are Google-translated. Back to English

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 dag.


Relaterede artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (9)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Dit VDA-script virker delvist. For da jeg anvendte det, blev den linkede celle ved siden af ​​Checkbox ændret og blev forbundet med en celle under den.
Denne kommentar blev minimeret af moderatoren på webstedet
Dette fungerede godt for mig, bortset fra at det ikke justerer det med teksten i den næste celle, som er bundjusteret. Er der en måde at justere afkrydsningsfelterne for bundjusteret for at få dem til at justere med teksten i den næste celle? Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
VBA'en virker slet ikke for mig. Når jeg trykker på F5, ser det ud til, at modulet kører, men afkrydsningsfelterne flyttede sig ikke.
Denne kommentar blev minimeret af moderatoren på webstedet
Efter lidt mere eksperimentering fandt jeg ud af, at VBA'en virker for manuelt indsatte afkrydsningsfelter, men hvis jeg bruger Kutools batchindsats, gør den det ikke. Hvordan centrerer jeg alle de afkrydsningsfelter, der er indsat med Kutools?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej quadma,
Koden virker også for afkrydsningsfelterne indsat af Kutools. Hvilken Excel-version bruger du?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg bruger office 360. Jeg tror, ​​at problemet, jeg har, er, at når jeg bruger Kutools batch-indsats, er størrelsen på afkrydsningsfeltets objekt lige så bred som kolonnen, det er indsat i (dvs. afkrydsningsfeltets objektbredde er større end dens højde), med selve det synlige afkrydsningsfelt ved at være venstrejusteret i objektet. Hvis jeg markerer alle afkrydsningsfelterne og derefter ændrer størrelsen på dem, så højden og længden er ens, og derefter kører VBA'en, centrerer den derefter afkrydsningsfelterne i kolonnen.





Dette virker som et unødvendigt trin, givet at afkrydsningsfelter er firkantede, hvorfor gør Kultools ikke afkrydsningsfeltets objekter firkantede?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej quadma,
Afkrydsningsfelterne indsat af Kutools er de samme som Afkrydsningsfelt (formkontrol) som er indsat af Excel.
Jeg forstår ikke rigtig, at du sagde "at gøre afkrydsningsfeltet til objekt firkantet". Normalt inkluderer et afkrydsningsfelt boksfeltet og værdifeltet. Kutools holder afkrydsningsfelternes værdi tomme, hvis de valgte celler er tomme. Og hvis der er værdier i valgte celler, tages celleværdien som afkrydsningsfeltværdi.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har uploadet et billede for at vise hvad jeg mener. Forhåbentlig hjælper det.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej quadma, jeg forstår din pointe. Vi vil overveje det og takke dig for din tålmodighed.
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL