怎么用Excel做一个计时的妙表

Answer 1

不精确的用ontime做，很晚了，我还是给你写了个精确的秒表，
加一个label1 ,二个commamnd
下面是个精确的秒表。
Dim b As Boolean
Private Sub CommandButton1_Click()
Dim t As Single
t = Timer
b = True
Dim n As Single
Dim s As String
Do Until Not b
DoEvents
n = Timer - t

s = Int(n / 3600) & ":"
n = n - Int(n / 3600) * 3600
s = s & Format(Int(n / 60), "00") & ":"
n = n - Int(n / 60) * 60
s = s & Format(Int(n), "00") & " "

n = n - Int(n)

n = Int(n * 100)

s = s & Format(n, "00")

Label1.Caption = s
DoEvents
Loop
End Sub

Private Sub CommandButton2_Click()
b = False
End Sub

Answer 2

到excelhome论坛去看看吧。

Answer 3

呵呵，如果没有b = False 这句就是一个死循环了。
不过这也是没办法的办法

Answer 4

能不能具体点?