ＶＢＡでマクロを走らせた日時をＳｈｅｅｔ２のＡセルに入力する

質問

ＶＢＡでマクロを走らせた日時をＳｈｅｅｔ２のＡセルに入力する
はじめまして。
現在、ファイルを整理するマクロを使っています。
そのマクロを使った履歴を残す意味で、
いつマクロを走らせたかすぐにわかるように、
Ｓｈｅｅｔ２のＡのセル（２行目から）に走らせた日時を示したいと思っています。
マクロでの処理が終わったら、
毎回Ｓｈｅｅｔ２に日時が入力されるようにするには、
どんな命令文を追記したらよいのでしょうか。
マクロに関しては知識がなく、
インターネットで調べて、
Sheets("Sheet２").Cells(R, "Ａ").Value = Now
というのを追記してみたのですが、
Ｓｈｅｅｔ２に入力はされるものの、
Ａセルの行がとびとびに入力されたり、
整理したファイルの数だけ（複数）入力されてしまいます。
マクロを１回走らせたら１つの日時が入力されるようにしたいです。
Sub ()とEnd Subの間にFor RとNext Rがあり、
作業が繰り返されているようです。
転記ができないため、マクロを示すことができません。
さすがに、これだけの情報では難しいでしょうか。
わかるかたがいらっしゃいましたら、
よろしくおねがいします。

回答No.2

hige_082 · ベストアンサー

worksheets("sheet2").cells(rows.count,1).end(xlup).offset(1).value=now
を
end sub
の前に追加

参考まで

お礼

ご回答ありがとうございます。
しっかり記入されました！
参考にさせていただきます。
本当にありがとうございました！！

回答No.4

rukuku

こんばんは

指定した列の「データが入っている一番下の行」を取得する便利な方法があります。

まずは以下の操作をしてみてください。
1.sheet2を選択
2.A1～A5に適当に文字を入力
3.A列の一番下の行を選択（Excelのバージョンが2003以前ならA65536、
　2007以降だともっと大きな行数）
4.マクロの記録開始
5.キーボードの「Ctrl」を押しながら「↑」を押す
6.マクロの記録終了
で記録されたマクロを確認しますと

Selection.End(xlUp).Select
が記録されていなす。

これを応用しますと、
Sheets("Sheet2").Range("A65536").End(xlUp).Row
で、Sheet2の最後の行を取得できます。

また、
Sheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0) = Now()
としますと、Sheet2のA列の一番下に、現在の時刻を記録できます。

p(^^)q

お礼

やってみました。
こういう考え方もあるんですね。
まったくの初心者ですので、
とても勉強になりました。
ほんとうにありがとうございます。

回答No.3

yucco_chan

すみません。
バグってました。m(__)m

Dim MaxRow As Long
Dim Max As Long

:
:
:

Max = Rows.Count
MaxRow = Sheets("Sheet2").Range("A1").End(xlDown).Row
If MaxRow = Max Then MaxRow = 2
Sheets("Sheet2").Cells(MaxRow + 1, "Ａ").Value = Now

End Sub

お礼

ご回答ありがとうございます。
頂いた文を追記したところ、
Ｓｈｅｅｔ２に日時が表示されますが、
（１）３行目から入力されてしまう
（２）２回目までしか記入されない
という問題が発生しました。
（２）の２回目までしか記入されない
というのは、２回目分は４行目に入力されるのですが、
以降、４行目が更新されていき、
前の履歴に上書きされてしまっているようです…

改めて、２行目から記入が始まり、
３回目以降もマクロを走らせた日時の履歴を
４行目、５行目…というように、
Ｓｈｅｅｔ２のＡセルにバーーっと入力していくには
どう変えたらよいでしょうか。
ご存知でしたらよろしくお願い致します。

回答No.1

yucco_chan

END Sub の直前（For RとNext Rの外）に下記のように記述してみてください。
下記マクロの動作条件が1つあって、Sheet2のA1セルが空白だと
エラーになります。

　：
　：

MaxRow = Range("A1").End(xlDown).Row
Sheets("Sheet2").Cells(MaxRow + 1, "Ａ").Value = Now
End Sub