Excelのマクロについて

質問

Excelについて全くの初心者で、今から勉強を始めるところですが、急遽、次のようなマクロを作成したいです。

アクティブなセルから右に６つ目のセルとそのセルから右に１つ、下に１つ目のセルに現在の時間を記入

どのように記述すればよいでしょうか。
ちなみに、的はずれかもしれませんが、以下のようなマクロを作りましたが、うまくいきませんでした。
よろしくお願いします。

Sub 時間入力()
ActiveCell.Offset(0, 6).Activate
SendKeys "^(:)"
SendKeys "{TAB}"
ActiveCell.Offset(1, 0).Activate
SendKeys "^(:)"
SendKeys "{TAB}"
End Sub

回答No.2

tsubuyuki · ベストアンサー

SendKeyは不安定みたいなので使わないほうがよろしいかと。

一例ですが

Sub 時間入力()
　ActiveCell.Offset(0,6)=Format(Time,"hh:nn")
　ActiveCell.Offset(1,7)=Format(Time,"hh:nn")
End Sub

Formatは、数値の体裁を指定する関数です。
秒まで必要なら、"hh:nn:ss"　などとして使います。
ただし、該当セルに書式設定がある場合は、そちらが優先されます。

日付が欲しいなら、TimeをDateに書き換えます。
日付＋時刻の両方なら、Nowを使います。

ちなみに・・SelectやActivateを使っていないので、
ActiveCellはあくまでも「マクロを走らせた瞬間の」アクティブセルです。
なので、マクロの２行目でも、アクティブセルから１行・７列Offsetしてやります。

回答No.1

kybo

以下でよろしいかと。

Sub 時間入力()
ActiveCell.Offset(0, 6).Value = Date
ActiveCell.Offset(0, 7).Value = Date
ActiveCell.Offset(1, 7).Value = Date
End Sub

お礼

すぐに回答していただき、ありがとうございました。