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

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

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

下面是一个基于谷歌应用程序问题的示例：

---

如果列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

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

---

如果列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

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

Private子工作表\u更改（ByVal目标作为范围）
调光范围
设定r=目标
如果Intersect（范围（“K:K”），r）为零，则退出Sub
如果r.值为1，则退出Sub
如果r.Offset（0，1）.值为“”，则退出Sub
Application.EnableEvents=False
r、 偏移量（0，1）=日期
Application.EnableEvents=True
端接头

由于它是工作表代码，因此安装和自动使用非常容易：

在Excel窗口底部附近的选项卡名称上单击鼠标右键

选择查看代码-这将打开一个VBE窗口

粘贴内容并关闭VBE窗口

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

如果保存工作簿，宏将与工作簿一起保存。 如果在2003年以后使用Excel版本，则必须保存 文件的格式为.xlsm而不是.xlsx

要删除宏，请执行以下操作：

如上所述打开VBE窗口

清除代码

关闭VBE窗口

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

及

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

必须启用宏才能工作

=IF（C3“”，IF（B3=“”，NOW（），B3），“”）
=IF(C3<>"",IF(B3="",NOW(),B3),"")

在Excel2007中，您可以进入office按钮>excel选项>公式>迭代区域并打开迭代 它所做的是检查单元格C3，当它不为空时，它运行循环公式，该公式在B3中创建时间

是K列中的值是方程式或输入的结果？？您可以尝试=如果（K1=1，现在（），“”）。但是，每当进行任何更改且K1=1时，时间戳值都将更改。