Excelの入力規則について

質問

Excelの入力規則（条件設定：入力値の種類＝リスト）を使って以下のようなことをしています。

セルD2に都道府県名（近畿地方のみ）
セルE2に市町村名

ここでD2で選択した都道府県名にあわせてE2に表示させるプルダウンメニューを切り替えることは出来るのでしょうか？

例えば、D2で「大阪府」を選んだ場合E2のプルダウンメニューに「大阪市」「池田市」「吹田市」…、D2で「兵庫県」を選ぶとE2に「神戸市」「西宮市」「芦屋市」…、といった具合です。

ちなみにマクロ、VBA等の知識はありませんが、即席可能であれば、そのあたりも含めて具体的な設定手順をご教示いただけませんか？
よろしくお願い致します。

回答No.4

imogasi

＃３です。過去質問の説明が判り難ければ、下記
マクロの記録的なＶＢＡを実行してください。
ツール－マクロ－ＶＢＥ－挿入－標準モジュールの画面に
下記をコピーし貼りつけします。
府県市区町村テーブルは、入力セルと同じシートに作ること。別シートに作ると旨く行かないようです。
（例）県・市名省略手抜き。実際は入れてください。
Ｅ１：Ｊ４
大阪 池田 豊中 茨木 攝津
兵庫 神戸 西宮 尼崎 姫路 三木
京都 京都 亀岡 綾部 城陽
奈良 天理 奈良 橿原
（ＶＢＡ）
Sub Macro1()
Range("A1:A9").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$E$1:$E$5"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Range("b1:b9").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=offset($e$1,match(a1,$e$1:$e$5,0)-1,1,1,5)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End Sub
（修正点。本番に合わせて上記ＶＢＡの下記部分を修正すること）
Range("A1:A9").Select－＞府県を入力する列とセル範囲
で置き変える。
Formula1:="=$E$1:$E$5"－＞府県テーブルのある範囲（列）
Range("b1:b9").Select－＞市町村をセットする入力範囲（列）。
Formula1:="=offset($e$1,match(a1,$e$1:$e$5,0)-1,1,1,5)"　－＞$e$1は府県テーブルの１番上行セル。
a1は府県名入力列の１番上行セル。絶対番地にしない。
$e$1:$e$5は府県テーブルの列のセル範囲。
最後の5は市区町村数の最大数（Ｆ列から始まり１番右Ｊ列までの列数）
そしてＶＢＡを実行する。Ｆ５キーで実行される。