Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment auto-centre case à cocher dans la cellule dans Excel?

Lorsque vous insérez des cases à cocher dans les cellules d'Excel, vous remarquerez peut-être qu'il est difficile d'organiser toutes les cases comme la capture d'écran de gauche. En fait, vous pouvez déplacer toutes les cases à cocher au centre de la cellule pour les garder dans l'ordre soigneusement. La méthode de cet article peut vous aider.

Case à cocher Auto-Center dans la cellule avec le code VBA


Case à cocher Auto-Center dans la cellule avec le code VBA


Pour centrer automatiquement toutes les cases dans les cellules d'une feuille de calcul courante, procédez comme suit.

1. Dans la feuille de calcul, vous devez centrer automatiquement toutes les cases, appuyez sur autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, s'il vous plaît cliquez insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre de code.

Code VBA: Centrer automatiquement toutes les cases dans les cellules

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. appuie sur le F5 clé. Ensuite, toutes les cases à cocher sont déplacées dans le centre des cellules immédiatement comme ci-dessous capture d'écran montré.

Note: Ce code VBA peut être appliqué à CheckBox (contrôle ActiveX) et CheckBox (contrôle de formulaire).

Pointe: Si vous souhaitez insérer plusieurs cases à cocher dans une plage sélectionnée, vous pouvez essayer Boîtes de contrôle d'insertion par lots utilitaire pf Kutools for Excel. Ou lot insérez plusieurs boutons d'option avec le Boutons d'option d'insertion par lots utilitaire. De plus, vous pouvez supprimer toutes les cases à cocher Batch Supprimer les cases à cocher utilitaire comme ci-dessous les captures d'écran montrées. Tu peux aller à téléchargement gratuit du logiciel sans limitation dans les jours 60.


Articles Liés:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    DG · 9 months ago
    You VDA script is partly working. Because when i applied it, linked cell next to Checkbox get changed and got linked with a cell under it.