[[20030905004824]] 『セルに入力した時点の日時を別のセルに記録する』(EUREKA) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

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

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

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

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

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

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

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

 YSさん・INAさんへ。(EUREKA)
 またまた,壁を乗り越えられない状態に陥っています。ご教示願います。
 1)上記の特定の入力セルが飛び飛びに在って,共通の列や行の上には無い場合は
    どのように記述すればよいのでしょうか?
    If Target.Column (またはRow)= 2 Then  というのは,
    入力セルを2列(または2行)目に,専有配置している状態と解釈しています。
    特定の5つのセルを直接的に指定する方法はないのでしょうか。
 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

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


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

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


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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.