[已解决]20230401提取时间新问题2

流住你

要求：d列有时间迭算的，根据输入的时间前后来变化，根据c列输入的结果来提取时间，没有输入结果，就不显示，请各位老师在哦e7,e8,e9,e10重新修改一下函数，多谢！！！

最佳答案

月排行榜 / 总排行榜

zrfwq

2023-4-3 10:06

实时监控单元格每一次编辑的数据和时间：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Target.Rows.Count = Rows.Count Or Target.Columns.Count = Columns.Count Then  '记录A列单元格的每一次编辑
        Exit Sub
    Else
        Dim rng As Range, Timestr As String
        Timestr = Format(Now, "m月d日hh:mm:ss")
        Application.ScreenUpdating = False
        For Each rng In Intersect(Target, Columns(1))
            If Not rng.Comment Is Nothing Then
                rng.Comment.Text rng.Comment.Text & Chr(10) & Timestr & "：" & IIf(rng = "", "【清空】", rng)
            Else
                rng.AddComment Timestr & "：" & IIf(rng = "", "【清空】", rng)
            End If
            rng.Comment.Shape.TextFrame.AutoSize = True  '批注框的高度和宽度随批注内容的长短自动变化
        Next rng
        Application.ScreenUpdating = True
    End If
End Sub

跳转到最佳答案楼层

zrfwq

单纯使用函数应该解决不了你的问题，可以试试VBA，在C列插入批注的想法

zrfwq

实时监控单元格每一次编辑的数据和时间：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Target.Rows.Count = Rows.Count Or Target.Columns.Count = Columns.Count Then  '记录A列单元格的每一次编辑
        Exit Sub
    Else
        Dim rng As Range, Timestr As String
        Timestr = Format(Now, "m月d日hh:mm:ss")
        Application.ScreenUpdating = False
        For Each rng In Intersect(Target, Columns(1))
            If Not rng.Comment Is Nothing Then
                rng.Comment.Text rng.Comment.Text & Chr(10) & Timestr & "：" & IIf(rng = "", "【清空】", rng)
            Else
                rng.AddComment Timestr & "：" & IIf(rng = "", "【清空】", rng)
            End If
            rng.Comment.Shape.TextFrame.AutoSize = True  '批注框的高度和宽度随批注内容的长短自动变化
        Next rng
        Application.ScreenUpdating = True
    End If
End Sub