Excelのこととか色々

Excel のこととか楽天とか いろいろ書いてみます・・・

【Excel/VBAのこと36】Excel で目の体操ゲーム作る

   f:id:tuna-kichi:20200223230814p:plain

 

**************************************

 

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列固定で作成しました。

ご自身の画面のサイズなどの合わせて変更してください。

 

 

 

 

個人用マクロブックについてはこちら

www.tuna-kichi.com

 

リボンに登録についてはこちら

www.tuna-kichi.com

 

 

_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/