陸上競技のプログラムの作り方

６月頃小学生の陸上大会を開催する予定です。そこでプログラムを作らなければならないわけですが，いつもはエクセルで作って，打ち込みしていますが，マクロもアクセスも使わず非効率的です。もちろん，計時は手動です。
簡単に入力できるフォームのようなものを皆さん使ってないですかね。予選の結果を入力すると上位８名の決勝進出者をレーンごとにわけるのですが，いつも入力ミス等が多く困っています。

No.1 ベストアンサー 回答者： noname#6715 回答日時： 2003/12/25 13:23

使っていませんが、作れると思います。

こういうことですか？
'------標準モジュール------
Public Declare Function GetTickCount Lib "KERNEL32" () As Long

'GetTickCount・・・ミリ秒単位で起動してからの
' 時間をはかる
Public StartTime As Long
Public Time As Long
'--------------------------
'-------UserForm-------
Private Sub Command1_Click() 'スタートボタン

StartTime=GetTickCount/1000

End Sub

Private Sub Command1_Click() '測定終了

Time = GetTickCount-StartTime
Sheet1.Cells(1,a) = Time

End Sub
'-------------------------------------

No.2 回答者： noname#6715 回答日時： 2003/12/25 13:27

#1です。

注意)このプログラムは秒単位のみの表示ですから
http://oshiete1.goo.ne.jp/kotaeru.php3?q=737479
には対応していません