Question

我正在尝试在Excel中创建一个时髦的待办事项列表。当列K（在同一行中）等于1时，我想在列I中自动生成时间戳。

我能找到的唯一建议是在进行任何更改时生成的时间戳，而不是输入的特定值。

以下是基于谷歌应用程序问题我想做的一个例子：

Add timestamp in adjacent cell when cell equals a specific value

Answer 1

如果列 K 中的值来自公式，则使用此事件宏：

Private Sub Worksheet_Calculate()
    Dim r As Range
    For Each r In Intersect(Range("K:K"), ActiveSheet.UsedRange)
        If r.Value = 1 And r.Offset(0, 1).Value = "" Then
            Application.EnableEvents = False
                r.Offset(0, 1) = Date
            Application.EnableEvents = True
        End If
    Next r
End Sub

如果列 K 中的值通过下拉选择键入或填充，则使用此事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Set r = Target
    If Intersect(Range("K:K"), r) Is Nothing Then Exit Sub
    If r.Value <> 1 Then Exit Sub
    If r.Offset(0, 1).Value <> "" Then Exit Sub
    Application.EnableEvents = False
        r.Offset(0, 1) = Date
    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

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

Answer 2

=IF(C3<>"",IF(B3="",NOW(),B3),"")

在excel 2007中，您可以转到办公室按钮＆gt; excel选项＆gt;公式＆gt;迭代区域和转向迭代它做的是它检查单元格C3，每当它不为空时，它运行循环公式，在B3中创建时间

当相邻单元格具有特定值时，创建自动时间戳

2 个答案: