在<em>Excel</em>中，实现秒的实时动态更新，求<em>VBA</e

以下是我用了实现从Excel导数据进ACCESS的代码，你参考一下，应该就可以做出来了：（Excel和Access两个文件放一个文件夹下）
Public Sub 客户正常供价批量维护()
If Cells(4, 6) = "" Then
MsgBox "请先选择需要维护价格的系统！", vbInformation
Cells(4, 6).Select
Exit Sub
Else

Dim i As Integer, j As Integer, k As Integer, sht As Worksheet 'i,j,k为整数变量；sht 为excel工作表对象变量，指向某一工作表
Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
Dim strCn As String, strSQL As String '字符串变量
Dim mdbFile As String

On Error GoTo add_err

mdbFile = ActiveWorkbook.Path & "\DY_DATA.mdb"

strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & mdbFile '定义数据库链接字符串
cn.Open strCn '与数7a686964616fe58685e5aeb9333据库建立连接，如果成功，返回连接对象cn

Set rs = New ADODB.Recordset
rs.Open "dbl直营客户正常供价表", cn, adOpenKeyset, adLockOptimistic

k = Cells(4, 8) + 8
For i = 9 To k
If Cells(i, 7) = "" Then

Else
rs.AddNew
rs(1) = Cells(i, 2)
rs(2) = Cells(i, 7)
rs(3) = Cells(i, 8)

rs.Update
Cells(i, 7) = ""
Cells(i, 8) = ""

End If
Next
MsgBox "数据记录添加成功！", vbInformation
Cells(4, 6).Select
ActiveWorkbook.RefreshAll

add_exit:
Exit Sub
End If
add_err:
MsgBox Err() & vbCrLf & Error()
Resume add_exit
End Sub

你好，
实现这个功能比较占用系统资源哦，请谨慎使用。zhidao
Sub Run_it()
Application.OnTime TimeValue("00:00:01"), "shownowtime" '一旦开始运行后每隔一秒内运行一次shownowtime这个宏
End Sub

sub shownowtime()
[a1] = now()‘每隔一秒a1单元格里的时容间就更新一次，即可实现秒的实时动态更新
en sub

用excel做一个动态倒计时精确到秒步骤如百下：

1、在Excel操作窗口中，按下组合键 Alt+F11 ，弹出VBA窗口度，然后，执行知如下图的菜单操作：“插入”→“模块”。

2、弹出如下图的代码输入窗口。

3、按照上图的代码，照着输入就行。上述代码输入成功之后，在窗口的左边右键点击“ThisWorkbook”，选择“查道看代码”。

4、在弹出的VBA代码窗口中，回输入上图所需要的代码。最后，关闭VBA窗口，返回Excel并保存文件答，然后关闭Excel，之后再打开该Excel文件，效果就出来了。

在A1输入
=NOW()
设置单元格格式，定义为你要的格式。百

同时按Alt和度F11进入宏界面，双击左上窗口的ThisWorkbook，在右边输入
Private Sub Workbook_Open()
abc
End Sub

再点菜单的插入，模块，粘贴如下代码：
Sub abc()
Application.OnTime Now + 1 / 24 / 3600, "abc"
Sheets("Sheet1").Range("A1").Calculate
End Sub

存盘退出（如果是2007版以上回得另存为可以启动宏的工作簿），再答打开就可以了。