欧美一区二区三区,国内熟女精品熟女A片视频小说,日本av网,小鲜肉男男GAY做受XXX网站

怎么在excelvba中加入時間控件類的計時器?

夏志豪2年前22瀏覽0評論

需要用到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中通過菜單“工具-宏-安全性”把宏的安全級別設為中或低以允許宏的運行,否則宏不能運行也得不到你要的結果)