Excel でドロップダウンリストを作成する際に、異なる値を表示させるにはどうすればよいですか?
Excel ワークシートでは、「データの入力規則」機能を使えば簡単にドロップダウンリストを作成できますが、ドロップダウンリストをクリックした際に別の値を表示させたことはありますか? たとえば、A 列と B 列に次のような2 列のデータがあるとします。ここで、「Name」列の値を使ってドロップダウンリストを作成したいのですが、そのリストから名前を選択すると、対応する「Number」列の値がセルに自動的に表示されるようにしたいのです(下のスクリーンショット参照)。 この記事では、このタスクを実現するための詳細な手順をご紹介します。

ドロップダウンリストを作成するが、セルには異なる値を表示する
ドロップダウンリストを作成するが、セルには異なる値を表示する
このタスクを完了するには、以下の手順に従ってください。
1.ドロップダウンリストで使用したいセルの値に名前を定義します。この例では、「Name」ボックスに「name dropdown」と入力し、「Enter」キーを押してください(スクリーンショット参照)。

2.次に、ドロップダウンリストを挿入したいセルを選択し、「データ」>「データの入力規則」> 「データの入力規則」をクリックします(スクリーンショット参照)。

3.「データの入力規則」ダイアログボックスで、「設定」タブの「許可」ドロップダウンから「リスト」を選択し、次に
ボタンをクリックして、「ソース」テキストボックスにドロップダウン値として使用したい「Name」リストを指定します(スクリーンショット参照)。

4.ドロップダウンリストを挿入したら、現在のワークシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択してください。「Microsoft Visual Basic for Applications」ウィンドウが開いたら、次のコードを空の「モジュール」にコピー&ペーストします。
VBA コード:ドロップダウンリストから異なる値を表示する
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
selectedNa = Target.Value
If Target.Column = 5 Then
selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub

注:上記コード内の「If Target.Column = [[PH_17]] Then」のスクリプトは、ドロップダウンリストが配置されている列番号を示しています。また、「selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range(「dropdown」), [[PH_16]], False)」の部分にある数値5 は、ステップ1 で作成したセル範囲の名前「dropdown」内における列位置を表します。必要に応じて変更してください。
5.次に、このコードを保存して閉じてください。これで、ドロップダウンリストから項目を選択すると、同じセルにその項目に対応する別の値が表示されます(スクリーンショット参照)。

Kutools の高度なドロップダウンリスト
「Kutools for Excel」は、「高度なドロップダウンリスト」機能でドロップダウンリストを新たなレベルへと引き上げ、標準のExcel 機能を超える強力なカスタマイズオプションを提供します。このツールを使えば、次のようなリストを作成できます:
Kutools for Excelは、複雑な作業をシンプルにし、創造性と効率性を飛躍的に高める300 以上の高度な機能を提供します。さらに今なら、AI を統合することで、データ処理がよりインテリジェントで自動化されたものに進化しています。
デモ:Excel でドロップダウンリストを作成するが、異なる値を表示する
最高の Office 業務効率化ツール
| 🤖 | KUTOOLS AI アシスタント:次に基づいてデータ分析を革新します:インテリジェント実行 | コード生成| カスタム数式作成 | データ分析とチャート生成| 拡張機能呼び出し… |
| 人気の機能:検索・ハイライト、または重複をマーキング | 空白行を削除する | データを失うことなく列の結合またはセルを | 数式を使用しない四捨五入... | |
| スーパー LOOKUP:複数条件 VLookup | 複数値 VLookup | 複数シート間 VLookup | ファジーマッチ.... | |
| 高度なドロップダウンリスト:ドロップダウンリストをすばやく作成 | 連動型ドロップダウンリスト | 複数選択可能なドロップダウンリスト.... | |
| 列マネージャー:指定した数の列を追加|列の移動|非表示列の表示状態を切り替え|範囲および列の比較... | |
| 注目の機能:グリッドフォーカス | デザインビュー |強化された数式バー | ワークブックとシートマネージャー | リソースライブラリ(オートテキスト)| 日付ピッカー | ワークシートの統合 | 暗号化/セルの復号化 | リストからメール送信 | スーパーフィルター | 特殊フィルタ(太字のフォントを持つセルをフィルタリング/斜体/取り消し線。。。) 。。。 | |
| トップ15 ツールセット:12 テキストツール(テキストの追加、特定の文字を削除、...)| 50+チャートタイプ(ガントチャート、...)| 40+実用的関数(誕生日に基づいて年齢を計算します、...)| 19 挿入ツール(QR コードを挿入、パスから画像を挿入、...)| 12 変換ツール(単語に変換する、為替レートの変換、...)| 7 結合と分割ツール(高度な行のマージ、セルの分割、...)|さらに多数 |
Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。
Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします
- Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50%も向上させ、毎日数百回ものマウスクリックを削減します!
すべてのKutools アドインが、たった1 つのインストーラーで完結。
Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。
- オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン+Office Tab Pro
- インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能(MSI 対応)
- 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
- 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
- 最高のお得感— 個別アドイン購入よりお得