[[20030905004824]]　『セルに入力した時点の日時を別のセルに記録する』（EUREKA）　ページの最後に飛ぶ

『セルに入力した時点の日時を別のセルに記録する』（EUREKA）

特定のセルに入力した時点の日時を,別のセルに記録する方法は。

 シートをセーブした場合，
 記録日時がフォルダやファイルに自動的に付与されます。
 PCに内蔵されたカレンダーとクロックのデータを，スタンプするのだと思います。
 これと似た機能を探しています。以下の状況にマッチした解決策を教えてください。

 1)エクセルシート内のある特定のセルに何かの入力があった場合，
       決められた別セルにその日時データを自動記録する方法です。
       シート全体の保存日時ではなく，特定セルに入力した日時を記録したいのです。
 2)入力する特定のセルとは５つあり，
       それぞれの入力日時を記録する別セルも，５つ用意するとします。

 この機能の使用目的は，
 入力した５つの内容のうちで，最新(直近)のモノがどれであるかを明示したいのです。
 よろしくお願いします。

 最近↓こんなのありましたが、こういう感じでしょうか？
[[20030903144302]]『セルに数字を入力した時間を表示したい』（いずみ） 
 コードのTimeをNowに書き換えると現在の日時が入るようです。
 INAさん、ごめんなさい。勝手に紹介しちゃいました。
 (YS)

 Oh thanks!
 同じような壁にぶち当たる人がいれば，その解決策を知っている人もいる。
 このサイトは素晴らしいです。
 YSさん・INAさん，感謝致します。(EUREKA)

 YSさん・INAさんへ。（EUREKA)
 またまた，壁を乗り越えられない状態に陥っています。ご教示願います。
 1）上記の特定の入力セルが飛び飛びに在って，共通の列や行の上には無い場合は
    どのように記述すればよいのでしょうか？
    If Target.Column (またはRow）= 2 Then  というのは，
    入力セルを2列（または2行)目に，専有配置している状態と解釈しています。
    特定の５つのセルを直接的に指定する方法はないのでしょうか。
 2）当然その場合，入力時の時刻を書き込む場所（Offset) もまちまちとなります。

   入   力   セ   ル        入力時刻のデータ格納セル
   A1                --->       F11
      B2             --->       F12
         C3          --->       F13
            D4       --->       F14
               E5    --->       F15

  といった配列関係の場合です。   よろしくお願いします。

 横からすみません

  Private Sub Worksheet_Change(ByVal Target As Range) 
      If Target.Address = Range("A1").Address Then
       Range("F11").Value = Now()
      End If
  End Sub

 入力セルが５個ぐらいならIF～End IFのくりかえしでも良いのでは？
(nora)

 noraさんがご説明されているように、If文やCase文で条件分岐すればできますよ。
　(INA)

 noraさん・INAさん，早速のご教示ありがとうございます。
 ダイレクトにセルを指定する方法を知らなかったものですから，大変助かります。
 Address と Range によって，かなり応用が広がります。
 実際の時刻記入セルは，シートの右端ゾーンの方に設定して，
 通常の入力作業エリアからは極端に離して，
 見えないようにするつもりですので，Offsetを使うのはつらかったのです。
 教えていただいたコードをアレンジしていろいろトライしてみます。
 (EUREKA)

この方の使用目的だと、この５つのセルどれかに変更があったら、５つのセル全部の色を通常色にして、今変更があったセルを、例えば赤にする、とかされたらどうですかねぇ。いつでも、最後に変えたセルが赤で示されていますよ。（通りすがりの者）

 通りすがりの者さんへ（EUREKA)
 素晴らしい洞察力です。実は，当初は５つの時刻数値でMAXのものを常に抽出して，
 そのMAX時刻に入力した入力セル以外の，残り４つの入力セルに何らかの警告を出す
 予定だったのです。つまり最後の入力内容に，みんな"合わせろ""合致させろ"とネ。
 YSさん・noraさん・INAさんのおかげで，この予定は完璧にクリアしました。
 新たなエクセル応用手法をひとつ身につけた想いです。
 クリアすると，今度は別な欲が出てきて，NOW()のワンクッションを置かずに，
 ダイレクトに残り4つのセルの内容を自動的に(強制的に)最後に入力セルの内容に合わせる,
 といった仕組みにチャレンジしています。
 ループ状態に陥って，汗をかいていますガ。

コメント返信：

[ 一覧(最新更新順) ]

[[20030905004824]] 『セルに入力した時点の日時を別のセルに記録する』（EUREKA） ページの最後に飛ぶ

[[20030905004824]]　『セルに入力した時点の日時を別のセルに記録する』（EUREKA）　ページの最後に飛ぶ