プログラムを動かすためには

質問

概要としてはスピードの値を入力して開始をクリックするとSheet1からSheet8まで順番にシートを表示して簡単なアニメーションができるというプログラムを動かしたいのですが、思うような動き方をしてくれません。お知恵を拝借できればと思います。よろしくお願いします
（OSの32ビットと64ビットが関係しているような気がしますが解決ができない状態です）
動作環境（windows8.1、Excel2013）

プログラムコードは以下になります。
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Sample()
nSec = Worksheets("目次").Range("C5")
For i = 1 To 8
Sheets("Sheet" & i).Select
Sleep nSec
Next i
Sheets("目次").Select
End Sub

回答No.2

山田 太郎（@f_a_007） · ベストアンサー

以下の Sample1()とSample2()を作成してテスト。両者は、かなり似た動きをしました。が、異なっている点もあります。ただ、20ミリ秒では瞬間過ぎて・・・・。せめて1000ミリ秒（=1秒）前後を指定した方がいいです。

Sample1()…Pause中もExcelは動作する。
Sample2()…Sleep中はExcelも停止する。

Excel のシートを切り替えるだけであれば Sample2()のやり方でOK。でも、次の切り替えまでの待機中に別のSub()を動かしたいのであればSample1()のやり方。Sample2()ではテストしていませんが、解説を読めばそのようです。

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Sample1()
　　Dim I As Integer
　　For I = 1 To 8
　　　　Sheets("Sheet" & I).Select
　　　　Pause 1
　　Next I
　　Sheets("目次").Select
End Sub

Sub Sample2()
　　Dim I As Integer

　　For I = 1 To 8
　　　　Sheets("Sheet" & I).Select
　　　　Sleep 1000
　　Next I
　　Sheets("目次").Select
End Sub

【標準モジュール】

Public Sub Pause(ByVal PauseTime As Single)
　　Dim Finish As Single

　　Finish = Timer + PauseTime
　　Do
　　　　DoEvents
　　Loop Until Timer > Finish
End Sub

お礼

ありがとうございます。Sample1のバージョンで目次シートのC5セルに入力した数値で動かすスピードを変えられるといいのですが、目次シートのC5セルの入力値をどのようにプログラムに組み込めばいいか教えていただけると助かります。

回答No.3

山田 太郎（@f_a_007）

ExcelのVBAなんて書くのは生まれて初めて。質問者が提示したコードだけが頼り。で、次に示すのも質問者の真似。

Sub Sample1()
　　Dim I　　As Integer
　　Dim nSec As Single

　　nSec = Worksheets("目次").Range("C5")
　　For I = 1 To 8
　　　　Sheets("Sheet" & I).Select
　　　　Pause nSec
　　Next I
　　Sheets("目次").Select
End Sub

nSec は　Single 型ですので、1.2秒と指定します。これは、なお、1.2秒＝1200ミリ秒です。

お礼

再度のごかいとうありがとうございました。大変参考になりました。

回答No.1

uruz

Sleep に渡す引数の単位はミリ秒(1/1000秒)ですよ。
nSec=20 では0.16秒でループを脱けてしまいます。