エクセルで、現在時間の取得

質問

お世話になっております。
エクセル(2003)で例えばA1のセルに入力された時間をB1に取得し、しかも、同じ事をA2ならB2、A3ならB3・・・・・・と続けて取得したいのですが、可能でしょうか？
単純にIFとNOW()を組合わせてみましたが、常に再計算されてしまいます。
目的は今度結婚式の受付で来場者の名前を入力して何時何分にいらっしゃったのかを管理するためで、このデータを披露宴のイベントに使用するためです。

よろしくお願いします。

回答No.1

hirorin00 · ベストアンサー

はじめまして

ちょっと方法は違いますが…

１、A1セルに名前を記入する
２、「TAB」キーを押す→セルがB1に移動する
３、「Ctrl+:」を押す→今の時刻が入る
４、「Enter」キーを押す→A2セルに移動
５、１に戻って繰り返し

これでいかがでしょう。
ちなみに「Ctrl+;」で日付が入ります。

的外れでしたらごめんなさい。

お礼

ありがとうございます。
そうでした！
難しく考えすぎてました。

回答No.3

S-Fuji

関数のNOW()を使うと、自動更新されます。
Excelには便利なショートカットキーが有りますので活用しましょう。
「Ctrl＋:」で現在時間が入力されます。
書式で、見やすい書式にしておきましょう
ショートカットキーの例
http://www.relief.jp/itnote/archives/000099.php

A1の時間をB1にも表示したいのでしたら、単純に「=A1」をB1に入れておき、あとは下へ引っ張ってコピーすればOKです

お礼

ありがとうございます。

回答No.2

mshr1962

VBAを使えば可能です。
シートの見出しを右クリックしてコードの表示に下記のVBAを貼り付けてください。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'A列を指定
If Target.Row > 1 Then '1行目を除外
Target.Offset(0, 1) = Now '右隣の列に日付+時刻をセット
Target.NumberFormatLocal = "[$-F400]h:mm AM/PM" '時刻書式をセット
End If
End If
End Sub

お礼

ありがとうございます。
こちらも、試してみます。