**************************************
0.5秒間隔で色のついたセルを移動させるマクロです。
そのセルを目で追いかけるけば目の体操になる・・・かな？
**********************************************
マクロの実行を一時停止させる
Application.Wait Now() + TimeValue("00:00:00")
この1文でマクロの実行を指定時間停止させることができます。
10秒停止の設定
Application.Wait Now() + TimeValue("00:00:10")
10秒間マクロの実行停止を指定します。
0.5秒を設定する（1秒以下）
Application.Wait [Now() + TimeValue("00:00:00.5")]
1秒以下を指定する場合は、大かっこで囲んで、1秒以下の時間を ピリオド+数字 を入力します
-------------------------------------------------------
マクロ
Sub 目の体操()
Dim r As Long '行番号を格納します
Dim c As Long '列番号を格納します
Dim i As Long 'ループに使用します
For i = 1 To 30 '30回繰り返します
Application.Wait [Now() + TimeValue("00:00:00.5")]
'セルについた色を無しにします
Selection.Interior.ColorIndex = 0
'乱数を発生させて行列番号を決定します
r = Int(30 * Rnd() + 1) '最大30行目まで
c = Int(21 * Rnd() + 1) '最大21列目まで
Cells(r, c).Select '
Cells(r, c).Interior.ColorIndex = 1 'セルに黒色を付けます
Next i
'セルについた色を無しにして、次に回します
Selection.Interior.ColorIndex = 0
MsgBox "done"
End Sub
****************************************
このマクロでは 30行、21列固定で作成しました。
ご自身の画面のサイズなどの合わせて変更してください。
個人用マクロブックについてはこちら
リボンに登録についてはこちら
＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／
