excelboss计时器(excel计时器不用vb)

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