エクセルの書式設定で年号が変えられますか？

質問

エクセルの書式設定の表示形式で
分類：　日付
種類：　*2001/3/14
で設定すると
2/1と入力すると 2014/2/1と表示されます。

書式設定で
これを　2/1と入力すると 2013/2/1と表示させることはできますか？

回答No.4

noname#224171

おそらくEXCELで去年のデータを入力する際、2/1と入力するだけで2013/2/1となるようにしたいのではないでしょうか。たしかに、面倒ですね。私もAccessで経験あります。

例えば、そのBOOKの入力の時だけ日付と時刻の調整で１年前の今日に戻してあげれば2/1と入力しただけで2013/2/1になると思います。終了したら日付を元に戻してあげましょう。

これくらいしか思いつきません。ご参考まで。

お礼

ありがとうございます。

回答No.3

AIRBUSA300

エクセルは、2/28と入れると2014年の2月28日だと認識してしまいます。そこで、2013/2/28と打ち込むと、表示としては、2/28ですが、日付としては2013年の2月28日になります。

お礼

ありがとうございます。

回答No.2

okormazd

「表示」だけなら、
「セルの書式設定」―「ユーザー設定」の「種類」のボックスに、
「"2013/"m/d」と入力すれば、表示は「2013/2/1」になる。シリアル値が変わるわけではないので、日付を計算に使う場合には適さないし、書式を変えるなど何かの拍子に本来の「2014/2/1」になる。それを承知で表示だけ変わればいいというならどうぞ。あくまでも「表示」だけですよ。

お礼

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

回答No.1

tom04

こんばんは！
セルの書式設定では難しいと思います。
（できる方法があればごめんなさい。）

実際のデータを1年前にしてみてはどうでしょうか？
VBAになってしまいますが、一例です。

仮にA列に日付を入力するとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面（カーソルが点滅しているところ）に
↓のコードをコピー＆ペースト　→　Excel画面に戻りA列に日付データを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Intersect(Target, Range("A:A")) Is Nothing Or Target.Count > 1 Then Exit Sub
On Error Resume Next '←念のため
With Target
If IsDate(.Value) Then
Application.EnableEvents = False
.Value = DateAdd("yyyy", -1, .Value)
Application.EnableEvents = True
End If
End With
End Sub 'この行まで

お望みの方法でなかったらごめんなさね。m(_ _)m

お礼

VBでできるんですね。ありがとうございました。使用していみます。