皆様こんにちは
温度計を導入しまして、リアルタイムに温度を取り込むアドインがついていました。いまsheet1のA1からG1まで次々値が変化するセルがあります。
そこで10秒おきにA1からG1までの値だけを2列下にコピーするコードを実行してみたのですが・・・
'-----------------------------
Sub 一定秒おきに実行()
Dim i As Integer
Static k
For i = 1 To 5
If k = "" Then k = 2
Application.Wait Now() + TimeValue("00:00:01")
DoEvents
下に数値のみを貼り付ける
Next
End Sub
'---------------------------------------
Sub 下に数値のみを貼り付ける()
Range("A1:G1").Select
Selection.Copy
Range("A3:G3").Select
Selection.PasteSpecial Paste:=xlPasteValues End Sub
'--------------------------------------
その結果 Sub 下に数値のみを貼り付ける()をVBエディタの標準ツールバーの実行をクリックするたびにリアルタイムに値がコピーされるのですが、Sub 一定秒おきに実行()を実行すると、画面が5回ちらつくのでコピーはされてるみたいですがマウスポインタが砂時計になって、その間アドインからの数値の更新も止まってしまいます。
Application.Wait だけにマクロが停止していると思いますが、これには大変困ってしまっています。
マクロをとめないで一定時間置きに "Sub 下に数値のみを貼り付ける()"を実行する方法はないでしょうか。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんにちは。
Wendy02 です。#1 KenKen_SP さんが回答されていますが、私も、同意見ですが、温度を測るアドインというと、DDE を使ったものなんかがあったと思うのですが、話に聞くだけで、実際に、やったことはありませんので、ちょっと気がかりです。(つまり、めちゃめちゃ重いのです)
それから、まだ他に手があったような気がしますが、今は、このぐらいです。
'-----------------------------
Dim j As Integer
Sub 一定秒おきに実行()
Dim i As Integer
Dim myTime As Date
Static k '不明
myTime = Now
j = 0
For i = 1 To 5
If k = "" Then k = 2 '不明
Application.OnTime myTime + TimeValue("00:00:10") * i, "下に数値のみを貼り付ける"
Next
End Sub
'---------------------------------------
Sub 下に数値のみを貼り付ける()
Range("A3:G3").Offset(j).Value = Range("A1:G1").Value
j = j + 1
End Sub
コードまでありがとうございました。
おかげさまで完成しました
たしかにDDE通信を使っているとのことです。よく解りませんが・・・
全然重くは感じませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
小数点以下を繰り上げたものを...
-
エクセルのラベルの値(文字列...
-
2つの数値のうち、数値が小さい...
-
Excel 0目標に対して数字があ...
-
EXCELで条件付き書式で空白セル...
-
勃起する時って痛いんですか? ...
-
エクセルで数式の答えを数値と...
-
エクセル指定した範囲からラン...
-
MIN関数で空白セルを無視したい...
-
知能テストは、今。 義務教育課...
-
ある範囲のセルから任意の値を...
-
精液の落とし方を教えてください
-
検便についてです。 便は取れた...
-
化合物のモル吸光係数データベ...
-
至急!尿検査前日にオナニーし...
-
EXCELで式からグラフを描くには?
-
【Excelで「正弦波」のグラフを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
白血球が多いとどんな心配があ...
-
勃起する時って痛いんですか? ...
-
検便についてです。 便は取れた...
-
精液の落とし方を教えてください
-
EXCELで条件付き書式で空白セル...
-
イタリアから帰国する際、肉製...
-
精子が黄色?
-
2つの数値のうち、数値が小さい...
-
これって喉仏ですか? 私は女性...
-
エクセル指定した範囲からラン...
-
甲状腺が腫れているが血液検査...
-
風俗店へ行く前のご飯
-
エクセルのラベルの値(文字列...
-
小数点以下を繰り上げたものを...
-
ある範囲のセルから任意の値を...
-
エクセルで数式の答えを数値と...
-
知能テストは、今。 義務教育課...
-
MIN関数で空白セルを無視したい...
おすすめ情報