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

質問

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

回答No.1

noname#6715 · ベストアンサー

使っていませんが、作れると思います。
こういうことですか？
'------標準モジュール------
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

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