教えてください。

締切済

質問者：seigapapa
質問日時：2003/08/31 23:03
回答数：4件

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

最新から表示
回答順に表示

No.4

回答者： imogasi
回答日時：2003/09/02 00:02

エクセルＶＢＡでやって見ました。

（１）Ｓｈｅｅｔ４にＬｉｓｔＢｏｘを２つ貼りつけます。
ＬｉｓｔＢｏｘ１とＬｉｓｔＢｏｘ２になります。
（２）標準モジュールに
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
をコピペします。
（４）デザインモードを脱し、市名をセットしたいセルを
マウスでポイントし、ＬｉｓｔＢｏｘ１の青森をクリックするとＬｉｓｔｂｏｘ２には青森市と弘前市、五所川原市が出ます。そこで青森市をクリックすると、青森市がセットできます。
（５）都道府県全県の数千の市区町村を対象にするなら
ケース文ではしつこいので別の方法を考えますが、取りあえずこういう方法もあると言うことで記します。

- 0
- 件

通報する

この回答へのお礼

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

通報する

お礼日時：2003/09/14 19:59

No.3

回答者： ki-aaa
回答日時：2003/09/01 00:12

エクセルでも可能です。

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

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

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

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

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

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