365办公网我们一直在努力
您的位置:365办公网 > excel表格制作 > 怎么在excelvba中加入时间控件类的计时器?(excel计时器)

怎么在excelvba中加入时间控件类的计时器?(excel计时器)

作者:365办公网

返回目录:excel表格制作

需要用到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中通过菜单“工具-宏-安全性”把宏的安全级别设为中或低以允许宏的运行,否则宏不能运行也得不到你要的结果)


本文标签:

相关阅读

关键词不能为空

ppt怎么做_excel表格制作_office365_word文档_365办公网