当前位置:首页经验技巧Excel经验excel财务

excel表格时间怎么刷新

2025-01-22 16:43:52

1.excel怎么让日期时间自动更新

这个如果是要Excel自动更新的话,要用到VBA。你ALT+F11打开VBA编辑界面,下面看图吧

具体代码如下

Public Sub MyMacro()

dTime = Now + TimeValue("00:00:01")

Application.OnTime dTime, "MyMacro", , True

With ThisWorkbook.Sheets("Sheet1").Range("A1")

.Value = Now

.NumberFormat = "yyyy/MM/dd hh:mm:ss"

End With

End Sub

其中With ThisWorkbook.Sheets("Sheet1").Range("A1")

这一句里的sheet1和A1,可以根据你实际使用的表格的名字和单元格来更换。所谓的表格名字也就是图一里右下角圈起来的那个位置的名字。谢谢

如果有疑问的话,请私信。会继续给你作答

2.电子表格时间如何自动更新

需要插入代码解决

ALT F11 工程窗口右键点SHEET1 插入模块 将下面代码复制进去,

Sub biao()

Range("SHEET1!A1").Value = Time

Application.OnTime Time + TimeSerial(0, 0, 1), "biao

End Sub

关闭visual basic编辑器,返回到excel工作簿中→工具→宏→宏(m)…。

在宏对话框中选择biao→执行

代码中的SHEET1!A1是 时间产生的地址,可以自行修改

3.excel2003 怎样在给定时间自动更新数据

使用VBA

打开VBA编辑器,插入模块

拷贝下述代码:

Sub StartTimer()

Dim i!, t

i = Sheets(1).[B65536].End(xlUp).Row

t = Sheets(1).Cells(i + 1, 1)

Application.OnTime earliesttime:=t, procedure:="Process", schedule:=True

End Sub

Sub Process()

Dim i!, t

With Sheets(1)

i = .[B65536].End(xlUp).Row

t = .Cells(i + 1, 1)

On Error Resume Next

Application.OnTime earliesttime:=t, procedure:="Process", schedule:=False

On Error GoTo 0

.Range(.Cells(i, 2), .Cells(i, 3)).Copy .Cells(i + 1, 2)

End With

Application.CutCopyMode = xlCopy

StartTimer

End Sub

双击Workbook,拷贝工作簿open代码:

Private Sub Workbook_Open()

StartTimer

End Sub

附件请参考。(BC数据为模拟数据请使用自己的数据更新内容)


电脑版

免责声明:本站信息来自网络收集及网友投稿,仅供参考,如果有错误请反馈给我们更正,对文中内容的真实性和完整性本站不提供任何保证,不承但任何责任,谢谢您的合作。
版权所有:五学知识网 Copyright © 2015-2025 All Rights Reserved .