|
Sub Wait(Wait2 As Single)
Dim Time As Double
Time = Now + Wait2 / 86400
Do
Loop Until Now >= Time
End Sub
Sub NanaSeg()
Dim Seg(8) As Shape
Dim Deta As String
Dim 文字数 As Long
Dim 抽出 As Long
Dim Ransuu As Long
Dim i As Long
Set Seg(1) = ActiveSheet.Shapes("フォーム 1")
Set Seg(2) = ActiveSheet.Shapes("フォーム 2")
Set Seg(3) = ActiveSheet.Shapes("フォーム 3")
Set Seg(4) = ActiveSheet.Shapes("フォーム 4")
Set Seg(5) = ActiveSheet.Shapes("フォーム 5")
Set Seg(6) = ActiveSheet.Shapes("フォーム 6")
Set Seg(7) = ActiveSheet.Shapes("フォーム 7")
Set Seg(8) = ActiveSheet.Shapes("フォーム 8")
For i = 1 To 8 Step 1
Seg(i).Fill.ForeColor.SchemeColor = 63
Next
Wait 5
Randomize
Ransuu = Int(77 * Rnd + 1)
Deta = Worksheets("セグデータ").Range("A" & Ransuu).Value
.
.
.
「For i = 1 To 8 Step 1
Seg(i).Fill.ForeColor.SchemeColor = 63
Next」
の部分を処理してから5秒経った後に次の処理に移りたいのですが実際は5秒のウエイトの後にまとめて処理されてしまいます。
セルに文字を表示させるのを試しにやってみたらちゃんとウエイト前に処理できました。
シェイプは別扱いなのでしょうか??
どなたか解決方法を教えて下さい。
|
|