1分ごとの数値のマクロ

Question

エクセルのVBAで、楽天RSSから1分ごとに株価が入るようにするマクロを作りたいのですが、初心者なので手が出ません。
作成したいものは以下のようなものです。

1分ごとに、1001行のA列に時間が入り、1001行のB列からIV列に、1行上の1000行の数値(この数値はあらかじめ入っていて変化します)が入るようにします。
新しい株価が1001行に入るようにして、時間が前の株価は1分ごとに1行ずつ下に下がっていくことになります。
10時に最初の株価が入ったのが例1でして、1分経ちますと例2のように1行繰り下がり、もう1分経ちますと例3のようにまた1行繰り下がります。
どうぞよろしくお願いします。

例1
        　　　　　　 A         　　　　　　　 B      　　　     　　　C       ・・・・

1000                  　　　　　　　　　　　100         　 　　　　50
1001　　10:00:00    　　　　100          　　　　　50
1002　　　
1003

例2
　　　　　　 A 　　　　　　　 B 　　　 　　　C ・・・・

1000 　　　　　　　　　　　 105 　 　　　45
1001　　10:01:00 　　　　105 　　　　　45
1002　　10:00:00 　　　　100 　　　　　50
1003

例3
　　　　　　 A 　　　　　　　 B 　　　 　　　C ・・・・

1000 　　　　　　　　　　　 110 　 　　　40
1001　　10:02:00 　　　　110 　　　　　40
1002　　10:01:00 　　　　105 　　　　　45
1003　　10:00:00 　　　　100 　　　　　50

Wendy02 · Accepted Answer

こんばんは。

人によっていろいろなリクエストがありますね。人によっては、3秒以内とか、また、リアルタイムで書き換えるとか……。

'標準モジュール
'----------------------------------------

Dim myTime As Date
Dim flg As Boolean
Sub Ontime_Set()
　　'記録スタート
　　If flg = False Then
　　　　flg = True
　　　　myTime = Now + TimeSerial(0, 1, 0)　'時間設定
　　ElseIf flg = True Then
　　　　flg = False
　　Else
　　　　Exit Sub
　　End If
　　With ActiveSheet
　　　　If .Cells(1001, 1).Value = "" Then
　　　　　　.Cells(1001, 1).Value = Format(Now, "hh:mm")
　　　　　　.Range(.Cells(1000, 2), .Cells(1000, 256)).Copy .Range(.Cells(1001, 2), .Cells(1001, 256))
　　　　End If
　　End With
　　Application.OnTime EarliestTime:=myTime, _
　　Procedure:="my_Procedure", Schedule:=flg
　　If flg = False Then
　　　　myTime = 0
　　End If
End Sub

Sub Ontime_Reset()
　　'タイマー解除
　　On Error Resume Next
　　Application.OnTime EarliestTime:=myTime, _
　　Procedure:="my_Procedure", Schedule:=False
　　If Err.Number > 0 Then
　　　　MsgBox "OnTime設定はされていません。", 64
　　　　Err.Clear
　　　　flg = False
　　Else
　　　　MsgBox myTime & "の設定は解除されました。", 64
　　　　flg = False
　　　　myTime = Empty
　　End If
End Sub

Sub my_Procedure()
　　'実行マクロ
　　Application.ScreenUpdating = False
　　With ActiveSheet
　　　　.Rows(1001).Insert Shift:=xlDown
　　　　.Cells(1001, 1).Value = Format(Now, "hh:mm")
　　　　.Range(.Cells(1000, 2), .Cells(1000, 256)).Copy .Range(.Cells(1001, 2), .Cells(1001, 256))
　　End With
　　Application.ScreenUpdating = True
　　flg = False
　　myTime = 0
　　Call Ontime_Set
End Sub

'-----------------------------

Wendy02 · Answer

こんばんは。

一応、私の想定範囲のことでしたら、以下のようになります。

>1行から999行の間のセルで作業をしようと考えていまして、関数を入力したのですが、行の数字を絶対参照にしましても、マクロが実行される1分ごとに数字が1つ増えてしまうのです。

1行～999行の中のセルの数式が、1000行以上のデータを参照しているとなると、すぐには思いつきませんので、数式の例を見せてください。一般的な回答として、データが動いても、動かさないようにするには、INDIRECT関数を使います。行が増えても減っても、同じ場所を指しています。

>また別シートを選択しますと、マクロが停止しましてデータの更新が1分おきになされなくなってしまいます。
>ですので別シートでの作業も意味が無くなってしまいます。

それは、DDE（データを送る側の仕組み)からの送信で、シートを決めているはずですから、

そのVBEditor 画面の一番上から、ActiveSheet のところにカーソルを持っていって、編集--置換で、

　ActiveSheet　'検索
　　↓
　Worksheets("Sheet1")   '置換（実際にデータが入るシート)
　
で、データを、カレントプロジェクト--すべて置換で、そのマクロコード全体を置換してしまってください。（2箇所)そうすれば、シートを替えても、勝手にデータを取っているはずです。

fujillin · Answer

楽天RSSを使用したこともないし、実験できる環境にもないので…


◇別シートにデータを表示させておいて、それをマクロで1分ごとに転記するのなら、比較的簡単にできます。
かなり近い例が以下にあります。
http://kabu.muimi.com/k/rakuten_rss/2/index.html
表示するシートと記録するシートを別にしておけばほとんど同じではないでしょうか。

◇直接データを取得できるのかどうか不明ですが、以下にヒントになりそうな記述があります。
（楽天RSSのマニュアル等にもっと有効な情報があるかも知れませんが…）
http://plaza.rakuten.co.jp/acknight/diary/200711190001/

なお、1分ごと実行するのは、
VBAのOnTime メソッドなどを利用すれば実現できるでしょう。

1分ごとの数値のマクロ

こんばんは。

こんばんは。

この回答への補足

楽天RSSを使用したこともないし、実験できる環境にもないので…

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング