Excelドロップダウンリスト：作成、編集、削除およびその他の高度な操作

ドロップダウンリストは、リストボックスに似ており、ユーザーが選択リストから1つの値を選択できるようにします。このチュートリアルでは、ドロップダウンリストの基本操作を紹介します：Excelでドロップダウンリストを作成、編集、削除する方法です。さらに、このチュートリアルでは、より多くのExcelの問題を解決するために機能を強化するための、ドロップダウンリストの高度な操作についても説明します。

シンプルなドロップダウンリストを作成

ドロップダウンリストを使用するには、まずその作成方法を学ぶ必要があります。このセクションでは、Excelでドロップダウンリストを作成するための6つの方法を紹介します。

セルの範囲からドロップダウンリストを作成

ここでは、Excelでセル範囲からドロップダウンリストを作成する手順を説明します。以下の手順に従ってください。

1. ドロップダウンリストを配置するセル範囲を選択します。

ヒント: 「Ctrl」キーを押しながらセルを1つずつ選択することで、複数の非連続セルに対して同時にドロップダウンリストを作成できます。

2. 「データ」をクリック > 「データの検証」 > 「データの検証」。

3. 「データの入力規則」ダイアログボックスで、「設定」タブの下に、次の通り設定してください。

注記：

これでドロップダウンリストが作成されました。ドロップダウンリストのセルをクリックすると、その横に矢印が表示されます。矢印をクリックしてリストを展開し、項目を選択することができます。

表から動的なドロップダウンリストを作成

データ範囲をExcelテーブルに変換し、その後、テーブル範囲に基づいて動的ドロップダウンリストを作成できます。

1. 元のデータ範囲を選択し、次に「Ctrl」＋「T」キーを押します。

2. 「テーブルの作成」ダイアログボックスが表示されたら、「OK」をクリックします。その後、データ範囲がテーブルに変換されます。

3. ドロップダウンリストを配置するセル範囲を選択し、次に「データ」>「データの検証」>「データの検証」をクリックします。

4. 「データの入力規則」ダイアログボックスで、次の操作を行う必要があります：

その後、動的ドロップダウンリストが作成されます。表の範囲にデータを追加または削除すると、ドロップダウンリストの値は自動的に更新されます。

数式を使用して動的ドロップダウンリストを作成

テーブル範囲から動的ドロップダウンリストを作成するほかに、数式を使用してExcelで動的ドロップダウンリストを作成することもできます。

1. ドロップダウンリストを出力するセルを選択します。

2. 「データ」＞「データの検証」＞「データの検証」をクリックします。

3. 「データの入力規則」ダイアログボックスで、次の通り設定してください。

=OFFSET($A$13,0,0,COUNTA($A$13:$A$24),1)

その後、動的ドロップダウンリストが作成されます。特定の範囲からデータを追加または削除すると、ドロップダウンリストの値は自動的に更新されます。

名前付き範囲からドロップダウンリストを作成

Excel では、名前付き範囲からドロップダウンリストを作成することもできます。

1. まず、名前付き範囲を作成します。名前付き範囲を作成するセル範囲を選択し、「名前」ボックスに範囲名を入力して、「Enter」キーを押します。

2. 「データ」＞「データの検証」＞「データの検証」をクリックします。

3. 「データの入力規則」ダイアログボックスで、次の通り設定してください。

これで、名前付き範囲のデータを使用するドロップダウンリストが作成されました。

別のワークブックからドロップダウンリストを作成

「SourceData」という名前のワークブックがあり、その「SourceData」ワークブックのデータに基づいて別のワークブックにドロップダウンリストを作成したい場合、次の手順を実行してください。

1. 「SourceData」ワークブックを開きます。このワークブックで、ドロップダウンリストの作成元となるデータを選択し、「名前」ボックスに範囲名を入力してから「Enter」キーを押します。

ここで、範囲にCityという名前を付けます。

