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

Hoe het selectievakje in de cel in Excel automatisch centreren?

Bij het invoegen van selectievakjes in cellen in Excel, merkt u misschien dat het moeilijk is om alle selectievakjes netjes te ordenen, zoals het linkerschermbeeld laat zien. U kunt eigenlijk alle selectievakjes naar het midden van de cel verplaatsen om ze netjes op orde te houden. De methode in dit artikel kan u helpen.

Automatisch centreren selectievakje in cel met VBA-code


Automatisch centreren selectievakje in cel met VBA-code

Ga als volgt te werk om automatisch alle selectievakjes in cellen in een huidig ​​werkblad te centreren.

1. In het werkblad moet u alle selectievakjes automatisch centreren, druk op de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster, klik dan Invoegen > Module. Kopieer en plak vervolgens VBA-code in het codevenster.

VBA-code: centreer automatisch alle selectievakjes in cellen

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. druk de F5 sleutel. Vervolgens worden alle selectievakjes onmiddellijk naar het midden van de cellen verplaatst, zoals hieronder wordt getoond.

Opmerking:: Deze VBA-code kan worden toegepast op zowel CheckBox (ActiveX Control) als CheckBox (Form Control).

Tip: Als u meerdere selectievakjes in bulk in een geselecteerd bereik wilt invoegen, kunt u het Batch invoegen selectievakjes hulpprogramma pf Kutools for Excel. Of voeg in batch meerdere optieknoppen in met de Batch invoegen optieknoppen nut. Bovendien kunt u alle selectievakjes in één keer verwijderen met de Batchverwijder selectievakjes hulpprogramma zoals hieronder weergegeven screenshots. Je kan gaan naar gratis download de software zonder beperking in 30 dagen.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (9)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Je VDA-script werkt gedeeltelijk. Omdat toen ik het toepaste, de gekoppelde cel naast Checkbox werd gewijzigd en gekoppeld aan een cel eronder.
Deze opmerking is gemaakt door de moderator op de site
Dit werkte prima voor mij, behalve dat het niet uitgelijnd is met de tekst in de volgende cel die onderaan is uitgelijnd. Is er een manier om de selectievakjes voor onderaan uitgelijnd uit te lijnen om ze uit te lijnen met de tekst in de volgende cel? Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Bij mij werkt de VBA helemaal niet. Als ik op F5 druk, lijkt het erop dat de module wordt uitgevoerd, maar de selectievakjes zijn niet verplaatst.
Deze opmerking is gemaakt door de moderator op de site
Na wat meer experimenteren, kwam ik erachter dat de VBA werkt voor handmatig ingevoegde selectievakjes, maar als ik Kutools-batch-invoeging gebruik, is dit niet het geval. Hoe centreer ik alle selectievakjes die met Kutools zijn ingevoegd?
Deze opmerking is gemaakt door de moderator op de site
Hallo quadma,
De code werkt ook voor de selectievakjes die door Kutools zijn ingevoegd. Welke Excel-versie gebruik je?
Deze opmerking is gemaakt door de moderator op de site
Ik gebruik Office 360. Ik denk dat het probleem dat ik ondervind, is dat wanneer ik de Kutools-batch-invoeging gebruik, de grootte van het selectievakje-object zo breed is als de kolom waarin het is ingevoegd (dwz de breedte van het selectievakje is groter is dan de hoogte), waarbij het zichtbare selectievakje zelf binnen het object wordt uitgelijnd. Als ik alle checkbox-objecten selecteer en vervolgens de grootte ervan aanpas zodat de hoogte en lengte gelijk zijn, en vervolgens de VBA uitvoer, centreert het de selectievakjes in de kolom.





Dit lijkt een onnodige stap, aangezien selectievakjes vierkant zijn, waarom maakt Kultools de selectievakjes niet vierkant?
Deze opmerking is gemaakt door de moderator op de site
Hallo quadma,
De selectievakjes die door Kutools zijn ingevoegd, zijn hetzelfde als de Selectievakje (Formulierbeheer) die door Excel is ingevoegd.
Ik begrijp niet echt dat je zei "het selectievakje object vierkant maken". Normaal gesproken bevat een selectievakje het vakveld en het waardeveld. Kutools houdt de waarde van de selectievakjes leeg als de geselecteerde cellen leeg zijn. En als er waarden in geselecteerde cellen zijn, wordt de celwaarde als de waarde van het selectievakje genomen.
Deze opmerking is gemaakt door de moderator op de site
Ik heb een foto geüpload om te laten zien wat ik bedoel. Hopelijk helpt dat.
Deze opmerking is gemaakt door de moderator op de site
Hallo quadma, ik snap je punt. We zullen er over nadenken en bedankt voor je geduld.
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL