Hoe converteer je waar/onwaar naar een selectievakje in Excel?

Stel dat je getallen hebt weergegeven in twee kolommen, als het getal in de eerste kolom groter is dan dat in de tweede kolom, wordt WAAR weergegeven, anders wordt ONWAAR weergegeven zoals te zien is in onderstaande schermafbeelding. Nu kun je de formule wijzigen om WAAR of ONWAAR eenvoudig naar selectievakje-markeringen te converteren in Excel.

Wijzig de oorspronkelijke formule in =ALS(oorspronkelijke_formule,"þ","¨")

1. In dit geval gebruik ik de formule =B3>C3 om de getallen in twee kolommen te vergelijken. Daarom zal ik de oorspronkelijke formule als volgt wijzigen en vervolgens de automatische invulgreep naar andere cellen slepen.

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

2. Houd de formulecellen geselecteerd, klik met de rechtermuisknop en selecteer Celopmaak instellen uit het contextmenu.

3. Ga in het dialoogvenster Celopmaak naar het tabblad Lettertype , selecteer Windings in de lijst met lettertypen en klik op de knop OK.

Nu zie je dat de speciale tekens zijn geconverteerd naar aangevinkte en niet-aangevinkte selectievakjes. Zie schermafbeelding:

In deze sectie introduceren we een VBA-macro om meerdere WAAR- en ONWAAR-waarden te converteren naar selectievakje-besturingselementen in Excel. Doe het volgende:

1. Selecteer de cellen gelijk aan “WAAR” en “ONWAAR” die je wilt converteren naar selectievakjes.

2. Druk tegelijk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.

3. Klik op Invoegen > Module, en plak daarna onderstaande VBA-code in het nieuwe modulevenster.

VBA: Converteer WAAR en ONWAAR naar selectievakje-besturingselementen in 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. Druk op de toets F5 of klik op de knop Uitvoeren om deze VBA uit te voeren.

Dan zie je dat alle geselecteerde WAAR- en ONWAAR-waarden zijn geconverteerd naar selectievakje-besturingselementen. WAAR wordt geconverteerd naar een aangevinkt selectievakje en ONWAAR wordt geconverteerd naar een niet-aangevinkt selectievakje. Zie schermafbeelding:

Als je Kutools voor Excel hebt geïnstalleerd, kun je de functie Batch Invoegen Selectievakjes gebruiken om meerdere selectievakje-besturingselementen in bulk in te voegen met één klik in Excel.

Kutools voor Excel - Bevat meer dan 300 handige tools voor Excel. Volledige functionaliteit gratis proefperiode van 60 dagen, geen creditcard vereist! Haal het nu

1. Selecteer de cellen gelijk aan “WAAR” en “ONWAAR” die je wilt converteren naar selectievakjes, en klik op Kutools > Invoegen > Batch Invoegen Selectievakjes.

2. Nu wordt er een selectievakje-besturingselement ingevoegd in elke geselecteerde cel. Je kunt deze selectievakjes handmatig aanvinken naar behoefte.