2. ドロップダウンリストを挿入するワークシートを開きます。 「数式」>「名前を定義」をクリックします。

3. 「新しい名前」ダイアログボックスで、ワークブック「SourceData」で作成した範囲名に基づいて名前付き範囲を作成する必要があります。以下の通り設定してください。

=SourceData.xlsx!City

注記：

4. ドロップダウンリストを挿入するワークブックを開き、ドロップダウンリスト用のセルを選択してから、「データ」>「データの検証」>「データの検証」をクリックします。

5. 「データの入力規則」ダイアログボックスで、次の通り設定してください。

選択した範囲にドロップダウンリストが挿入されました。また、ドロップダウンの値は別のワークブックからのものです。

素晴らしいツールを使用してドロップダウンリストを簡単に作成

ここで、私は「Kutools for Excel」の「簡単なドロップダウンリストを作成する」機能を強くお勧めします。この機能を使用すると、特定のセル値でドロップダウンリストを簡単に作成したり、Excelで事前に設定されたカスタムリストを使用してドロップダウンリストを作成することができます。

1. ドロップダウンリストを挿入したいセルを選択し、次に「Kutools」>「ドロップダウンリスト」>「シンプルなドロップダウンリストの作成」をクリックします。

2. 「シンプルなドロップダウンリストの作成」ダイアログボックスで、次の通り設定してください。

注: Excelでカスタムリストに基づいてドロップダウンリストを作成したい場合は、「ソース」セクションで「カスタムリスト」オプションを選択し、「カスタムリスト」ボックスでカスタムリストを選択してから、「OK」ボタンをクリックしてください。

選択した範囲にドロップダウンリストが挿入されました。

ドロップダウンリストを編集

ドロップダウンリストを編集したい場合、このセクションの方法が役立ちます。

セル範囲に基づいてドロップダウンリストを編集

セル範囲に基づくドロップダウンリストを編集するには、次の手順に従ってください。

1. 編集したいドロップダウンリストが含まれているセルを選択し、次に「データ」>「データの検証」>「データの検証」をクリックします。

2. 「データの入力規則」ダイアログボックスで、「元」ボックス内のセル参照を変更し、「OK」ボタンをクリックします。

名前付き範囲に基づいてドロップダウンリストを編集する

名前付き範囲に値を追加または削除したと仮定し、ドロップダウンリストがこの名前付き範囲に基づいて作成されている場合、更新された値をドロップダウンリストに反映させるには、次の手順を実行してください。

1. 「数式」>「名前マネージャー」をクリックします。

ヒント: 「Ctrl」+「F3」キーを押すことで、「名前マネージャー」ウィンドウを開くことができます。

2. 「名前マネージャー」ウィンドウで、次の設定を行う必要があります：

2.1) 「名前」ボックスで、更新したい名前付き範囲を選択します。

2.2) 「参照先」セクションで、ボタンをクリックします。 ドロップダウンリストの更新された範囲を選択するために；

2.3) 「閉じる」ボタンをクリックします。

3. 次に「Microsoft Excel」ダイアログボックスが表示されます。「はい」ボタンをクリックして変更を保存してください。

その後、この名前範囲に基づくドロップダウンリストが更新されます。

ドロップダウンリストを削除

このセクションでは、Excelでドロップダウンリストを削除する方法について説明します。

Excelの組み込み機能を使用してドロップダウンリストを削除

Excelには、ワークシートからドロップダウンリストを削除するための組み込み機能が用意されています。以下の手順で操作してください。

1. 削除したいドロップダウンリストを含むセル範囲を選択します。

2. 「データ」＞「データの検証」＞「データの検証」をクリックします。

3. 「データの入力規則」ダイアログボックスで、「すべてクリア」ボタンをクリックし、その後「OK」をクリックして変更を保存します。

選択した範囲からドロップダウンリストが削除されました。

驚きのツールでドロップダウンリストを簡単に削除

「Kutools for Excel」は、便利なツール「Clear Data Validation Restrictions」を提供しており、これを使用すると、1つまたは複数の選択範囲からドロップダウンリストを簡単に削除できます。以下のように操作してください。

1. 削除したいドロップダウンリストを含むセル範囲を選択します。

2. 「Kutools」>「入力を制限する」>「データ検証制約をクリア」をクリックします。 スクリーンショットをご覧ください：

3. 次に、「Kutools for Excel」ダイアログボックスが表示され、ドロップダウンリストをクリアするかどうかを確認します。「OK」ボタンをクリックしてください。

そして、この選択範囲内のドロップダウンリストは直ちに削除されます。

ドロップダウンリストに色を追加

場合によっては、ドロップダウンリストのセル内のデータを一目で区別できるように、色分けされたドロップダウンリストを作成する必要があるかもしれません。このセクションでは、その問題を詳細に解決するための2つの方法を提供します。

条件付き書式を使用してドロップダウンリストに色を追加

ドロップダウンリストを含むセルに対して条件付きのルールを作成し、色分けすることができます。以下の手順で行ってください。

1. 色分けしたいドロップダウンリストが含まれるセルを選択します。

2. 「ホーム」をクリックし、「条件付き書式」を選択してから「ルールの管理」をクリックします。

3. 「条件付き書式ルールの管理」ダイアログボックスで、「新しいルール」ボタンをクリックします。

4. 「新しい書式ルール」ダイアログボックスで、次の通り設定してください。

4.1) 「ルールの種類を選択」ボックスで、「次の内容を含むセルだけを書式設定」オプションを選択します。

4.2) 「特定の条件に一致するセルのみ書式設定」セクションで、最初のドロップダウンリストから「特定の文字列」を選択し、次のドロップダウンリストから「含む」を選択して、3番目のボックスでソースリストの最初の項目を選択します。

ヒント: ここでは、3番目のテキストボックスでセルA16を選択しています。A16は、私がドロップダウンリストを作成した元のリストの最初の項目です。

4.3) 「書式」ボタンをクリックします。

4.4) 「セルの書式設定」ダイアログボックスで、「塗りつぶし」タブに移動し、指定されたテキストの背景色を選択してから「OK」ボタンをクリックします。または、必要に応じてテキストの特定のフォント色を選択することもできます。

4.5) 「新しい書式ルール」ダイアログボックスに戻ったら、「OK」ボタンをクリックします。

5. 「条件付き書式ルールの管理」ダイアログボックスに戻ったら、上記の手順3と4を繰り返して、他のドロップダウン項目に色を指定します。色の指定が完了したら、「OK」をクリックして変更を保存します。

これからは、ドロップダウンリストから項目を選択すると、選択されたテキストに基づいてセルが指定された背景色でハイライトされます。

驚きのツールを使用してドロップダウンリストに簡単に色を追加

ここで、「Kutools for Excel」の「色付きドロップダウンリスト」機能を紹介します。これにより、Excelのドロップダウンリストに簡単に色を追加できます。

1. 色を追加したいドロップダウンリストが含まれているセルを選択します。

2. 「Kutools」>「ドロップダウンリスト」>「色付きドロップダウンリスト」をクリックします。

3. 「色付きドロップダウンリスト」ダイアログボックスで、次の操作を行ってください。

ヒント: ドロップダウンリストの選択に基づいて行をハイライトしたい場合は、「適用先」セクションで「データ範囲の行」オプションを選択し、次に「行をハイライト」ボックスでハイライトする行を選択してください。

ドロップダウンリストが以下スクリーンショットに示すように色分けされました。

ドロップダウンリストの選択に基づいてセルをハイライトする

ドロップダウンリストの選択に基づいて行をハイライトする

ExcelまたはGoogleスプレッドシートで依存するドロップダウンリストを作成

従属ドロップダウンリストは、最初のドロップダウンリストで選択された値に応じて選択肢を表示するのに役立ちます。ExcelワークシートやGoogleスプレッドシートで従属（カスケード）ドロップダウンリストを作成する必要がある場合、このセクションの方法がお役に立てます。

Excelワークシートに依存するドロップダウンリストを作成する

以下のデモは、Excelワークシート内の依存ドロップダウンリストを表示しています。

ステップバイステップのガイドチュートリアルについては、「Excelで依存関係のあるカスケード型ドロップダウンリストを作成する方法」をクリックしてください。

Google Sheetsで依存するドロップダウンリストを作成する

Googleスプレッドシートで依存するドロップダウンリストを作成したい場合は、『Googleスプレッドシートで依存するドロップダウンリストを作成する方法』をご覧ください。

検索可能なドロップダウンリストを作成

ワークシート内の長い項目リストを持つドロップダウンリストから、特定の項目を選択するのは簡単ではありません。項目の先頭の文字や連続するいくつかの文字を覚えていれば、ドロップダウンリスト内で検索機能を使用して簡単にフィルタリングできます。このセクションでは、Excelで検索可能なドロップダウンリストを作成する方法を説明します。

ドロップダウンリストを作成したい元データが、以下のスクリーンショットに示すように、Sheet1の列Aにあると仮定します。 以下のようにして、これらのデータを使用してExcelで検索可能なドロップダウンリストを作成してください。

1. まず、配列数式を使用して元のデータリストの隣に補助列を作成します。

この場合、セル B2 を選択し、以下の数式を入力してから "Ctrl" + "Shift" + "Enter" キーを押して最初の結果を得ます。

=IFERROR(INDEX($A$2:$A$50,SMALL(IFERROR(MATCH(IF(FIND(CELL("contents"),$A$2:$A$50)>0,$A$2:$A$50,""),$A$2:$A$50,0),""),ROW(A1))),"")

最初の結果セルを選択し、その「フィルハンドル」をリストの最後までドラッグします。

注: この配列数式では、$A$2:$A$50 はドロップダウンリストを作成する元データの範囲です。データ範囲に基づいてこれを変更してください。

2. 「数式」>「名前の定義」をクリックします。

3. 「名前の編集」ダイアログボックスで、次の通り設定してください。

=OFFSET(Sheet1!$B$2,0,0,COUNTA(Sheet1!$B$2:$B$50)-COUNTIF(Sheet1!$B$2:$B$50,""),1)

次に、名前付き範囲に基づいてドロップダウンリストを作成する必要があります。この場合、Sheet2 に検索可能なドロップダウンリストを作成します。

4. Sheet2を開き、ドロップダウンリスト用のセル範囲を選択してから、「データ」>「データの検証」>「データの検証」をクリックします。

5. 「データの入力規則」ダイアログボックスで、以下のようにしてください。

5.1) 「許可」ボックスで、「リスト」を選択します。

5.2) 「ソース」ボックスをクリックし、その後「F3」キーを押します。

5.3) 表示された「名前を貼り付け」ダイアログで、ステップ3で作成した名前範囲を選択し、「OK」をクリックします。

ヒント: 名前付き範囲を「=名前付き範囲」の形式で直接「ソース」ボックスに入力できます。

5.4) 「エラーアラート」タブをクリックし、「無効なデータが入力された後にエラーアラートを表示する」チェックボックスの選択を解除し、最後に「OK」ボタンをクリックします。

6. シートタブ（Sheet2）を右クリックし、右クリックメニューから「コードの表示」を選択します。

7. 開いた「Microsoft Visual Basic for Applications」ウィンドウで、以下のVBAコードをコードエディターにコピーします。

VBAコード: Excelで検索可能なドロップダウンリストを作成する

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub

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

これで検索可能なドロップダウンリストが作成されました。項目を選択するには、その項目の1文字または連続した数文字をドロップダウンセルに入力し、ドロップダウン矢印をクリックすると、入力内容に基づいて該当する項目がドロップダウンリストに表示されます。スクリーンショットをご覧ください：

注: この方法は大文字と小文字を区別します。

ドロップダウンリストを作成するが、異なる値を表示する

ドロップダウンリストを作成したと仮定します。そのリストから項目を選択すると、セルに別の内容を表示したい場合があります。以下のデモのように、国名リストに基づいてドロップダウンリストを作成し、そのリストから国名を選択すると、選択した国名の略称をドロップダウンセルに表示したいとします。このセクションでは、この問題を解決するためのVBAメソッドを提供します。

1. ソースデータの右側（国名列）に、ドロップダウンセルに表示したい国名の略称を含む新しい列を作成します。

2. 国名リストと略称リストの両方を選択し、「名前」ボックスに名前を入力してから「Enter」キーを押します。

3. ドロップダウンリスト用のセルを選択します（ここではD2:D8を選択）、その後「データ」>「データの検証」>「データの検証」をクリックします。

4. 「データの入力規則」ダイアログボックスで、次の通り設定してください。

5. ドロップダウンリストを作成した後、シートタブを右クリックし、右クリックメニューから「コードの表示」を選択します。

6. 開いた「Microsoft Visual Basic for Applications」ウィンドウで、以下のVBAコードをコードエディターにコピーします。

VBAコード: ドロップダウンリストで異なる値を表示

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20201027
    selectedNa = Target.Value
    If Target.Column = 4 Then
        selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If
End Sub

注記:

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

これからは、ドロップダウンリストから特定の国名を選択すると、選択した国名に対応する略語がセルに表示されます。

チェックボックス付きのドロップダウンリストを作成する

多くのExcelユーザーは、チェックボックスを複数備えたドロップダウンリストを作成することで、チェックボックスにチェックを入れるだけでリストから複数の項目を選択できるようにすることを目指しています。

以下のデモに示されているように、ドロップダウンリストを含むセルをクリックすると、リストボックスが表示されます。リストボックス内には、各項目の前にチェックボックスがあります。チェックボックスにチェックを入れると、対応する項目がセルに表示されます。

Excelでチェックボックス付きのドロップダウンリストを作成したい場合は、『Excelで複数のチェックボックスを持つドロップダウンリストを作成する方法』をご覧ください。

ドロップダウンリストにオートコンプリートを追加

データ検証のドロップダウンリストに多くの項目がある場合、適切な項目を見つけるためにリストを上下にスクロールするか、リストボックスに直接完全な単語を入力する必要があります。もしドロップダウンリストが最初の文字を入力した際に自動補完できると、すべてがより簡単になります。

Excelのワークシートでドロップダウンリストを自動補完する方法については、「Excelのドロップダウンリストに入力時に自動補完するにはどうすればよいですか？」をご覧ください。

ドロップダウンリストの選択に基づいてデータをフィルタリング

このセクションでは、ドロップダウンリストから選択に基づいてデータを抽出するために、数式を使用してドロップダウンリストフィルターを作成する方法を説明します。

1. まず、データを抽出する基準となる特定の値を持つドロップダウンリストを作成する必要があります。

ヒント: 上記の手順に従って、Excel でドロップダウンリストを作成してください。

一意の項目リストを持つドロップダウンリストを作成する

範囲内に重複がある場合、アイテムの繰り返しを含むドロップダウンリストを作成したくない場合は、次のようにして一意のアイテムリストを作成できます。

1) 「Ctrl」+「C」キーを使用して、ドロップダウンリストを作成する基になるセルをコピーし、新しい範囲に貼り付けます。

2) 新しい範囲のセルを選択し、[データ] > [重複を削除] をクリックします。

3) 「重複の削除」ダイアログボックスで、「OK」ボタンをクリックします。

4) 次に、「Microsoft Excel」がポップアップ表示され、削除された重複の数を通知します。「OK」をクリックしてください。

これで一意のリストが得られましたので、この一意のリストに基づいてドロップダウンリストを作成できます。

2. 次に、以下のように3つの補助列を作成する必要があります。

2.1) 最初の補助列（ここでは列Dを最初の補助列として選択）には、最初のセル（列ヘッダーは除く）に以下の数式を入力し、「Enter」キーを押します。結果のセルを選択し、「フィルハンドル」をドラッグして、範囲の最後まで引き下げてください。

=ROWS($A$2:A2)

2.2) 2番目の補助列（E列）については、セルE2に以下の数式を入力し、「Enter」キーを押します。E2を選択後、「フィルハンドル」を範囲の最後までドラッグしてください。

注: ドロップダウンリストで値が選択されていない場合、ここでは数式の結果が空白として表示されます。

=IF(A2=$H$2,D2,"")

2.3) 3番目の補助列（F列）については、F2に以下の数式を入力し、「Enter」キーを押します。F2を選択後、「フィルハンドル」を範囲の最後までドラッグしてください。

注: ドロップダウンリストで値が選択されていない場合、数式の結果は空白として表示されます。

=IFERROR(SMALL($E$2:$E$17,D2),"")

3. 元のデータ範囲に基づいて範囲を作成し、以下の数式を使用して抽出されたデータを出力します。

3.1) 最初の出力セルを選択します（ここではJ2を選択します）、以下の数式を入力してから「Enter」キーを押します。

=IFERROR(INDEX($A$2:$C$17,$F2,COLUMNS($J$2:J2)),"")

3.2) 結果セルを選択し、「フィルハンドル」を右側の2つのセルにドラッグします。

3.3) 範囲 J2:L2 を選択したまま、塗りつぶしハンドルを一番下までドラッグして、範囲の最後まで伸ばします。

注記:

これでドロップダウンリストのフィルターが作成され、ドロップダウンリストの選択に基づいて元のデータ範囲からデータを簡単に抽出できるようになります。

ドロップダウンリストから複数の項目を選択

デフォルトでは、ドロップダウンリストはユーザーがセル内で一度に1つの項目しか選択できないように設定されています。ドロップダウンリストで別の項目を選択すると、以前選択した項目は上書きされます。しかし、下のデモに示すように、ドロップダウンリストから複数の項目を選択し、それらすべてをドロップダウンセル内に表示する必要がある場合は、どのようにすればよいでしょうか？

Excelのドロップダウンリストから複数の項目を選択する方法については、「Excelで複数選択または値を持つドロップダウンリストを作成する方法」をご覧ください。このチュートリアルでは、問題を解決するために役立つ2つの方法を詳しく説明します。

ドロップダウンリストのデフォルト値（事前に選択された値）を設定する

デフォルトでは、ドロップダウンリストのセルは空白として表示され、ドロップダウン矢印はセルをクリックしたときにのみ表示されます。ワークシート内のどのセルにドロップダウンリストが含まれているかを一目で確認するにはどうすればよいですか？

このセクションでは、Excelでドロップダウンリストのデフォルト（事前に選択された）値を設定する方法を説明します。以下の手順に従ってください。

以下の2つの方法を適用する前に、ドロップダウンリストを作成し、次の設定を行う必要があります。

1. ドロップダウンリスト用のセルを選択し、[データ] > [データの検証] > [データの検証] をクリックします。

ヒント: すでにドロップダウンリストを作成している場合は、ドロップダウンリストを含むセルを選択してから、「データ」>「データの検証」>「データの検証」をクリックしてください。

2. 「データの入力規則」ダイアログボックスで、次の通り設定してください。

2.1) 「許可」ボックスで、「リスト」を選択します。

2.2) 「ソース」ボックスで、ドロップダウンリストに表示する元のデータを選択します。

ヒント: すでに作成済みのドロップダウンリストについては、これらの2つのステップをスキップしてください。

2.3) 次に、「エラーアラート」タブに移動し、「無効なデータが入力された後にエラーアラートを表示する」チェックボックスの選択を解除します。

