アルゴリズム
最大値や平均の求め方
セルに「関数」を書き込むことにより、
Excelの機能をそのまま利用する。
Range("B2").Value = "=MAX(A2:A5)"
経過時間の算出
「計測前」のtimerの内容を記録しておき、
計測後にその差をとって「経過時間」を算出する。
Timer関数：午前0時から
経過した秒数を
表す
Dim MyTime As Single
MyTime = timer
MsgBox "計測中(" & a & "秒コース)"
Dim b As Integer
b = timer - MyTime
シート上のグラフの削除
「ChartObjects」オブジェクトを使って、グラフの個数のカウントや削除を行う
ActiveSheet.ChartObjects("グラフ １").Delete
「グラフ１」を削除する
If ChartObjects.Count > 0 Then ChartObjects.Delete
シート上のグラフの個数が0より多ければ
（シート上にグラフがあれば）
グラフを全削除
シート上のグラフを全削除