エクセル 式の書き方

質問

前回同じ質問をしたのですが、うまくいかない為再度質問させていただきます。
1月から12月のシート（シート名：半角数字＆"月"）があり、そこに日毎の各データを記入している状態です。
別の新しいシート内に本日のデータを表示したいと思っています。
vbならコマンドボタンを付けて以下のような書き方でやっていたのですが、今回ボタン動作なしで表示したいので、エクセルの関数での書き方が分かりません。
Worksheets(Month & "月").Cells(5, Date + 3).Value = Worksheets("シート").Range("A1").Value

サンプルデータとして月のシートは以下
　　　A　　　B　　　C　　　D　　　E
1 | 日　　　　1　　　2　　　3　　　4
2 |Data　　　4　　　5　　　3　　　8

本日2日の場合データの「５」を新シートに表示するかたちです。
サンプルデータを元に式の書き方を教えてください。宜しくお願いします。

回答No.2

mitarashi · ベストアンサー

#1です。参照テーブル無しで、下記で良さそうです。
=INDIRECT(MONTH(NOW()) & "月!R2C" & TEXT(VALUE(DAY(NOW()))+1,"0"),FALSE)

お礼

有難うございます！完璧に出来ました。
式がまだ理解してないので、勉強したいと思います。
有難うございました。

回答No.1

mitarashi

マクロに比べて分かり易いとも思えませんが、思いつくのはこんなところです。
まず、下記の様な参照先テーブルを作成します。
ここで1月!R2C2 はシート「1月」の、B2を表します。'1月'!R2C2と、シングルクォーテーションがシート名についていると何故かエラーになってしまいました。
　　　1日　　　　2日　　　　3日…
1月　1月!R2C2 1月!R2C3 1月!R2C4…
2月　2月!R2C2 2月!R2C3 2月!R2C4…
3月　3月!R2C2 3月!R2C3 3月!R2C4…
4月　4月!R2C2 4月!R2C3 4月!R2C4…
…
見出しを除く、テーブルの中身に例えばrefTableという名前をつけます
ここで、RC形式を使っているのは、右方向へのドラッグで列番号を増やして容易に入力できる様にするためです。

このとき、今日の月日に該当するデータは、次の式で与えられます。
=INDIRECT(INDEX(refTable,VALUE(MONTH(NOW())),VALUE(DAY(NOW()))),FALSE)
このセルを基準に、他のセルを参照したいときは、
=OFFSET(INDIRECT(INDEX(refTable,VALUE(MONTH(NOW())),VALUE(DAY(NOW()))),FALSE),0,1)
という感じで指定できます。

いかがでしょうか。当方Excel2000です。