EXCEL 动态时间代码

你是不是厌倦了时间在EXCEL是静态的样子?想体验下EXCEL单元格中动态的时间吗?那就跟我来实现!此需求主要通过VBA来实现!

打开EXCEL,按ALT+F11打开VBA编辑器:

在thisworkbook中输入如下代码

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Terminate
Set appTime = Nothing
Set objBtn = Nothing
End Sub
Private Sub Workbook_Open()
Init (1000)
End Sub
…………………………………………………………………………………………………………..

新建时间Time模块输入如下代码

Private Declare Function SetTimer Lib "user32" (ByVal hWnd As _
                 Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _
                 ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib "user32" (ByVal hWnd As _
                 Long, ByVal nIDEvent As Long) As Long
Dim hTimer
Public objBtn As CommandBarControl

Sub TimerProc(ByVal hWnd&, ByVal Msg&, ByVal idEvent&, ByVal dwTime&)
    DoEvents
    On Error Resume Next
    Range("A1") = Format(Now, "yyyy-m-d hh:mm:ss")
End Sub

Sub Init(Interval&)
    hTimer = SetTimer(0, 0, Interval, AddressOf TimerProc)
End Sub

Sub Terminate()
    Call KillTimer(0, hTimer)
End Sub

       2011/2/25 20:46:23

 

 

保存代码~看看效果吧~时间会在你的单元格中动态运作,秒针会动态行走!呵呵!当然格式随你自己喜好设定,随你DIY~

分享到:

2 条评论

点击这里取消回复。
注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 小鸭鸭

    博主你的关键字太抽象了···我觉得应该细化下···/微笑

    1. Kael.Z

      怎么说?求教!小鸭鸭!0.0