Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9032 / 13644 ツリー ←次へ | 前へ→

【29646】マクロを使ってリアルタイムで更新される情報を動画の様に記録できますか? miku2000 05/10/10(月) 10:50 質問[未読]
【29648】Re:マクロを使ってリアルタイムで更新され... りん 05/10/10(月) 11:36 発言[未読]
【29699】りん さん,早速のアドバイスありがとうござ... miku2000 05/10/12(水) 8:29 お礼[未読]
【29650】Re:マクロを使ってリアルタイムで更新され... Kein 05/10/10(月) 14:49 回答[未読]
【29700】Kein さん、ありがとうございます! miku2000 05/10/12(水) 8:33 お礼[未読]

【29646】マクロを使ってリアルタイムで更新される...
質問  miku2000  - 05/10/10(月) 10:50 -

引用なし
パスワード
   初めて質問します。

現在楽天のマーケットスピードのRSSを使って株価の板情報をエクセル上に表示させています。

http://nikkei.hi-ho.ne.jp/rakuten-sec/rs01.html


この情報をボタンをクリックすることによって、コピー&ペーストして保存するマクロの設定までは出来たのですが、

これをレベルアップさせて自動的に一日分の板情報を動画で記録できないかと考えています。(更新されるごとに記録を残す方法でも構いません)


こういったことは技術的に可能でしょうか?


また、そういった技術を身につけるにはどういったことを学べば可能でしょうか?

参考になるHPなどを教えて頂けると助かります。


よろしくお願いします。

【29648】Re:マクロを使ってリアルタイムで更新さ...
発言  りん E-MAIL  - 05/10/10(月) 11:36 -

引用なし
パスワード
   miku2000 さん、こんにちわ。

>この情報をボタンをクリックすることによって、コピー&ペーストして保存するマクロの設定までは出来たのですが、

ここが出来ているのなら、あとは一定時間毎の処理だけですよね。
似たような質問は結構あります。
タイマー処理の例
V4
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=4527;id=excel
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=15743;id=excel
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=18169;id=excel

V3
http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=9212;id=Excel
http://www21.tok2.com/home/vbalab/bbs/c-board.cgi?cmd=ntr;tree=11036;id=Excel

【29650】Re:マクロを使ってリアルタイムで更新さ...
回答  Kein  - 05/10/10(月) 14:49 -

引用なし
パスワード
   こんな感じでどうかな ? シートモジュールに入れてみて下さい。

Private MyF As String

Private Sub Worksheet_Activate()
  With ActiveSheet
   If .ProtectContents Then .UnProtect
   .Protect UserInterfaceOnly:=True
  End With
  If MyF = "" Then
   MyF = Application.DefaultFilePath & "\" & _
   Format(Date, "yyyy_mm_dd") & "日中足.txt"
  End If
  If Dir(MyF) = "" Then
   Open MyF For Output Access Write As #1
   Print #1, Format(Date, "yyyy/mm/dd")
   Close #1
  End If 
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range
  Dim St As String

  If Dir(MyF) <> "" Then
   St = ""
   For Each C In Target.EntireRow.SpecialCells(2)
     St = St & C.Text & ","
   Next
   St = St & Format(Time, "hh:mm:ss")
   Open MyF For Append Access Write As #1
   Print #1, St
   Close #1
  End If
End Sub

【29699】りん さん,早速のアドバイスありがとうご...
お礼  miku2000  - 05/10/12(水) 8:29 -

引用なし
パスワード
   昨日リアルタイムで更新される画面を保存しようとしてみたところ、どうも上手く行きませんでした。。。。。

根本的に何か間違っているようです。。。。。


紹介していただいたページ、今後の参考にさせて頂きます。

新たな疑問が生まれてしまったので、別に投稿することにします。


今後ともよろしくお願いします!

【29700】Kein さん、ありがとうございます!
お礼  miku2000  - 05/10/12(水) 8:33 -

引用なし
パスワード
   まだまだ私はこれを理解できるレベルに到達していないのですが。。。

勉強します!


実は昨日リアルタイムで更新される画面を保存しようとしてみたところ、どうも上手く行きませんでした。。。。。

根本的に何か間違っているようです。。。。。


新たな疑問が生まれてしまったので、別に投稿することにします。


今後ともよろしくお願いします!

9032 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free