excel记录修改内容和时间的代码怎么设置在想要的单元格上 30
例如下面的A1,我想A2-A100,还有B1-B100也能记录,求问应该怎么写?PrivateSubWorksheet_Change(ByValTargetAsRange...
例如下面的A1,我想A2-A100,还有B1-B100也能记录 ,求问应该怎么写?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim f As String
f = "d:\a.txt"
Open f For Append As #1
Print #1, Cells(1, 1).Value; Tab; Date; Space(1); Time
Close #1
End If
End Sub 展开
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim f As String
f = "d:\a.txt"
Open f For Append As #1
Print #1, Cells(1, 1).Value; Tab; Date; Space(1); Time
Close #1
End If
End Sub 展开
1个回答
展开全部
你要的东西,实际上就是记录用户的操作日志。利用VBA编程可以实现,主要思路是,给单元格设置一个触发器,一旦单元格被修改就触发处理程序,记录下修改时间等。但问题是,仅仅一个单元格需要记录日志吗,如果很多单元格都需要呢,此时日志摆放在哪里?会不会显得很乱?
因此,如果是那样的话,建议干脆用华创网表,相当于网络版excel,它允许多用户同时登录使用,各用户凭自己的账号密码登录,用户的各种操作都会记录操作日志。比如,何时何地(IP地址)登录、退出,每一条记录何时何人修改,由什么值改成什么值等,记得很详细。
这些操作日志是附着在每条数据上的,看数据时就能随便看它对应的日志,不像excel仅仅是物理位置上的安排。
因此,如果是那样的话,建议干脆用华创网表,相当于网络版excel,它允许多用户同时登录使用,各用户凭自己的账号密码登录,用户的各种操作都会记录操作日志。比如,何时何地(IP地址)登录、退出,每一条记录何时何人修改,由什么值改成什么值等,记得很详细。
这些操作日志是附着在每条数据上的,看数据时就能随便看它对应的日志,不像excel仅仅是物理位置上的安排。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询