Excelで日付を来年の2013年にしたい

質問

Excel2010を使って来年の小遣い帳を作っています。

日付欄に「1/1」と入力したら「1日」と表示するようにユーザー設定をしています。
しかし、この場合のセルの値は「2012/1/1」になります。
来年用なので「1/1」と入力するだけで「2013/1/1」の値になるようにできないでしょうか？

最初のセルだけ「2013/1/1」と入力して「1日」と表示させるのですが、それ以降も「2013」を覚えさすことはできないでしょうか？
隣のセルに「=WEEKDAY（）」関数で曜日を入力しているので「2013年」の値が必要なのです。

日付が続き番号ならオートフィルでコピーするのですが任意の日付入力です。
本当は「1」と入力したら「1日」、「5」と入力したら「5日」と表示させたいのですが・・・。（2013年の）
どうしても毎回「2013/*/*」と入力しないとダメでしょうか？

宜しくお願いします。

回答No.5

keithin · ベストアンサー

どんな具合のを作りたいのですか？
例えばごく簡単な、１シートに「１か月分」の小遣い帳なら。

作成例：
Ａ１に年を記入する
2013
（セルの書式設定の表示形式のユーザー定義で0年と設定しておく）
Ｂ１に月を記入する
１
（セルの書式設定の表示形式のユーザー定義で0月と設定しておく）

Ａ３以下に「日付」を記入する
１や２や３の数字で

Ｂ３以下に
=IF(A3="","",TEXT(DATE($A$1,$B$1,A3),"aaa"))
と記入しておく

といった具合にしておくのが一番簡単です。

＃オマケ
１枚のシートに２０１３年版１年分の小遣い帳

Ａ１に
２０１３
を記入する（０年の表示形式）

Ａ３に
１
を記入、Ａ３以下のセルには０月の表示形式を付けておく

Ｂ３以下に日付を記入する
１，２，３
の数字で

２月になったらＡ１６辺りに２を記入して以下２月とする

Ｃ３以下には
=IF(B3="","",TEXT(DATE($A$1,LOOKUP(99,$A$3:A3),B3),"aaa"))
と記入しておく。

お礼

できました。
ありがとうございます。

「＃オマケ」の方が私の思っている形になりました。

「作成例」の方では、日付欄のデータが「1900/*/*」になります。
「#オマケ」は見た目が良いのでこちらを使いたいと思います。

回答No.4

SherlockHolmes2

例えば・・・
普通に"1/1"・・と入れていきます（この時点では、セルの内容は2012/1/1）
次に、weekdayを使って曜日を算出する時に、"weekday(A2+366)"、つまり、１年後の今日を指定すればいいのでは？

お礼

ありがとうございます。
すぐにできました。簡単ですね。

回答No.3

tom04

こんばんは！
VBAになってしまいますが、一例です。

A列に日付データを　10/11　のように入力するとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてA列に日付データを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Columns(1)) Is Nothing Or Selection.Count <> 1 Then Exit Sub
If Target <> "" Then
Application.EnableEvents = False
Target = DateAdd("yyyy", 1, Target)
Application.EnableEvents = True
End If
End Sub 'この行まで

こんな感じではどうでしょうか？m(_ _)m

お礼

できました。
ありがとうございます。
VBAコードをジーーとみているのですが私のレベルでは？？？。
でも、これは他でも応用できそうなのでちょっと頑張ってみます。

回答No.2

bin-chan

入力する間、PCのカレンダーを一年進めておく。

戻し忘れるリスクと、毎回て入力する手間を厭うことと、天秤に掛けて判断してください。

お礼

ありがとうございます。
多分戻し忘れると思います。

回答No.1

notnot

そうですね。入力時点で2013年にするのは無理です。
WEEKDAY関数を使う時点で、セルの月と日だけ取って、年を2013にすればいいのでは？

お礼

ありがとうございます。
やはり、入力時点で2013年にするのは無理ですか。
「セルの月と日だけ取って、年を2013にすればいいのでは？」を考えてみます。