Excel関数について

質問

「ある固定のセル」に入力されているものを「別のシートに日付ごと」に自動反映されるようにしたいのですが、どうすればよろしいでしょうか。ご教授の程お願い致します。

毎日「A1」に入力する
1日→「B2」に自動反映
2日→「B3」に自動反映
3日→「B4」に自動反映
・
・
・
といった感じでございます。
色々調べてみたんですがどうにもこうにも分かりませんでした。

宜しくお願い致します。

回答No.7

FEX2053 · ベストアンサー

#1,#3さんが言われるとおり、Excelの関数というのは、
「今現在入ってる数値で常時内容を洗い変えてしまう」
性格を持っています。

ですので、関数を使う以上、「昨日入力した数値は、どう
やっても今日入力すると消えてしまう」んです。これは
Excelの「仕様」で決まってることですから、どうすることも
出来ません。関数を使う以上、回避するには「入力する
場所を毎日変える」しかないのです。

どうしても

１．入力する場所は絶対に変えたくない
２．反映する場所は絶対に毎日変えたい

ならば、VBAという「プログラム」を書かないといけません。
VBAを使うと、こういうことはできるんですが、かなり大変な
勉強が必要です。

頑張ってみるなら、この辺を。ただ、「毎日の日付で反映する
場所を変える」ためには、Offsetという発想を理解する必要が
あり、結構上級なプログラムになります。
http://exvba.officehp.com/

お礼

VBA頑張ってみます。
ご丁寧なご回答ありがとうございました！

回答No.8

keithin

ご利用のエクセルのバージョンが不明ですが，エクセルのオプションの数式（あるいは計算方法）で「反復計算」のチェックを入れておきます（必ず行う）。

Ｂ２に
=IF(ROW(B1)=DAY(TODAY()),$A$1,B2)
と記入し，下向けにコピー貼り付けておきます。

＃勝手に手順を省略したり間違えると，出来ません。

回答No.6

KURUMITO

毎日A1セルのデータが入力されたものを日付に応じてB列に表示させるというのでしたら関数で対応することはできません。次のようなマクロで行うことになるでしょう。
該当するシートのシート見出しで右クリックし「コードの表示」で表示される画面に次のコードを入力します。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i As Integer
On Error Resume Next
If Target = Range("A1") Then
i = Day(Date) + 1
Cells(i, 2) = Target.Value
End If
End Sub

回答No.5

aokii

Sheet1のA1セルに毎日入力するものとして、

Sheet2のA2セルから下に1,2,3...と入力し、

Sheet2のB2セルに、以下の式を入れて、下にドラッグコピーしてみてください。
=IF(DAY(TODAY())=$A2,Sheet1!$A$1,"")

回答No.4

mu2011

一例です。
仮にSheet1のA1を固定セルとすると、別シートのB2に=IF(DAY(TODAY())=ROW(A1),Sheet1!$A$1,"")を入力、下方向にオートフィル

回答No.3

chonami

>昨日入力したB2に表示されている値をそのまま残して……と、いう事でしたらVBAでやることになります。

なるほど。
そう言われるとそうですね。売上入力みたいな感じがしてきました。

回答No.2

chonami

B2に

=IF(DAY(TODAY())=ROW()-1,$A$1,"")

下に必要分コピー

で如何でしょうか？

回答No.1

mt2008

今日（4/2）に入力した値がB3に表示され、それ以外のB2:B32のセルが空白になる……と、言うのでしたら関数でもできます。

しかし、昨日入力したB2に表示されている値をそのまま残して……と、いう事でしたらVBAでやることになります。

どちらでしょう。