入力規則で範囲名の指定

質問

EXCELの入力規則でドロップダウンメニューをつかっているのですが、
INDIRECTでは解決できないので質問します。

A1にアルファベットや文字が入ったらB1は「リスト１」のメニューを出し、
A1に日付が入ったらB1は「リスト２」のメニューが出るようにするにはどうしたらいいでしょうか？
よくあるINDIRECTではうまくいかず、どうしたらいいか困っています。

よろしくおねがいします。

回答No.1

kagakusuki · ベストアンサー

今仮に、Sheet2のA2～A11の範囲が「リスト１」で、Sheet2のB2～B7の範囲が「リスト2」であるものとします。
　その場合、B1セルの入力規則は、「入力値の種類」欄を[リスト]とした上で、「元の値」欄に次の数式を入力されると良いと思います。

=INDIRECT("Sheet2!"&IF(AND(ISNUMBER($A1),ISNUMBER(DAY($A1))),"B2:B7","A2:A11"))

或いは

=INDIRECT("Sheet2!R2C"&1+ISNUMBER($A1)*ISNUMBER(DAY($A1))&":R"&MATCH("゛",INDIRECT("Sheet2!C"&1+ISNUMBER($A1)*ISNUMBER(DAY($A1)),FALSE),-1)&"C"&1+ISNUMBER($A1)*ISNUMBER(DAY($A1)),FALSE)

お礼

できました！
ありがとうございます！！！
ISNUMBERは使った事がなかったので勉強になりました。
本当に助かりました。

回答No.2

imogasi

もう既に回答があるのですか、私が間違っていないか、不安を持ちつつ。
ーー
入力規則で、「ユーザ設定」で関数らしきものが使える。関数といっていいのかもしれない。
しかし関数は、「セルの値」を問題にする。日付も「セルの値」は、日付シリアル値という正整数なんだ
（日付として取りえる制限範囲があるというものの）。
例　Ａ１：Ｃ３
2011/11/3 TRUE TRUE
23 TRUE FALSE
ads FALSE FALSE
Ｂ１の式は　=ISNUMBER(A1)
Ｃ１の式は　=isdt(A1)
isdtはユーザー関数（下記ＶＢＡ使用）
これでＩＳＮＵＭＢＥＲ関数は判別には使えないのでは、と思う。
ほかに日付かどうかを判定するエクセル関数は無いようだ。
Function isdt(a)
If IsDate(a) Then
isdt = True
Else
isdt = False
End If
End Function
ーー
だから上記のような関数を使わないとならないのかと思う。
ーー
もうひとつ、問題点は、入力規則を設定した列（Ｂ列とする）の表示形式を、Ａ列が数字のときはＢ列のその行を
数の表示形式、Ｂ列が日付の場合は、そのＢ列のその行を日付の表示形式にするのが（ＶＢＡ以外では）難しい。
（ＶＢＡでも変更する時のことを考えると複雑）
それら表示形式が設定されて居ないと、シートを見て、データの性格（値）（日付など）を人間が認識するのが難しい。
ーー
質問のメイン課題は、試行していますが、うまく行かないので、うまく行けばその内容を挙げます。