[[20190612093008]]　『処理スピードを一定にしたい』（還暦）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『処理スピードを一定にしたい』（還暦）

お尋ねします。
提示しているコードですが、所有しているパソコンで処理スピードが変わります。
一定に保つことはできるでしょうか。
Dim myTimer As Double

 myTimer = Timer
 Do While Timer < myTimer + 2 
  Worksheets("回数").Range("H18").Value = Int(Rnd * Worksheets("回数").Range("H15").Value + 1)
   Loop

＜ 使用 Excel：Excel2003、使用 OS：Windows10 ＞

---

PC性能差があってもTimer値は同じなので、Timerによるループを2段構成にして、一定時間の待ちを入れてはどうでしょうか。 そのそも、Excelは表計算アプリであり、リアルタイムな動作には向いていませんので、限度がありますが。
（???） 2019/06/12(水) 10:16

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.