[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『計算結果の変更→指定セルへ日付を表記』(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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.