单元格如何动态显示时间?

blzyj

我想在单元格中动态显示时间,yyyy-m-d h:mm:ss格式,请问如何写代码,另外,EXCEL中如何调用WINDOWS系统中的时钟控件,能动态形象显示时间,谢谢了!!!

lotustower

' By Chijanzen ' 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 ' ' Module 1 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

auteet

以下是引用[I]lotustower[/I]在2006-5-21 9:06:03的发言：[BR] ' By Chijanzen ' 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 ' ' Module 1 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

将代码放在EXCEL文件后，文件保存关闭时出错：APPTIME

lotustower

Range("A1") = Format(Now, "yyyy-m-d hh:mm:ss") Orginal Excel xiX2Aift.zip (8.71 KB, 下载次数: 854)

2006-5-21 09:40 上传

点击文件名下载附件
单元格如何动态显示时间?

lotustower

' 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
'

来生缘

Chijanzen大侠的这个做得相当爽呀,基本看不到闪动,厉害

abc_zc

Chijanzen大侠的这个做得相当爽呀,基本看不到闪动,厉害

abc_zc

QUOTE:

以下是引用lotustower在2006-5-21 9:40:38的发言：
Range("A1") = Format(Now, "yyyy-m-d hh:mm:ss")
Orginal Excel

老大，如何修改成只某一个文件的某一个工作簿显示，现在只要是打开这个文件，再打开别的工作簿或文件时的当前打开的工作簿的A1单元格都显示，谢谢

[此贴子已经被作者于2006-11-27 8:47:58编辑过]

Kael

正是想要的

nnkeyuan

能不能把年月日一起显出