爱华网用Excel做个秒表计时器 ppt秒表计时器下载
下面我们以Excel 2003为例来说明其制作过程，示例文件在文章结尾处提供下载。
1.在“Sheet1”工作表中打开“Visual Basic 工具栏”。方法是在菜单栏中右击鼠标，在弹出的快捷菜单中选择“Visual Basic ”。单击“控件工具箱”按钮，打开“控件工具箱”。
选择“命令按钮”工具，在工作表中画3个按钮，其默认名称依次为“CommandButton1”、“CommandButton2”、“CommandButton3”。
2.按Alt+F11，打开VBA编辑器，在“工程”窗口中双击“Sheet1(Sheet1)”，在右侧的代码窗口中粘贴下面的代码：
Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("b8") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime 100
hh = TTime 3600
TTime = TTime Mod 3600
MM = TTime 60
SS = TTime Mod 60
Range("b8").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("b8") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
StopIt = True
End Sub
Private Sub CommandButton3_Click()
Range("b8").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
说明：上述代码将在B8单元格中显示秒表时间，也可以将其改为其他单元格。代码中使用了Timer函数，Timer函数返回一个Single，代表从午夜开始到现在经过的秒数。本例中未消除跨零点错误，因而请勿跨零点使用。
3.关闭VBA编辑器。在工作表中右击“CommandButton1”按钮，在弹出的菜单中选择“属性”，弹出“属性”窗口。
在“属性窗口”中，将“CommandButton1”按钮的“Caption”属性改名为“开始”。
然后分别将“CommandButton2”、“CommandButton2”按钮的“Caption”属性改为“停止”和“复位”。
在“Visual Basic”工具栏中单击“退出设计模式”按钮退出设计模式。
4.设置B8单元格的单元格格式为“文本”，调整单元格大小、字体和背景，并调整3个按钮到适当的位置。然后依次单击各个按钮进行测试。
示例文件下载：Excel秒表.xls
更多阅读
怎样用纸杯做灯笼 用一次性杯子做灯笼
环保性怎样用纸杯做灯笼——工具/原料一次性纸杯两个,剪刀一把, 双面胶, 黄色的米奇胶带纸, 红色的线, 红色的颜料, 一副一次性筷子怎样用纸杯做灯笼——步骤/方法怎样用纸杯做灯笼 1、?纸杯一个怎样用纸杯做灯笼 2、用剪刀把一
怎么用豆浆机做鲜榨果汁 橙汁 鲜榨橙汁自动售货机
怎么用豆浆机做鲜榨果汁 橙汁——简介现在很多豆浆机都是多功能的，其中就有做果汁的功能，做出来味道也是很不错嘀，这里介绍一下做橙汁的方法，简单美味，其他水果类似操作。怎么用豆浆机做鲜榨果汁 橙汁——方法/步骤怎么用豆浆机做鲜榨果
怎么做蛋糕用烤箱做戚风蛋糕 8寸戚风蛋糕烤箱温度
怎么做蛋糕（用烤箱做戚风蛋糕）——简介纯戚风蛋糕是不是有点单调了？来点小装饰吧！现在这款是葡萄干戚风蛋糕，也可以随着自己的口味来改变哟~8寸的哟！烤箱：客浦TO5332烤箱怎么做蛋糕（用烤箱做戚风蛋糕）——食材鸡蛋 5个低筋面粉 90克细砂糖
做个文明好少年 争做文明好少年ppt
尊敬的各位领导、老师，亲爱的同学们：大家好！我是来自三年级四班的周于涵。今天我演讲的题目是《做个文明好少年》。记得有人说过：“人，一撇一捺，写起来容易做起来难。我们要经常性地思考，我在做什么，我做得怎样，我要成为怎样的人。”做怎样
图解用电饭煲做蛋糕 微波炉做蛋糕的方法
有很多朋友喜欢自己在家DIY，下面我教朋友们怎么在家用电饭煲做蛋糕，按照我的方法保准你能做出香甜美味的蛋糕来，请看图解：图解用电饭煲做蛋糕——工具/原料鸡蛋三个，面粉满满三瓷勺，牛奶，白糖，淀粉一小勺，泡打粉一小勺（可用可不用，用了可以使