ExcelにおけるDDEデータのイベントプロシージャについて

こんにちは。Wendy02です。 >DDEは他のjavaアプリケーションから、データを取り込んでいます。 そういう方法もあるのですね。知りませんでした。 Javaからなら、OLEもできるような気がしますが・・・。 以前の方の話を聞くと、DDEで、そんなに速度低下はしない、といわれたのですが、実際に見たわけではないので、はっきりと言えないです。（私が試したのは、旧式の方法でExcelで実現しただけなので、話にならないほど遅かったです) >上記ご指摘いただいたマクロの５秒を１秒ごとにすれば、問題解決なのです。 >処理速度の低下により○秒ごとにマクロを実行するということが崩れてしまったりはしないでしょうか。 かなり厳しいですね。OnTime メソッド自体では、それほどのロスは発生しませんが、DDE自体のタイムロスは存在しませんか？また、マクロは、スクリプト言語ですから、やはり遅いです。ただ、それは、そのデータの捕まえ方（イベント)にもよるような気がします。 Excelのワークシート上は、だいたい、どんなに遅くても、100ms 程度と見てよいと思いますが、もう一度、振り出しに戻ってみても良いような気がします。 >想定される範囲でご回答いただけましたら幸いです。 出来る限りのことはさせていただきます。それは、この話は、私自身では、もう2年以上、うまくいかない質問として残っているからです。もしも、この人はダメだなって思ったら、すぐにダメダシしていただいてもよいです。 <私の現在の計画> ・そのまま1秒ごとでロスを計る（ロスの計り方はあります) ・Win32 API関数を使用する ・Worksheet_Calculate イベントとNow()関数による連携（解決には至っていない) ・Java の出力を直接、DDE関数で取る（仕様書が必要かもしれません) （ことごとく失敗する可能性もあります) この後は、まだ、勉強が足りませんが、VB6 で別途ツールを作成する、というところがあります。そのために、本を購入したのですが、まだ、ちゃんと読んでいません。 今、ちょっと忙しいので、一つずつ、私の考えを展開したいと思っております。至らないとは思いますが、こちらこそ、よろしくお願いします。

こんばんは。 それは、何かの測定器ですか？逆に、もしよろしかったら、どんな機械で、どんな風に設定するとか教えていただきたいと思っております。この種の回答は、まだ、実験が出来ないので、これで、4回目になりますが、まだ、想像の範囲なんです。（すみません、勝手なことを言って) DDE は、DDE関数はあり、やり方は分かるのですが、実際の試すための道具がないということで、やったことがありません。 >イベントプロシージャの（worksheet_change)で試してみたのですが、 やっぱりそうなんですね。前回の質問の時には、ここら辺りが曖昧になってしまいました。 手前勝手な話はここまでにして、私の知る範囲では、OnTime メソッドを使用します。 TimerStart で、マクロを動かします。以下は、A1 にデータが入ってくるものとして、5秒ごとにチェックし、A1 のデータが変更あったら、2列目に、その変更のデータを書き写すというマクロです。付録として、解除用のマクロがついています。ただし、別のマクロが動いている場合は、たぶん、出来ないと思います。 '------------------------------------------- '標準モジュールが最適 Private myOnTime As Date 'OnTime 用の時間データ Private BackData As Variant '前回のセルのデータ Sub TimerStart() 　　'タイマー 　　'ここにチェックマクロを置く 　　If BackData = Empty Then 　　　 BackData = Cells(1, 1).Value 　　　 Cells(65536, 2).End(xlUp).Offset(1).Value = Cells(1, 1).Value 　　ElseIf BackData <> Cells(1, 1).Value Then 　　　 Cells(65536, 2).End(xlUp).Offset(1).Value = Cells(1, 1).Value 　　　 BackData = Cells(1, 1).Value 　　End If 　　'次のチェック時間 (以下は5秒後) 　　myOnTime = Now() + TimeValue("00:00:05") 　　Application.OnTime myOnTime, "TimerStart" End Sub Sub TimerStop() 'タイマー停止 　　On Error Resume Next 　　Application.OnTime myOnTime, "TimerStart", , False 　　On Error GoTo 0 　　If Err.Number > 0 Then 　　　MsgBox "設定が残っていません。" 　　Else 　　　MsgBox "設定が解除されました。" 　　End If End Sub