首页 >

怎么在excelvba中加入时间控件类的计时器? – 网络|

天天酷跑人气怎么获得,word里面怎么排序,怎么建立网页文件夹怎么在excelvba中加入时间控件类的计时器? - 网络|怎么在excelvba中加入时间控件类的计时器

操作步骤:

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


怎么在excelvba中加入时间控件类的计时器? - 网络|
  • 土木硕士(女),毕业两年想转行,web前端和软件测试现在缺口量大吗?想知道哪个更容易找到工作以及前景? - 网络|
  • 土木硕士(女),毕业两年想转行,web前端和软件测试现在缺口量大吗?想知道哪个更容易找到工作以及前景? - 网络| | 土木硕士(女),毕业两年想转行,web前端和软件测试现在缺口量大吗?想知道哪个更容易找到工作以及前景? - 网络| ...

    怎么在excelvba中加入时间控件类的计时器? - 网络|
  • 新手如何使用Linux? - 网络|
  • 新手如何使用Linux? - 网络| | 新手如何使用Linux? - 网络| ...

    怎么在excelvba中加入时间控件类的计时器? - 网络|
  • 初中毕业学计算机前景怎么样? - 网络|
  • 初中毕业学计算机前景怎么样? - 网络| | 初中毕业学计算机前景怎么样? - 网络| ...