セルの値に基づいてチェックボックスを自動的にチェックするにはどうすればよいですか？

チェックボックスに基づいてセルの値を変更する方法はご存じかもしれませんが、Excelでセルの値に基づいてチェックボックスを自動的にチェックする方法はご存じですか？この記事では、それを実現するための方法をご紹介します。

数式を使用してセルの値に基づいてチェックボックスをチェックする
VBAコードを使用してセルの値に基づいてチェックボックスをチェックする

数式を使用してセルの値に基づいてチェックボックスをチェックする

セルA1の値が「Test」に等しい場合にチェックボックス1が自動的にチェックされるようにしたいとします。以下の手順を行ってください。

1. チェックボックス（フォームコントロール）を挿入した後、それを選択し、数式バーに=C2を入力して指定されたセルC2にリンクします。

ActiveXコントロールのチェックボックスの場合、右クリックして表示されるメニューから「プロパティ」を選択してください。そして、「プロパティ」ダイアログボックスで、リンクされたセルをLinkedCellフィールドに入力し、ダイアログボックスを閉じます。スクリーンショットをご覧ください：

2. リンクされたセル（C2）を選択し、数式バーに=IF(A2="Test",TRUE,FALSE)と入力してEnterキーを押します。

注釈: この数式では、A2およびTestは、チェックボックスを自動的にチェックする基準となるセルとその値です。

3. セルA1に「Test」という値を入力すると、対応するチェックボックスが自動的にチェックされます。スクリーンショットをご覧ください：

注釈: この数式は大文字と小文字を区別しません。

VBAコードを使用してセルの値に基づいてチェックボックスをチェックする

次のVBAコードを実行して、Excelでセルの値に基づいてチェックボックスをチェックすることができます。

1. セルの値に基づいてチェックされているチェックボックスがあるシートタブを右クリックし、表示されるメニューから「コードの表示」を選択します。

2. Microsoft Visual Basic for Applicationsウィンドウで、以下のVBAコードをコピーしてコードウィンドウに貼り付けてください。

VBAコード: セルの値に基づいてチェックボックスをチェックする

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A2").Value = "Test" Then
        ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn
    Else
        ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff
    End If
End Sub

注釈: このコードでは、A2およびTestは、チェックボックスを自動的にチェックする基準となるセルとその値です。「Check Box 1」はチェックボックスの名前です。

3. Alt + Qキーを押して、Microsoft Visual Basic for Applicationsウィンドウを閉じます。

セルA2に「Test」という値を入力すると、指定されたチェックボックスが自動的にチェックされます。

注釈: このコードは大文字と小文字を区別します。

ヒント: 複数のチェックボックスを一括で選択範囲に挿入したい場合は、Kutools for Excelの「チェックボックスの一括挿入」機能を使用するか、または「オプションボタンの一括挿入」機能で複数のオプションボタンを一括挿入できます。さらに、以下のように「チェックボックスの一括削除」機能ですべてのチェックボックスを一度に削除することもできます。 Kutools for Excelをダウンロードしてお試しください！ (30-日間無料トライアル)。

関連記事：

• Excelでチェックボックスがチェックされたときに特定のセルの値や色を変更するにはどうすればよいですか？
• Excelでチェックボックスを使ってセルや行をハイライトするにはどうすればよいですか？
• Excelでチェックボックスをオンにしたときにセルに日付スタンプを挿入するにはどうすればよいですか？
• Excelでチェックボックスに基づいてデータをフィルターするにはどうすればよいですか？
• Excelで行が非表示になったときにチェックボックスを隠すにはどうすればよいですか？
• Excelで複数のチェックボックスを持つドロップダウンリストを作成するにはどうすればよいですか？