Excel中数据每日跟新

答案:1 悬赏:40 手机版

解决时间 2021-04-03 00:07

提问者网友：不要迷恋哥
2021-04-02 17:43

Excel中数据每日跟新

最佳答案

五星知识达人网友：酒醒三更
2021-04-02 18:28

这个需要使用VBA 实现的，另外需要一个辅助的记录更新日期的单元格，避免当日重复打开档案造成重复扣得问题。如图，代码如下

Private Sub Workbook_Open()
Dim Dt As Date
Sheets("Sheet1").Select ''Sheet1是你的工作表名称，若你的名字不一样请在此修改
Dt = Sheets("Sheet1").Range("G2") ''这个是用来存放更新日期的，你也可以自定义
If Dt < Date Then
T = Date - Dt
N = Cells(Rows.Count, "A").End(xlUp).Row
For I = 2 To N
Cells(I, "D") = Cells(I, "D") - Cells(I, "E") * T
Next
Sheets("Sheet1").Range("G2") = Date ''日期更新的日期覆盖，要与上面的对应
End If
End Sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息