[[20150213193838]]　『日付切り替え時間について』（aoi）　ページの最後に飛ぶ

『日付切り替え時間について』（aoi）

こんばんわ　aoiです。

 現在、下記のマクロでC列に何かが入力されると、B列に日付が
表示される様になっています。
（表示形式は日付で、○月○日と表示されます。）

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        Target.Offset(, -1).Value = Date
    End If
 End Sub

 生産の締め時間がAM7：00なので、AM7:00に日付が切り替わるように、
B列に表示される時間を-7時間したいと思っているのですが、そんな
事が出来ますか？もし出来るなら教えて下さい。

 例）今日が2月13日だとして、C列に何かが入力された時間が・・・
6時なら、B列の日付表示は7時間前の2月12日
15時なら、B列の日付表示は7時間前の2月13日
23時なら、B列の日付表示は7時間前の2月13日
翌日（2月14日）の6時なら、B列の日付表示は7時間前の2月13日
翌日（2月14日）の8時なら、B列の日付表示は7時間前の2月14日
という感じに表示される様にしたいです。

 理由は、生産数を日付でSUMIF関数で集計したいからです。

 宜しくお願いします。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

 こんな感じのことでしょうか。

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub

    If Target.Column = 3 Then
        Application.EnableEvents = False
        Target.Offset(, -1).Value = Format(Now() - TimeValue("07:00:00"), "m月d日")
        Application.EnableEvents = True
    End If
 End Sub
（Mook） 2015/02/13(金) 20:11

Mookさんこんばんわ　aoiです。

 まさに思い通りの事が出来ました。
とっても嬉しいです。
ありがとうございました。
（aoi） 2015/02/13(金) 20:21

コメント返信：

[ 一覧(最新更新順) ]

[[20150213193838]] 『日付切り替え時間について』（aoi） ページの最後に飛ぶ

[[20150213193838]]　『日付切り替え時間について』（aoi）　ページの最後に飛ぶ