Excel：日付で選択するシートを選ぶ方法

今仕事で作りながら質問しています。

日報みたいなものを作っており、
１、２、３…３１という感じで、３１個のシートに名前をつけ、
別シートから日付によってそのシートの内容を引っ張るような表を作りたいのですが、
シートの選択をどのようにすればいいのか迷っています。

='1'!A1
の'1'の部分が日付により'2'になったり'3'になったり
することはできないのでしょうか？

できれば、関数で処理したいのですが、
VBAでも構いません。

すみませんが、よろしくお願い致します。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2005/06/05 12:53

関数でそのシートをアクチブにすることはできません。

そもそもエクセルの関数は、値を計算や加工したり、引っ張ってくるだけで、シートをセレクトしたり、削除したり行、列の削除、セルの色、書体、罫線などの「左右」することはできません。メニューをクリックしてできることのほとんどのことは関数ではできないです。
ただ選んだシートの特定のセルを取ってくることなら
できます。
日付と「ＳｈｅｅｔＸＸ」のＸＸの部分が対応しているとして
たとえばＳｈｅｅｔ３のＢ１に
=INDIRECT("Sheet"&A1&"!A1")
といれＡ１セルに「2」と入れるとＳｈｅｅｔ２のＡ１セルの値を持ってこれます。
Ｓｈｅｅｔ１の複数セル範囲を持ってきたいとＳｈｅｅｔ３はそのセル範囲は関数式だらけになって、他の式が入れられません。だから使い物になるのは限られた場合でしょう。
ＶＢＡなら指定したシートを選択するのは簡単です。
Ｓｈｅｅｔ３のＣｈａｎｇｅイベントプロシジュア
に
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Worksheets("Sheet" & Target).Select
End If
End Sub
これでＳｈｅｅｔ３のＡ１に４を入れると
Ｓｈｅｅｔ４が選択できます。

この回答へのお礼

ありがとうございます。
INDIRECTなんですね。
VBAまで教えて頂きまして、感謝です。

早く仕事を終わらせることができそうです(*^_^*)

お礼日時：2005/06/05 13:29

No.1 回答者： AloneAgain 回答日時： 2005/06/05 12:32

こんにちは。

たとえば A2セルに 2005/6/3 と日付が入っていれば、
3 という名前のシートの A1セルを参照する、ということでしょうか？

YESなら↓でどうでしょうか？
---------------------------
=INDIRECT(DAY(A2)&"!A1")
---------------------------

この回答へのお礼

日付関数を入れればいけますね！
ありがとうございました。

お礼日時：2005/06/05 13:29