EXCEL コンボボックスを使ってツリー状に選択

　　ＡＢＣ
１　あ　　　　　　　左のようなセルを使ってツリー状にした表から
２　　ＡＡＡ　　　　別シートにコンボボックスを横に３つ作成して
３　　ＢＢＢ　　　　”あ”を選択したら隣のボックスに”ＡＡＡ”
４　　　１１１　　　と”ＢＢＢ”の選択肢が現れ、”ＢＢＢ”を選
５　　　２２２　　　択したらその隣のボックスに”１１１”と”２２２”
６　い　　　　　　　の選択肢が現れる　といったことが出来ないでしょ
７　　ａａａ　　　　うか？
８　　　３３３　　　
９　　ｂｂｂ　　　　説明がやっかいだと思いますので、「こんな本で見た」
　　　　　　　　　　という覚えがある方がいらっしゃいましたら是非教えて
　　　　　　　　　　下さい。お願いします。

No.1 回答者： noname#1523 回答日時： 2002/04/09 01:27

以下の様な方法で如何でしょうか

【Ａ】選択肢の設定
　　Sheet名を『TBL』と仮定して以下の様に指定します
＿＿＿　Ａ列　Ｂ列　Ｃ列　Ｄ列　　Ｅ列　　Ｆ列　　Ｇ列　　Ｈ列　　Ｉ列　
１行目　＿＿　＿＿　＿＿　あ　　　い　　　ＡＡＡ　ＢＢＢ　ａａａ　ｂｂｂ
２行目　あ　　式１　式１　ＡＡＡ　ａａａ　０００　１１１　３３３　５５５
３行目　い　　式１　式１　ＢＢＢ　ｂｂｂ　９９９　２２２　４４４　６６６
４行目　う　　式１　式１
５行目　え　　式１　式１
・・・
・・・
１）Ａ２～Ａｎセルに最初に表示する値を入力します

２）Ｂ２セルに以下の式を入力してＢ２～Ｃｎの全セルに式をコピー
　　　=IF(OFFSET($D$1,ROW()-1,MATCH(OFFSET(A$1,A$1,0,1,1),$D$1:$I$1,0)-1,1,1)="","",OFFSET($D$1,ROW()-1,MATCH(OFFSET(A$1,A$1,0,1,1),$D$1:$I$1,0)-1,1,1))

　　　　●OFFSET関数：OFFSET(基準セル,行変位,列変位,抽出行数,抽出列数)
　　　　　　　基準セル：入力情報の先頭のセル($D$1)に固定
　　　　　　　行変位：現在行-1
　　　　　　　列変位：OFFSET関数でA1からA1の値分下の行のセルを抽出し
　　　　　　　　　　　その値でD列以降の1行目の値を検索し
　　　　　　　　　　　何番目の列かを決定
　　　　　　　抽出行数：単独セルを取り出すので１
　　　　　　　抽出列数：同上

　　　　●範囲の指定：$D$1:$I$1
　　　　　　　選択肢を入力した列の範囲の１行目を指定します

　　　　●参照結果のセルが空白の時の処理
　　　　　　　IF(OFFSET(~)="","",OFFSET(~))として空白時には
　　　　　　　空白をセットします(この処理をしないと0が返ります)

３）Ｄ列以降に以下の要領で入力
　　　１行目：第一・第二のコンボボックスに表示する選択肢の値
　　　２行目以降：選択肢の値区分名(あああＡＡＡやＢＢＢ)に表示される値を入力

【コンボボックスの設定】
１）第一のコンボボックス　入力範囲：$A$2:$A$n　リンクするセル：$A$1
２）第ニのコンボボックス　入力範囲：$B$2:$B$n　リンクするセル：$B$1
３）第三のコンボボックス　入力範囲：$C$2:$C$n　リンクするセル：$C$1

No.2 回答者： daiju3000 回答日時： 2002/04/09 08:19

