1. excel计时器不用vb
VB6.0制作倒计时计时器如下：
1、打开VB6.0，新建一个工程，在窗体中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，添加一个计时器控件，添加一个文本框。
2、将文本框的Text属性清空，将字体Font属性调整为小四，便于观察，将背景色属性Backcolor调为浅黄色。
3、双击“设置倒计时”命令按钮，进入代码编辑窗口。
4、双击“启动倒计时”命令按钮，进入代码编辑窗口。
5、双击“计时器”控件，进入代码编辑窗口。
6、在代码编辑窗口的通用段进行变量定义：Dim h As Integer, m As Integer, s As Integer '分别存储时分秒Dim a As Integer。
7、双击窗体，进入代码编辑器，在 Form_Load事件中写入代码：Timer1.Enabled = False '先关闭计时器。
8、关闭代码窗口，按下F5运行程序，单击“设置倒计时”命令按钮，弹出输入对话框，此时输入分钟数为1，确定。
9、单击“启动倒计时”命令按钮，文本框显示倒计时时间，并时刻变动，至此实现了倒计时功能。
2. excel vba计时器
需要用到VBA编程，以下是前人的留贴，供参考
操作步骤：
1、在Excel工作表里按Alt+F11,打开VBA编程界面
2、在VBA编程界面的工具栏，第二个按钮拉下来选模块
3、在左边栏的你需要计时器的那个工作表名字上双击，打开右边的程序书写区域
4、把下面的程序代码粘贴进去
PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)
IfTarget.Cells.Count=1And(NotIntersect(Target.Cells(1),Range("B1"))IsNothing)Then
[B1]="开始时间"
[C1]=Format(Now(),"Hh:mm:Ss")
[D1]=Timer
[D1].Font.ColorIndex=2
[B2:D3].ClearContents
EndIf
IfTarget.Cells.Count=1And(NotIntersect(Target.Cells(1),Range("B2"))IsNothing)Then
[B2]="结束时间"
[C2]=Format(Now(),"Hh:mm:Ss")
[D2]=Timer
[D2].Font.ColorIndex=2
[B3]="总共用时"
[C3]=Format([D2]-[D1],"#0.00")
[D3]="秒"
EndIf
Target.Offset(1,0).Select
EndSub
5、关闭VBA编程界面回到工作表
6、双击B1开始计时，双击B2终止计时，用时结果在C3单元格
（特别提醒：要在Exce中通过菜单“工具－宏－安全性”把宏的安全级别设为中或低以允许宏的运行，否则宏不能运行也得不到你要的结果）
3. office计时器
1、本次操作演示使用的Office办公软件为Power Point 2013版本。
2、新建一个PowerPoint文档，文档用于演示如何在PowerPoint中制作倒计时的设置操作。
3、点击菜单栏中的文件工具，在打开的文件工具中选择新建，单击打开。
4、选择新建选项下的教育选择项，单击打开教育类型。
5、这时搜索计时器，这样PowerPoint中的计时器模板就搜索出来了，单击选择所需的计时器模板新建一个新的PowerPoint文档。
6、然后计时器模板就设置好了，计时器模板有三十秒，一分钟，两分钟，三分钟，选择所需的时间设置即可。
7、然后点击播放幻灯片，点击启动计时器，此时的计时器就开始倒计时运作啦。
4. 计时公式函数excel
在应发工资格式设置公式=10*(全月上班天数汇总的工时).+10*(周一至周五晚上加班工时汇总).*0.5+10*(周六至周日加班工时汇总)*1+10*(法定假加班工时汇总)*2+10*(有薪假工时)工资表说明:A工号+B姓名+C小时工资(10)+D全月上班天数汇总的工时+E周一至周五晚上加班工时+F周六至周日加班工时汇总+G法定假加班工时汇总+H有薪假工时=I应发工资格-全月上班天数汇总的工时=所有白天晚上假日加班的所有工时汇总-周一至周五晚上加班工时=仅是周一至周五的晚上上班工时汇总-周六至周日加班工时汇总=周六至周白的白天+晚上上班工时汇总-法定假加班工时汇总=例如:元旦,清明,五一,端五,中秋,国庆,春节规定的假期.-有薪假工时=例如:有薪病假,工伤假,年假,生育假等,地方或者公司规定有工资的假期.
5. excel 计时器
操作步骤：
1、在excel工作表里按alt+f11,打开vba编程界面
2、在vba编程界面的工具栏，第二个按钮拉下来选模块
3、在左边栏的你需要计时器的那个工作表名字上双击，打开右边的程序书写区域
4、把下面的程序代码粘贴进去
privatesubworksheet_beforedoubleclick(byvaltargetasrange,cancelasboolean)
iftarget.cells.count=1and(notintersect(target.cells(1),range("b1"))isnothing)then
[b1]="开始时间"
[c1]=format(now(),"hh:mm:ss")
[d1]=timer
[d1].font.colorindex=2
[b2:d3].clearcontents
endif
iftarget.cells.count=1and(notintersect(target.cells(1),range("b2"))isnothing)then
[b2]="结束时间"
[c2]=format(now(),"hh:mm:ss")
[d2]=timer
[d2].font.colorindex=2
[b3]="总共用时"
[c3]=format([d2]-[d1],"#0.00")
[d3]="秒"
endif
target.offset(1,0).select
endsub
5、关闭vba编程界面回到工作表
6、双击b1开始计时，双击b2终止计时，用时结果在c3单元格
（特别提醒：要在exce中通过菜单“工具－宏－安全性”把宏的安全级别设为中或低以允许宏的运行，否则宏不能运行也得不到你要的结果）
6. excel中计时的格式
1时间函数
当单元格中输入现在的时间函数=now()时
便会返回现在的年月日，时分秒
yyyy/MM/dd aaaa hh:mm:ss
代表年月日 星期 时分秒
表格计算一次时，数据也会自动更新，但不会每秒更新。要每秒进行更新，需要使用VBA进行实现
2创建VBA代码
创建一个模块，并创建一个名为update的过程，输入VBA代码：
VBA代码
Sub update()
DTime = Now + TimeValue("00:00:01")
Application.OnTime DTime, "update", , True
With ThisWorkbook.Sheets("Sheet1").Range("A1")
.Value = Now
.NumberFormat = "yyyy/MM/dd aaaa hh:mm:ss"
End With
End Sub
将文件另存为xlsm格式，要不然重新打开文件时这段代码就消失了！
3代码解释
用到的是application.ontime表达式：
OnTime(EarliestTime, Procedure, LatestTime, Schedule)
说明：
使用 Now + TimeValue(time) 可安排经过一段时间（从现在开始计时）之后运行某个过程。使用 TimeValue(time) 可安排某个过程只运行指定的时间。
3运行结果
在开发工具中找到宏，执行名字为update过程
便能得到上述效果，如果想打开文件自动更新，那么在thisworkbook中创建一个open事件过程
7. 计时器.exe
日期、时间、组件数、运转时间修改：改SETTING（参数写入改1）→下二页（时间SETTING） →预改的设定，输入数据→参数写入改0→取消Sensor by pass 运转时间（加工部品数）归零：按POS→操作→运转0（组件0）→EXE 加工时间显示、标贴：※须先有加工时间显示才可标贴加工时间 加工时间显示：选择加工程序→AUTO→按RESET→加工→按RESET或执行M02、M30时 →右软键（TIME）→TIME（ 则记录程序号NO.、加工时间TIME） 标贴加工时间：选择加工程序→OPRT（操作）→右软键（INS-TM）→光标移至档头→按INS-TM
- 相关评论
- 我要评论
-