自動的に2013年表記の方法教えてください。

質問

とても初歩的な質問かもしれませんが…。エクセルまたはアクセスで例えば1/7と入力すると2012/1/7となってしまいます。2013年の伝票の発行などの際は2013/と手打ちしています。1/7と打てば自動的に2013/1/7と表示するにはどうしたらよいのでしょうか？教えてください。

回答No.3

KURUMITO

回答No１さんのようにセルの書式設定から ユーザ定義で"2013/"mm/dd とすることでセルの表示は２０１３/１/７のようにすることはできますがシリアル値としては2012/1/7のシリアル値となっています。このため日付の計算にはそのままでは使うことができません。
セルに１/７と入力すると2013/1/7となるようにするためには次のようなマクロを使うことでしょう。
シート見出しで右クリックして「コードの表示」を選択します。
表示の画面の右空白の窓に次のコードを入力します。

Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Value, "/") = 0 Then Exit Sub
If IsDate(Target.Value) = True Then
Target.Value = DateSerial(2013, Month(Target.Value), Day(Target.Value))
End If
End Sub

お礼

ご親切なご回答ありがとうございました。

回答No.2

kagakusuki

>1/7と打てば自動的に2013/1/7と表示する

と仰いますが、その場合12/31と打った場合でも2013/12/31と表示させたいというのと同じ事です。
　何月何日までは今年の日付で、何月何日までは来年の日付と考えれば良いのかなど、コンピュータに解る訳もありません。
　そのため、年を指定せずに月と日のみを入力しますと、コンピュータは今年の日付だと判断する訳です。
　コンピュータに何年の日付であるのかも指示する事もしないで、「1/7と打てば2013/1/7と表示せよ」、「12/31の場合は2012/12/31と表示せよ」というのは単なる横着者の我儘の類です。
　もし、12/31等の1月以外の日付を入力した際にも2013年の日付として扱っても良いのでしたら、次の様な手段もあります。

パソコンのモニター画面の右下の隅にある日付や時刻が表示されている箇所を右クリック
　　↓
現れた選択肢の中にある[日付と時刻の調整]をクリック
　　↓
現れた「日付と時刻」ダイアログボックスの[インターネット時刻]タブをクリック
　　↓
現れた[設定の変更]ボタンをクリック
　　↓
現れた「インターネット時刻設定」ダイアログボックスの中にある[インターネット時刻サーバーと同期する]と記されている箇所をクリックして、チェックを外す
　　↓
「インターネット時刻設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「日付と時刻」ダイアログボックスの[日付と時刻]タブをクリック
　　↓
現れた[日付と時刻の変更]ボタンをクリック
　　↓
現れた「日付と時刻の設定」ダイアログボックスの日付を2013年のものに変更する
　　↓
「日付と時刻の設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「日付と時刻」ダイアログボックスの[OK]ボタンをクリック

　これで、使用しているパソコンのカレンダーが2013年のものに切り替わりますから、そのまま1/7なり、12/31なりの日付を入力しますと、自動的に2013/1/7や2013/12/31などと表示されます。
　尚、その入力作業を終了したり、中断したりする場合には、逐次、必ず日付と時刻の設定を元に戻しておかれる事を御勧め致します。

お礼

ご親切なご回答ありがとうございました。

回答No.1

K Kazz（@JazzCorp）

ユーザ定義で
"2013/"mm/dd

お礼

ご親切なご回答ありがとうございました。