Excelでプルダウンリストに「○」「×」を表示する方法

Excelでプルダウンリストを使用すると、ユーザーが事前定義されたオプションから選択できるようになります。この記事では、プルダウンリストに「○」や「×」を表示する方法と具体的な例を紹介します。

方法1：データ検証機能を使用してプルダウンリストを作成する

Excelのデータ検証機能を使用すると、セルにドロップダウンリストを作成できます。これにより、ユーザーはリストから「○」や「×」を簡単に選択できます。

手順

1. データ範囲の選択: プルダウンリストを作成したいセル範囲を選択します。
2. データ検証の設定:
   1. 「データ」タブをクリックします。
   2. 「データツール」グループから「データの入力規則」を選択します。
   3. 「設定」タブで「リスト」を選択し、「元の値」ボックスに「○,×」と入力します。
3. 設定を適用: 「OK」ボタンをクリックして設定を適用します。
   

   例

   • 例1: A1:A10の範囲に「○」や「×」を選択できるプルダウンリストを作成します。
     1. A1:A10を選択。
     2. 「データ」→「データの入力規則」→「リスト」→「○,×」を入力。
     3. 「OK」をクリックして設定を適用。

   方法2：別のシートを参照してプルダウンリストを作成する

   リストのアイテムが多い場合や変更される可能性がある場合、別のシートにリストを作成し、それを参照することで管理が容易になります。

   手順

1. 別シートにリストを作成:

1.1. 新しいシート（例：「リスト」シート）を作成します。

1. 2. A1に「○」、A2に「×」を入力します。

2. データ検証の設定:

2.1. プルダウンリストを作成したいセル範囲を選択します。

2.2.「データの入力規則」で「リスト」を選択し、「元の値」ボックスに以下のように入力します。

=リスト!$A$1:$A$2

例

• 例2: A1:A10の範囲に別シートのリストを参照するプルダウンリストを作成します。
  1. 「リスト」シートにA1に「○」、A2に「×」を入力。
  2. A1:A10を選択。
  3. 「データ」→「データの入力規則」→「リスト」→=リスト!$A$1:$A$2を入力。
  4. 「OK」をクリックして設定を適用。

方法3：条件付き書式を使用して選択を強調表示する

プルダウンリストを作成した後、条件付き書式を使用して選択した「○」や「×」を強調表示することができます。

手順

1. データ範囲の選択: プルダウンリストを作成したセル範囲を選択します。
2. 条件付き書式の設定:
   1. 「ホーム」タブをクリックします。
   2. 「条件付き書式」→「新しいルール」を選択します。
   3. 「数式を使用して、書式設定するセルを決定」を選択し、以下の数式を入力します。
      • 「○」の場合: =$A1="○"
      • 「×」の場合: =$A1="×"
   4. 「書式」をクリックし、希望の書式を設定します（例：背景色を変更）。

例

• 例3: A1:A10の範囲にプルダウンリストを作成し、選択した「○」や「×」を強調表示します。
  1. A1:A10を選択。
  2. 「データ」→「データの入力規則」→「リスト」→「○,×」を入力。
  3. 「ホーム」→「条件付き書式」→「新しいルール」。
  4. 数式 =$A1="○" を入力し、書式を設定（例：背景色を緑）。
  5. 数式 =$A1="×" を入力し、書式を設定（例：背景色を赤）。

方法4：VBAを使用してプルダウンリストを作成する

大量のセルに対してプルダウンリストを作成する場合、VBAマクロを使用して効率的に設定することも可能です。

手順

1. VBAエディタの起動: Alt + F11 キーを押してVBAエディタを開きます。

2. 新しいモジュールの挿入: 「挿入」→「モジュール」を選択します。

3. コードの入力: 以下のコードを新しいモジュールに入力します。

Sub CreateDropDown()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更してください
Dim cell As Range
For Each cell In ws.Range("A1:A10") ' 範囲を適宜変更してください
With cell.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="○,×"
.IgnoreBlank = True
.InCellDropdown = True
End With
Next cell
End Sub

4. マクロの実行: VBAエディタを閉じ、Alt + F8 を押して「マクロの実行」ダイアログを開き、CreateDropDown マクロを選択して実行します。

例

• 例4: シート1の A1:A10 範囲にプルダウンリストを作成します。
  1. VBAエディタを開く。
  2. 新しいモジュールに上記のコードを入力。
  3. Alt + F8 を押して CreateDropDown マクロを実行。