- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：エクセルマクロ時系列記録と記録の蓄積）
エクセルマクロで時系列記録と記録の蓄積を行う方法
このQ&Aのポイント
- エクセルマクロVBAを使用して、特定の値をリアルタイムで記録し、日時ごとに蓄積する方法についての質問です。
- 1時間ごとに値を保存し、30行までのデータを保存しているセルに新しい値を追加する方法についての質問です。
- マクロを使用して自動的に値を更新し、保存する方法についての質問です。
- perrault
- お礼率64% (9/14)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
＞EからH列は保存数が30行と決まっておりE30：H30に到達した時点で はて？ 保存数が３０行と決まっているなら、「３０行に到達した時点で」１行目を削除してしまうのは間違いですね。 sub Macro1() range("E65536").end(xlup).offset(1).resize(1, 4).value = range("A1:D1").value if range("E65536").end(xlup).row > 30 then ’31行に到達してから１行目を削除する range("E1:H1").delete shift:=xlshiftup end if application.ontime now + timeserial(1, 0, 0), "Macro1" end sub マクロ１を実行すると、以後１時間ごとに繰り返し自動実行する。
お礼
,,,確かに31行目ですね！失礼しました！ こんなに綺麗でシンプルなマクロができてしまうのですね！ VBAすごし！助かりました！ 有難うございます！