Excelでtrue falseをチェックボックスに変換するにはどうすればよいですか？

たとえば、2つの列に数字がリストされているとします。最初の列の数字が2番目の列の数字より大きい場合、TRUEを表示し、それ以外の場合は以下のスクリーンショットのようにFALSEを表示します。これで、TRUEまたはFALSEをチェックボックスマークに簡単に変換する数式に変更できます。

元の数式を =IF(元の数式,"þ","¨") に変更します

1. この場合、2つの列の数字を比較するために =B3>C3 の数式を使用しています。したがって、元の数式を以下のように変更し、オートフィルハンドルを他のセルにドラッグします。

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

2. 数式セルを選択したまま、右クリックしてコンテキストメニューから「 セルの書式設定」を選択します。

3. 「セルの書式設定」ダイアログで、「フォント」 タブに移動し、 「フォント」リストボックスから「Windings」を選択し、 「OK」ボタンをクリックします。

これで、特殊文字がチェック済みのチェックボックスと未チェックのチェックボックスに変換されます。スクリーンショットをご覧ください：

このセクションでは、複数のTRUEおよびFALSEをExcelのチェックボックスコントロールに変換するためのVBAマクロを紹介します。次の手順に従ってください：

1. チェックボックスに変換する「TRUE」と「FALSE」に等しいセルを選択します。

2. Alt + F11キーを同時に押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

3. 「挿入」>「モジュール」をクリックし、新しいモジュールウィンドウに以下のVBAコードを貼り付けます。

VBA: ExcelでTRUEおよびFALSEをチェックボックスコントロールに変換する

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. F5 キーを押すか「実行」ボタンをクリックしてこのVBAを実行します。

これで、選択したすべてのTRUEおよびFALSEがチェックボックスコントロールに変換されます。TRUEはチェック済みのチェックボックスに、FALSEは未チェックのチェックボックスに変換されます。スクリーンショットをご覧ください：

Kutools for Excelがインストールされている場合、その「チェックボックスの一括挿入」機能を使用して、Excelで一括して複数のチェックボックスコントロールを挿入できます。

Kutools for Excel- Excel用の便利なツールが300以上含まれています。全機能無料トライアル60日間、クレジットカード不要！ 今すぐ入手

1. チェックボックスに変換する「TRUE」と「FALSE」に等しいセルを選択し、Kutools > 挿入 > チェックボックスの一括挿入をクリックします。

2. これで、選択したすべてのセルにチェックボックスコントロールが挿入されました。必要に応じてこれらのチェックボックスを手動でオンにすることができます。