VBA処理を遅らせる

VBAでセルの色をあるセルを信号みたいに点滅させようと考えています。ゆっくりと点滅するように処理を遅らせるにはどうすればいいのでしょうか。よろしくお願いします。

No.1 ベストアンサー 回答者： marbin 回答日時： 2004/10/15 18:21

標準モジュールの一番上に

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

を記述し、

マクロ記述の中に

Sleep 400

を入れてみてください。数字の分だけ
時間を開けられます。
（数字は変えられます　400で0.4秒）

※当方エクセル2002

この回答へのお礼

これです！これを知りたかったんです。ありがとうございました。

お礼日時：2004/10/15 21:50

No.4 回答者： imogasi 回答日時： 2004/10/15 20:10

随分簡単なんですが、例としてＣ１セルをクリックするとしばらくセル色がブリンク（点滅）するように見えます。

セルのSelectionChangeイベントです。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$1" Then
For i = 1 To 20 '１０回ブリンク
If Cells(1, "C").Interior.ColorIndex = -4142 Then
Cells(1, "C").Interior.ColorIndex = 9
Else
Cells(1, "C").Interior.ColorIndex = -4142
End If
stime = Timer + 0.5
Do
Loop Until Timer >= stime
Next i
End If
End Sub
０．５を小さくすると点滅がせわしくなります。
ただ、「待機ループ内で時刻が午前0時になるとTimer関数値はゼロに戻ってしまうため、無限ループになってしまう」。
http://www.tsware.jp/tips/tips_044.htmの下の方に回避した方法が紹介されてます。
ただ、いつブリンクを止めるのか、ブリンク中の入力の問題など、その関連で使えるのか自信なし。

No.3 回答者： marbin 回答日時： 2004/10/15 18:34

補足です。

SLEEP 400

の数字の部分はセルの値から設定することも
可能です。

No.2 回答者： marbin 回答日時： 2004/10/15 18:31

シート1のＡ１セルに数字を入れ、下のマクロを標準モジュールに

コピペし1と2を実行してみてください。
Ａ１セルの数字を変えてみたら回転数が変わります。

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
------------------
Sub irorurretto1()
Dim i As Long
Dim myColorIndexArray() As Variant
myColorIndexArray = Array(1, 3, 10, 20)
For i = 0 To UBound(myColorIndexArray)
With Range("D3").Offset(, i).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("D3").Offset(, i).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("G4").Offset(i, 0).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("G4").Offset(i, 0).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("F7").Offset(, -i).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("F7").Offset(, -i).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("C6").Offset(-i, 0).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("C6").Offset(-i, 0).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
End Sub
----------
-----------
Sub irorurretto2()
Dim k As Integer
Dim i As Long
Dim myColorIndexArray() As Variant
For k = 1 To Worksheets("Sheet1").Range("a1").Value
myColorIndexArray = Array(1, 3, 10, 20)
For i = 0 To UBound(myColorIndexArray)
With Range("D3").Offset(, i).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("D3").Offset(, i).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("G4").Offset(i, 0).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("G4").Offset(i, 0).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("F7").Offset(, -i).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("F7").Offset(, -i).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
For i = 0 To UBound(myColorIndexArray)
With Range("C6").Offset(-i, 0).Interior
.ColorIndex = myColorIndexArray(i)
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
With Range("C6").Offset(-i, 0).Interior
.ColorIndex = xlNone
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Sleep 40
Next
Next k
End Sub
---------