Excelのセルに更新があれば、他のセルに渡したい

質問

１．更新されたExcelのセル内の数値をとりだしたい。
２．其のデータを順にセルに渡していきたい。

Excel にて、DDEサーバからデータをうけとっています。
セルA1に受け取ったデータは1分間に何度も更新されます。
其のデータを更新されるたびにB1,B2,B3,B4,・・・のセルに値を
入れていきたいのですがうまくできません。
その理由は、A1セル内の式をコピーしてしまうからです。
A1のセルで更新された「数値のみ」をB1,B2,B3,B4,・・・のセルに
コピーするにはどうすればよいでしょうか？

回答No.1

keithin · ベストアンサー

基本的には。

手順：
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Calculate()
application.enableevents = false
range("B65536").end(xlup).offset(1).value = range("A1").value
application.enableevents = true
end sub

Ａ１のＤＤＥが更新される都度、自動転記します。

＃ただし
あなたの実際のワークシートがご相談に書かれているのとずいぶん違う場合は、意図しない結果が起きるかも？しれません。
Ａ１セルにＤＤＥの式が１個書かれているだけのサンプルシートを作成して練習してみてから、改めて実際のワークシートに適用を検討してみて下さい。

お礼

問題なく実現できました！
迅速・正確なご回答ありがとうございます！