[[20031127175036]] 『入力した時点の時刻が表示されるように』(AKI72) >>BOT

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

 

『入力した時点の時刻が表示されるように』(AKI72)

こんばんは
例えばA1に数値を入力したらB1に入力した時刻が出るように出来るんでしょうか?
エクセル2002です。宜しくお願いいたします。


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

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

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


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


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


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

 kazuさんが仰有るように使い方がわかっていないだけでしたね。
 AKI72さんがいい人で
 返信してくれたのがとても嬉しいですね。 よかったよかった。   (jun53)

JUN53様返信ありがとうございました。
今後とも宜しくお願いいたします。
(AKI72)

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

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

INA様 深夜に返答をいただきましてありがとうございました。
VBAって上記の「20030903144302」『セルに数字を入力した時間を表示したい』(いずみ) 様の回答でよろしいんですよね!(AKI72)

 1.ALT+F11キーで、VBEを起動
 2.プロジェクトウィンドウのSheet1 を Wクリック
 3.中央の真っ白なウィンドウ(コードウィンドウ)に以下のコードをコピペ
(注)もし、動かないときは、デザインモードになっていないか確認する。

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

 VBAの意味としては、A1セルの値の変化を取得して(changeイベント)、
 B1セルに現在のシステム時刻を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)


コメント返信:

[ 一覧(最新更新順) ]


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