excel2000の表でタイトル行を変化させたい

質問

下記内容で、Ｅ６～Ｋ６セルにどういった関数を組めばいいかアドバイスお願いします。

(1)リストＡ（B８：B14セル)、リストＢ（Ｃ８：Ｃ１４セル）
でそれぞれ名前を定義しています。

(2)Ｅ４セルで入力規則－リストの設定をしており、
「リストＡ」「リストＢ」と変化させられるようにしています。

(3)(2)で変化があると、下記のようにＥ６：Ｋ６のセル（タイトル行）を変化させたいです。
(2)で「リストＡ」の場合リストＡを表示、「リストＢ」の場合、リストＢを表示。

回答No.1

keithin · ベストアンサー

Ｅ６に
=IF($E$4="","",INDEX(INDIRECT($E$4),COLUMN(A6)))
と記入し，Ｋ６までコピー貼り付ける。

お礼

迅速で正確な解答をありがとうございました。

回答No.3

a987654

INDEXでの方法が出されていますのでOFFSETを使った
方法を紹介します。

E4がA7以外であればＢ列でよければ
　E6に=OFFSET($A7,COLUMNS($E8:E8),($E4<>$A7))
Ｂ7以外であればＡ列ならば
　$E4<>$A7を$E4=$B7に変更

E4がA7orＢ７と同じと限定するならば
　E6に=OFFSET($A7,COLUMNS($E8:E8),($E4=$A7)+($E4=$B7)*2-1)
但しＥ4がＡ７又はＢ７と合わない場合は#REFになります。

どの方法でも右方向にオートフィル

お礼

お礼が遅くなり、申し訳ございません。
参考になりました。ありがとうございました

回答No.2

imogasi

お呼びじゃないだろうが,
ＶＢＡでやると
Sheet2などのシートモジュールに
（セル範囲の名前挿入のデータが縦方向にある場合なので）
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$4" Then
Range(Range("E4")).Copy
Range("E6").PasteSpecial Paste:=xlPasteAll, Transpose:=True
End If
End Sub
セルＥ４の値が変わると見出しセル部分が変わる

お礼

お礼が遅くなり、申し訳ございません。
参考になりました。ありがとうございました。