Ｅｘｃｅｌ 2003 自動日付出力

質問

質問1）　セルA1 に　入力されたら　A4に入力した時点の日付（例：　４月9日）を自動で出力したいのですがどうしたらよいでしょうか？

　A3には　=A4,"",""A4 (こんな感じです。ハッキリ覚えていません　IFがついてた？)　で、A4に日付を入れると　A3に今年の年が表示されます（例：平成23年）。

質問2）　質問1をすることによりA3はA4に自動出力された時に引き継がれるでしょうか？
　　　　　また、=A4,"",""A4　この意味を教えてもらえたら助かります。

　　　　　これを作ったか人が辞めたため、聞こうにも聞けません、宜しくお願いします。

回答No.2

tom04

こんばんは！
＞質問1）　セルA1 に　入力されたら　A4に入力した時点の日付・・・

A1セルは通常は空白で、データを入力した時点での日付であれば関数で可能です。
もし、A1セルのデータが変わるたびにA4セルをその日の日付に変更したいのであればVBAになってしまいます。

仮に前者（A1セルは常に空白で何かを入力したときの日付）の場合は
A4セルに
=IF(A1<>"",TEXT(TODAY(),"m月d日"))
としてみてください。

そして　質問2）に関してはA3セルの数式は
=IF(A4="","",A4)
としていてセルの表示形式を変えているものと思われます。
そうであれば、数式の意味は
「もしA4セルが空白の場合は空白に！そうでなければA4セルの値を！」ということだと思います。

セルの表示形式に手を加えないようにする場合、A3セルの数式は
=IF(A4="","",TEXT(A4,"ggge年"))
としておけば大丈夫だと思います。

尚、質問1）に戻りますが、もしA1セルのデータが変わるたびにその日の日付をA4セルに表示したい場合はVBAになるといいましたので、とりあえずコードを載せておきます。

画面左下にある操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面が出ますので、
↓のコードをコピー＆ペーストして、A1セルのデータを変更してみてください。
（今日の日付ですので見た目には変化ないように思われます）

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Target = Range("A1") Then
With Range("A4")
.Value = Now()
.NumberFormatLocal = "m月d日"
End With
End If
End Sub 'この行まで

以上、長々と失礼しました。m(__)m

お礼

ありがとうございます。

なるほど、質問1）は<>を使えば空白でない時になるわけですね！

質問2）も理解できたような気がします。1年以上関数、VBAから離れてたもので、
ど忘れしていました（汗）・・・どちらにしても私には出来なかったと思いますが。。

　後日職場に行きますので確認してみます。

補足

A3には表示形式が　[$-411]e"年"　となっていました。
（例では　平成23年　と　書きましたが、23年　のみの表示でした）　どういう意味なんでしょうか？

また、教えていただいたやり方（関数）でできそうなのですが、A1に入力が無い時にA4にFALSE が表示されてしまいます。これを出ないようにしたいのですができないでしょうか？

間違えていたのですが　A3はC3　A4はD4でした。すみません。（これを行方向にコピーして使用します）