Script pour Insérer une Case à cocher dans chaque cellule et de l'affecter à la cellule dans Excel

Je suis en train de travailler sur un projet où j'ai besoin d'ajouter une case à cocher pour chaque cellule qui est reliée à celle de la cellule. Lorsque vous cliquez dessus, il va retourner la valeur true lorsque cette option est décochée, elle retourne false dans la cellule, il est attribué. La feuille de calcul a des milliers de cellules, et que je vais à travers les insérer manuellement, j'ai réalisé il y a à être une meilleure solution. La feuille je suis en train de travailler sur ressemble à ceci:

Feuille de calcul Excel dans le Besoin de Cases à cocher

S'il vous plaît laissez-moi savoir si je devrais être en cours d'exécution d'un script/macro ou quelque chose - j'apprécie beaucoup votre aide!

OriginalL'auteur Clinton Warren | 2012-10-09

  1. 10

    Ici, vous allez, Clinton.

    Sub AddCheckBoxes()

Dim cb As CheckBox
Dim myRange As Range, cel As Range
Dim wks As Worksheet

Set wks = Sheets("mySheet") 'adjust sheet to your needs

Set myRange = wks.Range("A1:A10") ' adjust range to your needs

For Each cel In myRange

    Set cb = wks.CheckBoxes.Add(cel.Left, cel.Top, 30, 6) 'you can adjust left, top, height, width to your needs


    With cb

        .Caption = ""
        .LinkedCell = cel.Address

    End With

Next

End Sub
    Vous êtes l'homme, je vous remercie pour me sauver plus de 8 heures de travail fastidieux!
    comme pour info, j'ai posté parce que j'ai eu c'est assez facilement disponible. Cependant, une recherche sur google aurait donné le même type de réponse dans environ 3-5 minutes.
    cela fonctionne à merveille. Merci beaucoup j'ai juste une suggestion, est-il un moyen pour la cellule de liaison déplacer et la taille de chaque cellule? Je dois passer par des centaines de cases à cocher qui ont besoin de la taille et de la déplacer avec la cellule. J'aime toujours cette solution merci
    si vous utilisez l'intellisense, je parie que vous pouvez trouver la propriété qui distingue le mouvement et la taille de la propriété. Ou au pire des cas, vous pouvez utiliser la macro-enregistreur pour obtenir le bon code.
    C'est une sorte de tricher. Les cases à cocher ne sont pas réellement DANS les cellules, flottant juste au-dessus d'eux. C'est une honte qu'Excel n'est pas vraiment un véritable soutien contrôles liés aux cellules. Il semble que ce serait un assez caractéristique de base...

    OriginalL'auteur Scott Holtzman

  2. 5

    Ici est plus générique de macro VBA que j'ai utilisé ajouter centrée cases à cocher de toutes les cellules sélectionnées:

    'ActiveSheet.DrawingObjects.Delete ' optional to delete all shapes when testing
Dim c As Range, cb As CheckBox

For Each c In Selection
    Set cb = c.Worksheet.CheckBoxes.Add(c.Left + c.Width / 2 - 8.25, _
            c.Top + c.Height / 2 - 8.25, 0, 0)  ' 8.25 is cb.Height /2
    cb.Text = vbNullString                      ' to clear Caption
    cb.LinkedCell = c.Address(0, 0)             ' Example A1 instead of $A$1
    cb.Name = "cb" & cb.LinkedCell              ' optional
Next

Selection.NumberFormat = ";;;" ' optional to hide the cell values
Selection = True ' optional to check all at once (or 'selection = [#N/A]' for all xlMixed)

    OriginalL'auteur Slai