Excel で ストップウォッチ

夏休み中の息子(小1)のためにExcelで計算ドリルを作りました。
いわゆる「計算カード」のExcel版です。
時間計測が必要なのでVBAを利用しました。

Public myTime As Date
Public myFlg As Boolean
Sub StopWatch()
If myFlg = False Then
myTime = Now
myFlg = True
Else
MsgBox “かかったじかん ” & Format(Now – myTime, “h:mm:ss”)
myFlg = False
End If
End Sub

ボタンに「Sub StopWatch」を登録します。
始める時と、終わった時にボタンを押します。
さて。これで効果が上がるかどうか・・・。

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です