[[20031127175036]]　『入力した時点の時刻が表示されるように』（ＡＫＩ７２）　ページの最後に飛ぶ

『入力した時点の時刻が表示されるように』（ＡＫＩ７２）

こんばんは
例えばＡ１に数値を入力したらＢ１に入力した時刻が出るように出来るんでしょうか？
エクセル２００２です。宜しくお願いいたします。

 ＡＫＩ７２さんへ
 回答がもし有るとしたらマクロになると思います。
 わたしはマクロが出来ませんのでスミマセン。

 もし回答が出ましたら「わかった」「まだわからない」くらいの返信はして下さいね。

 ＡＫＩ７２さんの過去の質問見ましたが、全く返信がないですよね。
 そのうち全然相手にしてくれなくなるかもしれませんよ。
 今回は回答があるといいですね。　　　（jun53）

 私も、少し気になっていました。
 このボードの使い方がまだ良くわかっていないだけ、
 と解釈したいと思っています。
（kazu）

 junさんが書いたから・・・
[[20030903144302]]『セルに数字を入力した時間を表示したい』（いずみ） 
（ケン）

ＡＫＩ７２です。
jun53様kazu様ご指摘ありがとうございました
この場をお借りしまして謝罪させていただきます。
このように書き込めることすら知りませんでした。
自分の情けなさに改めて自分自身に怒りを感じています。
本当に今まで申し訳ありませんでした。
エクセルの魅力に完全に取り付かれネットサーフしているうちに
このような素晴しいサイトに出会うことが出来ました。
こんな失礼な投稿者に回答をくれた皆様に感謝しています。
今後はマナーのよい投稿者を目指し精進いたします。
失礼いたします。
（ＡＫＩ７２）

 kazuさんが仰有るように使い方がわかっていないだけでしたね。
 ＡＫＩ７２さんがいい人で
 返信してくれたのがとても嬉しいですね。　よかったよかった。　　　（jun53）

ＪＵＮ５３様返信ありがとうございました。
今後とも宜しくお願いいたします。
（ＡＫＩ７２）

 B2 に　=NOW()　をいれて B1 の表示形式を時刻にして、　
 A1  =IF(A1>0,B2) のような感じとか？ 
 ブックの保護の変更履歴機能を使うとかかな・・・

  VBAなら簡単なんだけど、一般機能はむずかしい・・・   (INA)

ＩＮＡ様　深夜に返答をいただきましてありがとうございました。
ＶＢＡって上記の「20030903144302」『セルに数字を入力した時間を表示したい』（いずみ）様の回答でよろしいんですよね！（ＡＫＩ７２）

 １．ALT+F11キーで、VBEを起動
 ２．プロジェクトウィンドウのSheet1 を Ｗクリック
 ３．中央の真っ白なウィンドウ（コードウィンドウ）に以下のコードをコピペ
（注）もし、動かないときは、デザインモードになっていないか確認する。

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

 VBAの意味としては、Ａ１セルの値の変化を取得して（changeイベント）、
 Ｂ１セルに現在のシステム時刻をTime関数で取得して、代入する。
 です。
  (INA)

INA様ありがとうございました。
完璧でした。
VBAをコピーさせていただき実施させていただきました。
重ねてお願いなんですが、
空白のときは無表示に、数値を入力したら時刻が出るようにって出来るんでしょうか？
よろしくお願いいたします。
（AKI72）

 どうぞ。(INA)

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = Range("A1").Address Then
        If Range("A1").Value = "" Then
            Range("B1").Value = ""
        Else
            Range("B1").Value = Time
        End If
    End If
 End Sub

INA様ありがとうございました。

これをベースにしまして、日付と時刻が出るようにいたしました。
本当にありがとうございました。
今後とも宜しくお願いいたします。
（AKI72）

コメント返信：

[ 一覧(最新更新順) ]

[[20031127175036]] 『入力した時点の時刻が表示されるように』（ＡＫＩ７２） ページの最後に飛ぶ

[[20031127175036]]　『入力した時点の時刻が表示されるように』（ＡＫＩ７２）　ページの最後に飛ぶ