[[20040630213250]]　『計算結果の変更→指定セルへ日付を表記』（D輔）　ページの最後に飛ぶ

『計算結果の変更→指定セルへ日付を表記』（D輔）

　Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> "$V$125" Then Exit Sub
    Target.Offset(-124, -1).Value = Date
 End Sub

　V125には計算式（SUM関数）が入っています。V125の計算結果が
変わったら、指定セルに日付を表記したいのです・・・。
直接V125へ直接数値を入力すると作動するのですが、計算結果に
よる数値の変更だと作動しません。ちなみに（－124,－1）は、
『U1』です。

　どなたか助けてください。

 Private Sub Worksheet_Calculate()
    Range("U1").Value = Date
 End Sub

 もしくは、SUM の範囲を V1:V124 とすると、

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 22 And _
       Target.Row >= 1 And Target.Row <= 124 Then
       Range("U1").Value = Date
    End If
 End Sub

  (INA)

 少し、遅れましたぁ、、
 こんな感じでどうでしょう？
（夏目雅子似）
 Option Explicit
 Dim mae As Variant

 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim ato As Variant
    If Target.Address <> "$A$1" Then Exit Sub
    Application.EnableEvents = False
        ato = Range("V125").Value
    If mae <> ato Then
        MsgBox "変更されました"
        Range("U1").Value = Date
    End If
    Application.EnableEvents = True
 End Sub

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    mae = Range("V125").Value
 End Sub

ありがとうござました。
勉強させていただきました。
また、機会がありましたらお願いします。

コメント返信：

[ 一覧(最新更新順) ]

[[20040630213250]] 『計算結果の変更→指定セルへ日付を表記』（D輔） ページの最後に飛ぶ

[[20040630213250]]　『計算結果の変更→指定セルへ日付を表記』（D輔）　ページの最後に飛ぶ