教えてください。

質問

たとえば、データを入力するときにリストから選択して都道府県を入力し、次に、選択した都道府県に関する市町村をリストから入力する時、全国の市町村をリスト表示するのでなく、前に選択した都道府県にに関する市町村のみをリストで表示したいです。エクセルで可能ですか。アクセスでは？

回答No.4

imogasi

エクセルＶＢＡでやって見ました。
（１）Ｓｈｅｅｔ４にＬｉｓｔＢｏｘを２つ貼りつけます。
ＬｉｓｔＢｏｘ１とＬｉｓｔＢｏｘ２になります。
（２）標準モジュールに
Sub test02()
Worksheets("sheet4").ListBox1.ListFillRange = "a1:a4"
End Sub
をコピペします。偶々Ｓｈｅｅｔ４を使っています。
Ａ１：Ａ４は青森、岩手、宮城、秋田とデータを入れます。
（２）Ｃ１：Ｃ９に
青森市
弘前市
五所川原市
盛岡市
花巻市
釜石市
仙台市
塩釜市
気仙沼市
秋田市
能代市
大舘市
といれます。
（３）ＬｉｓｔＢｏｘ１のクリックイベントに
Private Sub ListBox1_Click()
s = ListBox1.List(ListBox1.ListIndex)
' MsgBox s
Select Case s
Case "青森"
Worksheets("sheet4").ListBox2.ListFillRange = "c1:c3"
Case "岩手"
Worksheets("sheet4").ListBox2.ListFillRange = "c4:c6"
Case "宮城"
Worksheets("sheet4").ListBox2.ListFillRange = "c7:ｃ9"
Case "秋田"
Worksheets("sheet4").ListBox2.ListFillRange = "c10:c12"
End Select
End Sub
をコピペします。
（３）ＬｉｓｔＢｏｘ２のクリックイベントに
Private Sub ListBox2_Click()
ActiveCell = ListBox2.List(ListBox2.ListIndex)
End Sub
をコピペします。
（４）デザインモードを脱し、市名をセットしたいセルを
マウスでポイントし、ＬｉｓｔＢｏｘ１の青森をクリックするとＬｉｓｔｂｏｘ２には青森市と弘前市、五所川原市が出ます。そこで青森市をクリックすると、青森市がセットできます。
（５）都道府県全県の数千の市区町村を対象にするなら
ケース文ではしつこいので別の方法を考えますが、取りあえずこういう方法もあると言うことで記します。

お礼

ごめんなさい。１週間かけてやってみましたがうまくいきませんでした。

回答No.3

ki-aaa

エクセルでも可能です。

A1に、都道府県名、B1に市町村名を入れるものとして、説明します。

まず、A1に入れるリストを作ります。
リストの中身は、北海道,青森,秋田,岩手,宮城・・・とします。

つぎに、B1に入れる、リストを作ります。
F1:F10に、北海道の市町村のリストを作ります。
そして、F1:F10に名前を付け、"北海道"と付けます。
G1:G10に、青森の市町村のリストを作ります。
そして、F1:F10に名前を付け、"青森"と付けます。
・・・
・・・

ここでつける、範囲の名前は、A1に入れるリストと同じ(北海道,青森,秋田,岩手,宮城・・・)でないと、うまくいきません。

B1のリストの設定をします。
入力値の種類・・・リスト
元の値・・・=INDIRECT(A1)

これで、望みどおりのことができると思います。

お礼

ごめんなさい。１週間かけてやってみましたがうまくいきませんでした。市町村名が”０”となってしまいます。

回答No.2

Hageoyadi

ExcelではVLOOKUP関数と入力規則を組み合わせることで可能です。
が、この場合、全国の市町村リストのほかにも都道府県ごとに参照する表を設ける必要があります。もちろんすべてをひとつのシートにまとめておいて、非表示にすることも可能ですが。

お礼

ごめんなさい。１週間かけてやってみましたがうまくいきませんでした。市町村名が”０”となってしまいます。

回答No.1

yosa

アクセスでは、簡単です。
都道府県を選択した時点（change）で、選択した都道府県をキーに
市町村テーブルにクエリーを発行して表示するだけです。

エクセルでは・・・・、他の回答をお待ちくださいｗ
わかりません。

お礼

ご回答ありがとうございました。