Question

我有一张电子表格，人们可以在其中输入项目更新，然后输入更新日期。发生的事情是人们忘记了他们的笔记约会。有没有办法让日期单元格自动调整当前/日期？

我假设if函数会这样做吗？

Answer 1

如果在 A列中输入值，则此事件宏会将日期放在 B 列中。该宏应安装在工作表代码区：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim A As Range, B As Range, Inte As Range, r As Range
    Set A = Range("A:A")
    Set Inte = Intersect(A, Target)
    If Inte Is Nothing Then Exit Sub
    Application.EnableEvents = False
        For Each r In Inte
            r.Offset(0, 1).Value = Date
        Next r
    Application.EnableEvents = True
End Sub

因为它是工作表代码，所以很容易安装和自动使用：

右键单击Excel窗口底部附近的选项卡名称
选择查看代码 - 这会打开一个VBE窗口
粘贴内容并关闭VBE窗口

如果您有任何疑虑，请先在试用工作表上试用。

如果保存工作簿，宏将随之保存。如果您在2003年之后使用的是Excel版本，则必须保存该文件为.xlsm而不是.xlsx

删除宏：

按上述方式调出VBE窗口
清除代码
关闭VBE窗口

要了解有关宏的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解有关事件宏（工作表代码）的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/event.htm

必须启用宏才能使其生效！

更改代码以使用不同的列。

修改＃1：

此版本不会覆盖列 B ：
中已存在的材料
Private Sub Worksheet_Change(ByVal Target As Range) Dim A As Range, B As Range, Inte As Range, r As Range Set A = Range("A:A") Set Inte = Intersect(A, Target) If Inte Is Nothing Then Exit Sub Application.EnableEvents = False For Each r In Inte If r.Offset(0, 1).Value = "" Then r.Offset(0, 1).Value = Date End If Next r Application.EnableEvents = True End Sub

Answer 2

ZAT的答案对我有用......我把＆＃34 ;;＆＃34; s改为＆＃34;，＆＃34; s。

=IF(AND(D52<>"",D52<>0),NOW(),"")

我用过＆＃34; NOW＆＃34;而不是＆＃34; TODAY＆＃34;给我一天的时间。

Answer 3

在相应的输入单元格（例如D13）不为空且未填充0时，在所需单元格（例如C13）中尝试此公式以填充当前日期：

=IF(AND(D13<>"";D13<>0);TODAY();"")

然后您可以将此公式复制到后续单元格以填充该列的公式（例如col C）

Answer 4

输入日期＆amp; A列和A列中的时间B，D列中的数据输入

Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, B As Range, Inte As Range, r As Range
Set A = Range("D:D")
Set Inte = Intersect(A, Target)
If Inte Is Nothing Then Exit Sub
Application.EnableEvents = False
    For Each r In Inte
        If r.Value > 0 Then
           r.Offset(0, -3).Value = Date
           r.Offset(0, -3).NumberFormat = "dd-mm-yyyy"
           r.Offset(0, -2).Value = Time
           r.Offset(0, -2).NumberFormat = "hh:mm:ss AM/PM"
        Else
           r.Offset(0, -3).Value = ""
           r.Offset(0, -2).Value = ""
        End If
    Next r
Application.EnableEvents = True
End Sub

当用户在相邻单元格中输入信息时，自动填充单元格中的日期

4 个答案: