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

【问题标题】：Create automatic timestamp when adjacent cell has specific value当相邻单元格具有特定值时创建自动时间戳
【发布时间】：2014-04-29 17:53:09
【问题描述】：

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

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

这是一个基于谷歌应用问题的示例：

Add timestamp in adjacent cell when cell equals a specific value

【问题讨论】：

K列中的值是方程的结果还是输入的结果？？
你可以试试=IF(K1=1,NOW(),"")。但是，只要进行任何更改并且 K1 = 1，时间戳值就会更改。

标签： excel timestamp

【解决方案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://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

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

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

必须启用宏才能正常工作！

【讨论】：

【解决方案2】：

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

在excel 2007中，你可以去office按钮> excel选项> 公式> 迭代区域并打开迭代它的作用是检查单元格 C3，只要它不为空，它就会运行循环公式，在 B3 中创建时间

【讨论】：