首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 办公应用 > OFFICE教程 >

记录单元格修改时间,求高手相助,紧急解决办法

2012-01-05 
记录单元格修改时间,求高手相助,紧急有一个工作薄,有多个表,表1D列专用于记录某个表某单元格的最后修改时

记录单元格修改时间,求高手相助,紧急
有一个工作薄,有多个表,表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

VB code
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 IfEnd Sub
[解决办法]
学习了,佩服3楼的,高手!

热点排行