Supposons que vous ayez répertorié les nombres dans deux colonnes, si le nombre de la première colonne est plus grand que celui de la deuxième colonne, affichez TRUE, sinon affichez False comme illustré ci-dessous. Vous pouvez maintenant modifier la formule pour convertir facilement VRAI ou FAUX en cases à cocher dans Excel.

Remplacez la formule d'origine par = IF (original_formula, "þ", "¨")

1. Dans ce cas, j'utilise la formule = B3> C3 pour comparer les nombres dans deux colonnes. Par conséquent, je vais modifier la formule d'origine comme ci-dessous, puis faire glisser la poignée de saisie automatique vers d'autres cellules.

= SI (B3> C3, "þ", "¨")

2. Gardez les cellules de formule sélectionnées, faites un clic droit et sélectionnez Format de cellule dans le menu contextuel.

3. Dans la boîte de dialogue Format de cellule, accédez à la Fonte onglet, sélectionnez Enroulements la Fonte zone de liste, puis cliquez sur le OK .

Vous verrez maintenant que les caractères spéciaux sont convertis en cases à cocher cochées et en cases à cocher décochées. Voir la capture d'écran:

Cette section présentera une macro VBA pour convertir plusieurs contrôles true et false en cases à cocher dans Excel. Veuillez procéder comme suit:

1. Sélectionnez les cellules égales à «TRUE» et «FALSE» que vous convertirez en cases à cocher.

2. presse autre + F11 touches ensemble pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3Cliquez sur insérer > Module, puis collez sous le code VBA dans la nouvelle fenêtre Module.

VBA: convertir TRUE et FALSE en contrôles de case à cocher dans Excel

Sub ConvertTrueFalseToCheckbox()
Dim xCB As CheckBox
Dim xRg, xCell As Range
Application.ScreenUpdating = False
On Error Resume Next
Set xRg = Selection
For Each xCB In ActiveSheet.CheckBoxes
xCB.Delete
Next
For Each xCell In xRg
If (UCase(xCell.Value) = "TRUE") Or (UCase(xCell.Value) = "FALSE") Then
Set xCB = ActiveSheet.CheckBoxes.Add(xCell.Left, xCell.Top, cDblCheckboxWidth, xCell.Height)
xCB.Value = xCell.Value
xCB.LinkedCell = xCell.Address
xCB.Text = ""
End If
Next
Application.ScreenUpdating = True
End Sub

4. presse F5 ou cliquez sur la cours bouton pour exécuter ce VBA.

Ensuite, vous verrez que tous les TRUE et FALSE sélectionnés sont convertis en contrôles de case à cocher. TRUE est converti en une case cochée et FALSE est converti en une case non cochée. Voir la capture d'écran:

Si vous avez Kutools pour Excel installé, vous pouvez appliquer son Cases à cocher d'insertion par lots fonctionnalité pour insérer plusieurs contrôles de case à cocher en vrac en un seul clic dans Excel.

Kutools pour Excel- Comprend plus de 300 outils pratiques pour Excel. Essai gratuit complet de 60 jours, aucune carte de crédit requise! Achetez-le Maintenant

1. Sélectionnez les cellules égales à "TRUE" et "FALSE" que vous convertirez en cases à cocher, puis cliquez sur Kutools > insérer > Cases à cocher d'insertion par lots.

2. Maintenant, un contrôle de case à cocher est inséré dans chaque cellule sélectionnée. Vous pouvez cocher manuellement ces cases selon vos besoins.