- ·上一篇:怎么在excel表格上搜查号码
- ·下一篇:excel表格或公式怎么写
excel表格时间怎么刷新
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数据为模拟数据请使用自己的数据更新内容)