　いつだったか、このサイトで似た質問を見たことがあります。

かなり感動した記憶があります。

参考ＵＲＬを見て下さい。

参考URL：http://www.okweb.ne.jp/kotaeru.php3?q=161673

No.3 回答者： nishi6 回答日時： 2002/04/09 20:15

質問通りの縦型の表を元に入力規則で対応してみました。

実際行ってみて、1つの深さに３列要していますので数十の深さまでは対応できそうですね。(Excel97で確認)

Sheet1のどこか３つのセルに、DATA1、DATA2、DATA3の名前を付けます。
ここに入力規則のダイアログを表示します。

質問と同じ形式の表をSheet2のA1から3列を使って作成します。

Sheet2に次の算式をコピーします。
（※は表のデータがある最後の行までコピーします。）

　E1:=MAX(MATCH("",A:A,-1),MATCH("",B:B,-1),MATCH("",C:C,-1))

※F1:=COUNTA($A$1:A1)
※G1:=COUNTA($B$1:B1)
※I1:=IF(A1<>"",$E$1-ROW()+1,0)
※J1:=INDEX(A:A,MATCH(LARGE(INDIRECT("$I$1:$I$"&$E$1),ROW()),I:I,0),0)
　K1:=MATCH(DATA1,A:A,0)
※L1:=IF(B1<>"",IF(INDEX(F:F,$K$1,1)=F1,$E$1-ROW()+1,0),0)
※M1:=INDEX(B:B,MATCH(LARGE(INDIRECT("$L$1:$L$"&$E$1),ROW()),L:L,0),0)
　N1:=MATCH(DATA2,INDIRECT("B"&(K1+1)&":B"&E1),0)+K1
※O1:=IF(C1<>"",IF(INDEX(G:G,$N$1,1)=G1,$E$1-ROW()+1,0),0)
※P1:=INDEX(C:C,MATCH(LARGE(INDIRECT("$O$1:$O$"&$E$1),ROW()),O:O,0),0)

　E3:=COUNTA(J:J)-COUNTIF(INDIRECT("J1:J"&E1),"=0")
　E4:=COUNTA(M:M)-COUNTIF(INDIRECT("M1:M"&E1),"=0")
　E5:=COUNTA(P:P)-COUNTIF(INDIRECT("P1:P"&E1),"=0")

挿入→名前→定義で名前の定義ダイアログボックスを出して、名前を３つ定義します。
１つ目、名前：List1、参照範囲：=OFFSET(Sheet2!$J$1,0,0,Sheet2!$E$3,1)
２つ目、名前：List2、参照範囲：=OFFSET(Sheet2!$M$1,0,0,Sheet2!$E$4,1)
３つ目、名前：List3、参照範囲：=OFFSET(Sheet2!$P$1,0,0,Sheet2!$E$5,1)

Sheet1で入力規則を設定します。
DATA1を選択して、データ→入力規則で、入力値の種類にリスト、元の値に =List1
DATA2を選択して、データ→入力規則で、入力値の種類にリスト、元の値に =List2
DATA3を選択して、データ→入力規則で、入力値の種類にリスト、元の値に =List3

Sheet2は項目数がわからないので縦方向で考えています。質問通りの形式で入力します。
A列が異なり、B列が同じでC列が異なるようなパターンも考慮しているつもりです。
ただ、３つの入力をした後、修正する場合、他に関係なく修正できます。この点を考慮してみましたが、長くなるので省略しています。

また、３つの入力箇所を３列（３列の入力規則）に増やしてみましたが、こういう意味の質問でした？こちらのほうが入力の省力化ができますね。
入力規則ではなく、VBAのコンボボックスで動かすには、
　ListFillRangeをList1、LinkedCellをDATA1 とかにします。

何を行っているかじっくり見ると、飛び離れたデータを１つにまとめているだけの算式でした。
汚い算式ですが、ご参考に。