当前位置: 代码迷 >> Office >> 记要单元格修改时间,求高手相助,紧
  详细解决方案

记要单元格修改时间,求高手相助,紧

热度:5343   发布时间:2013-02-26 00:00:00.0
记录单元格修改时间,求高手相助,紧急
本帖最后由 hwhtj 于 2011-08-27 11:08:46 编辑
有一个工作薄,有多个表,表1D列专用于记录某个表某单元格的最后修改时间。
如总表的B2记录 生产科 D5 单元格(应发合计)的最后时间
总表的B3记录 销售科 D5 单元格最后(应发合计)修改时间
总表的C2记录 生产科 E5单元格(扣款合计)的最后修改时间
总表的C3记录 销售科 E5单元格(扣款合计)的最后修改时间
总表的D2记录 生产科 F5单元格(实发合计)的最后修改时间
总表的D3记录 销售科 F5单元格(实发合计)的最后修改时间

有没有现成的函数。如果用VBA,如何写代码  

求高手相助   

样表地址http://www.exceltip.net/attachment.php?aid=44645&k=07b4f26c1b5aeaacdf2448df9fcd5d84&t=1314414205&fid=11&sid=d1fffZUfPZNthqdgWFya%2FdniF6M1GncVjf2NhINNLOAkNiU
样表是我编的,跟实际不同。实际有20多个表,每张表有10多个单元格需要监视修改时间
------解决方案--------------------------------------------------------
可以使用 MAX({})来得到。
------解决方案--------------------------------------------------------
使用VBA
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   If ActiveSheet.Index <> 1 Then
        If Target.Row >= 3 And Target.Row < 100 And _
           Target.Column >= 4 And Target.Column <= 6 Then
            Application.EnableEvents = False
            Worksheets(1).Cells(Sh.Index, Target.Column - 2) = Now()
            Application.EnableEvents = True
        End If
    End If
End Sub

测试一下,可行,不知是否满足你的要求。
附件:http://download.csdn.net/source/3557157
------解决方案--------------------------------------------------------
学习了,佩服3楼的,高手!
  相关解决方案