2.4) 「OK」ボタンをクリックします。

ドロップダウンリストの作成後、次のいずれかの方法を適用してデフォルト値を設定してください。

数式を使用してドロップダウンリストのデフォルト値を設定

以下の数式を適用して、上記の手順で作成したドロップダウンリストのデフォルト値を設定できます。

1. ドロップダウンリストのセルを選択し、以下の数式を入力して「Enter」キーを押してデフォルト値を表示します。ドロップダウンリストのセルが連続している場合は、結果セルの「フィルハンドル」をドラッグして、数式を他のセルに適用できます。

=IF(C2="", "--Choose item from the list--")

注記:

VBAコードを使用してワークシート内のすべてのドロップダウンリストに一度にデフォルト値を設定する

ワークシート内の異なる範囲に多数のドロップダウンリストが配置されている場合、それらすべてにデフォルト値を設定するには、繰り返し数式を適用する必要があります。これは時間のかかる作業です。このセクションでは、ワークシート内のすべてのドロップダウンリストに一度にデフォルト値を設定するための便利なVBAコードを提供します。

1. ドロップダウンリストのデフォルト値を設定したいワークシートを開き、"Alt" + "F11" キーを押して "Microsoft Visual Basic for Applications" ウィンドウを開きます。

2. 「Microsoft Visual Basic for Applications」ウィンドウで、「挿入」 > 「モジュール」をクリックし、以下のVBAコードをコードウィンドウに貼り付けます。

VBAコード: ワークシート内のすべてのドロップダウンリストに一度にデフォルト値を設定

Sub SetDropDownListToDefaultValue()
'Updated by Extendoffice 20201026
Dim xWs As Worksheet
Dim xRg, xFRg As Range
Dim xET: xET = Null
Dim xStr As String
xStr = "- Choose from the list -"
Set xWs = Application.ActiveSheet
Set xRg = xWs.UsedRange.Cells
    On Error Resume Next
    For Each xFRg In xRg
    xET = Null
    xET = xFRg.Validation.Type
    If Not IsNull(xET) Then
        If xFRg.Validation.Type = 3 Then
            xFRg.Value = "'" & xStr
        End If
    End If
    Next
End Sub

注: 上記のコードでは、「- リストから選択 -」はドロップダウンリストセルに表示されるデフォルト値です。必要に応じてデフォルト値を変更することもできます。

3. 「F5」キーを押すと、マクロダイアログボックスがポップアップ表示されます。「マクロ名」ボックスで「DropDownListToDefault」が選択されていることを確認し、その後「実行」ボタンをクリックしてコードを実行します。

次に、指定されたデフォルト値がドロップダウンリストのセルにすぐに設定されます。

ドロップダウンリストのフォントサイズを拡大

通常、ドロップダウンリストのフォントサイズは固定されています。フォントサイズが小さすぎて読みにくい場合は、以下のVBAメソッドを使用して拡大することができます。

1. ドロップダウンリストのフォントサイズを拡大したいワークシートを開き、シートタブを右クリックしてから、右クリックメニューから「コードの表示」を選択します。

2. 「Microsoft Visual Basic for Applications」ウィンドウで、以下のVBAコードをコードエディターにコピーします。

VBAコード: ワークシート内のドロップダウンリストのフォントサイズを拡大する

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice 20201027
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

注: ここでコード内の "xZoom = 130" は、現在のワークシート内のすべてのドロップダウンリストのフォントサイズを130に拡大することを意味します。必要に応じて変更できます。

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

今後、ドロップダウンセルをクリックすると、現在のワークシートのズームレベルが拡大されます。ドロップダウン矢印をクリックすると、すべてのドロップダウン項目のフォントサイズも拡大されていることがわかります。

ドロップダウンリストから項目を選択した後、ドロップダウンセルの外にある任意のセルをクリックすると、元のズームレベルに戻ることができます。