エクセルでRSSよりリアルタイムに取得した(株価)を表示させています。
それを自動で5分ごとに自動でデータ蓄積させる方法はありませんか?
4行目のA列からCU列の50列ほどにデータをリアルタイムで取得しています。
その4行すべてを5分後に5行目にコピー
10分後に6行目にコピー
15分後に7行目にと連続して保存したいと思います。
終了は5時間後です。
A列 B列 C列 D列 E列・・・CU列
-------------------------------------------
4行 10 5 30 40 50 ・・・ 80
--------------------------------------------
5行 5分後
6行 10分後
7行 15分後
: :
: :
いろいろなサイトで探して悪戦苦闘してるのですが、どれもうまくできずにいます。
VBA初心者です。
上記のような場合は、どのようにコードを書いたらいいでしょうか。
ご教示いただければありがたいです。
よろしくお願いいたします。
No.2
- 回答日時:
NO1です。
仮に
Sub Test()
Range("A4").Select
Dim 最終行 As Long
最終行 = Range("A4").End(xlDown).Row
Rows(4).copy
Rows(最終行).Insert
Range("A1").Select
Selection.ClearContents
End Sub
と、Subの後ろに Test と云う名前で記述してあるとします。
Sub 5分後に実行()
Application.OnTime Now + TimeValue("00:00:15"), "Tset"
End Sub
を実行すると、5分後に Testが実行されます。
Sub Test()
Range("A4").Select
Dim 最終行 As Long
最終行 = Range("A4").End(xlDown).Row
Rows(4).copy
Rows(最終行).Insert
Range("A1").Select
Selection.ClearContents
Application.OnTime Now + TimeValue("00:00:15"), "Tset"
End Sub
と最後に記述しても構いません。
エクセルを終了するまで、Test が5分間隔で実行されます。
No.1
- 回答日時:
>エクセルでRSSよりリアルタイムに取得した(株価)を表示させています。
この部分は出来ているのでしょうか。
>その4行すべてを5分後に5行目にコピー
の部分ですがOnTiomeを使います。
http://www.officetanaka.net/excel/vba/tips/tips1 …
とか
https://msdn.microsoft.com/ja-jp/library/office/ …
にある
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
あたりが参考になると思います。
ご回答ありがとうございます。
下記コードで取得はできています。
Range("A4").Select
Dim 最終行 As Long
最終行 = Range("A4").End(xlDown).Row
Rows(4).copy
Rows(最終行).Insert
Range("A1").Select
Selection.ClearContents
ご回答いただいたサイトも参照しておりますが、
OnTimeの"my_Procedure"のプロシージャの意味が理解できずにいます。
お手数ですが、再度ご回答いただけるとありがたいです。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 3 2022/06/12 11:17
- Visual Basic(VBA) 【困っています2】VBA 追加処理の記述を教えてください。 2 2022/08/26 11:42
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Excel(エクセル) Googleスプレッドシートで、あるセルの値に応じて行を自動挿入したい 急いでいます! くわしい方、 3 2023/03/06 19:05
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) VBAで大量データの処理 3 2022/11/15 21:53
- Visual Basic(VBA) VBAで、シート間の転記するコードをFOR~NEXTで教えてください。 9 2023/04/30 20:04
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルの表から正の数、負の...
-
VBAで文字列を数値に変換したい
-
エクセルで最初のスペースまで...
-
EXCELで 一桁の数値を二桁に
-
Excelで半角の文字を含むセルを...
-
2つのエクセルのデータを同じよ...
-
エクセル(勝手に太字になる)
-
エクセル 同じ値を探して隣の...
-
エクセルで文字が混じった数字...
-
文字列に数字を含むセルを調べたい
-
エクセル 文字数 多い順 並...
-
条件付き書式の適用先が変更さ...
-
エクセル 時間帯の重複の有無
-
「B列が日曜の場合」C列に/...
-
エクセルのセル内の文字の一部...
-
エクセルで、列の空欄に隣の列...
-
【エクセル】指定した文字以外...
-
エクセルの並び変えで、空白セ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル 文字数 多い順 並...
-
VBAで文字列を数値に変換したい
-
エクセル(勝手に太字になる)
-
エクセルで文字が混じった数字...
-
「B列が日曜の場合」C列に/...
-
エクセルの表から正の数、負の...
-
Excelで半角の文字を含むセルを...
-
エクセル 同じ値を探して隣の...
-
Excel、市から登録している住所...
-
エクセルの項目軸を左寄せにしたい
-
EXCELで 一桁の数値を二桁に
-
VBA 連続行データを5行ずつ隣の...
-
エクセル 時間帯の重複の有無
-
エクセルで、列の空欄に隣の列...
-
オートフィルターをかけ、#N/A...
-
A列がない・・・A列が非表示に...
おすすめ情報