微妙なVBAサンプルシリーズ１　動くグラフ

はじめに
シート
コード
できあがり

はじめに

今回はタイマーを使ったものにしよう、と作り始めたところ、

まあ！　一体どこで使うというのかしら！

といったものができあがりましたので、適当に紹介だけします。

シート

f:id:vba-belle-equipe:20160330124144p:plain

何を表しているかわからない表
何を表しているかわからないグラフ
何が開始されるかわからないボタン

をご用意ください。*1

コード

ご用意できましたら、標準モジュールに

表の値をランダムに変える
1 を1秒ごとに10秒まで繰り返す

マクロを作っていきましょう。

Sub startAnimation()
  Dim t As Double
  Dim s As Double
  Dim cnt As Long
  t = Timer()
  Do
    s = Timer() - t
    If s > 1 Then
      cnt = cnt + 1
      t = Timer()
      Call inputRandam
    End If
    If cnt >= 10 Then Exit Do
    DoEvents
  Loop
End Sub

Sub inputRandam()
  Dim i As Long
  For i = 2 To 5
    Cells(i, 2) = Int(Rnd * 10)
  Next
End Sub