エクセルで日付を入れたら年の設定をしたい

質問

今、エクセルで有給休暇の計算表を作っています。
各従業員がいくつかの有休を持っており、消化をした際に
その日付をセルに入力して、残数が減っていくという形のものです。

　計算表自体は一年ごとの更新のもので作っているので、
例えば「H24.9.1」からであれば、「H25.8.31」までの期間のものを作るといった感じです。

　その際に問題なのが、先程の消化をした日付をセルに入力する
所で、通常は「8/1」と入力すると現在の年の「8/1」となると思いますが、
これを、先程の一年間の中で入力した際に、表の中での年月日と合うようにできるのでしょうか？

　「H24.9.1～H25.8.31」の期間の計算表で、H25年に実際なってから「9/1」と入力すると
2013/9/1になっていると思うのです。　これをH25年に入力してもセルの値が「2012/9/1」になったり
H24年中に「8/1」と入力してもセルの値が「2013/8/1」となるようにできればと思うのですが
どういった方法をとればいいでしょうか？

回答No.1

alvagina · ベストアンサー

直接の答えになっていないかもしれませんが、ひとつの解決策として、入力セルとフォーマットして表示するセルをわける方法はどうでしょう。

例：
A1に期間開始年月日　（例：2012/9/1）
B1に期間終了年月日　（例：2013/8/31）

B4に月（例：3）
C4に日（例：10）

で、D4に
=DATE(IF(DATE(YEAR($A$1),B4,C4)-$A$1>=0,YEAR($A$1),YEAR($A$1)+1),B4,C4)
を入力。
あとはその下に、月日を入れると自動で年月日になって表示するようにすれば良いです。

ちょっとゴリゴリ感がありますが、何かのヒントになれば嬉しいです。

お礼

回答ありがとうございます。

こういった形での範囲の表示のさせ方もあるという事を
勉強させていただきました。

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

回答No.3

KURUMITO

マクロを使わなければできませんね。
例えばシートにコマンドボタンを配置し、それをクリックすることでA2セルから下方に入力した日付をお望みのような日付に変更するとしたら次のようにします。
A1セルにはH24.9.1と入力し、B1セルには「から」、C1セルにはH25.8.31のように入力します。D1セルには「の期間の計画表」とでも入力します。
「開発」タブの「挿入」からコマンドボタンをクリックしてシート上で四角を描きます。コマンドボタンが配置されます。そのコマンドボタンを右クリックして「コードの表示」を選択します。
表示の画面では次のコードを入力します。

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To Range("A65536").End(xlUp).Row
If Month(Range("A" & i).Value) >= Month(Range("A1").Value) Then
Range("A" & i).Value = DateSerial(Year(Range("A1")), Month(Range("A" & i).Value), Day(Range("A" & i).Value))
Else
Range("A" & i).Value = DateSerial(Year(Range("C1")), Month(Range("A" & i).Value), Day(Range("A" & i).Value))
End If
Next
End Sub

シートの画面に戻って「開発」タブの「デザインモード」に色がついていたらそれをクリックして消します。
その後にコマンドボタンをクリックすることでお望みのようにA2セルから下方の日付が変更されます。

回答No.2

Cupper-2

年から入力する。
でもって表示は月日になるよう、

　　　セルの書式設定

で指定しておく。

横着したい気持ちは分かりますが、これで普通に対処できます。
（H25/8/1 と入力してもOK）

お礼

回答、ありがとうございます。

確かに、一番この方法が確実ですね。
最初からそういう入力の仕方で、という事で
決めておけばいいだけですし。

こちらで、実践してみたいと思います。
ありがとうございました。