[已解决]两组VBA代码如何合并，不互相影响

xingyu111700

两组VBA代码如何合并，在同一个表格不互相影响，我直接复试粘贴上去不行，出现错误，如何修改？谢谢！



并上传附件如下:
VBA代码.rar (312 Bytes, 下载次数: 6)

2012-6-2 17:09 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

mxg825

2012-6-2 17:21

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 6 And Target.Row > 4 Then Cells(Target.Row, 4) = Cells(Target.Row, 4) + 1
  If Target.Row >= 5 And Target.Row <= 101 And _
  Target.Column = 6 Then
  Application.EnableEvents = False
  Cells(Target.Row, 2) = Now()
  Application.EnableEvents = True
  End If
End Sub

跳转到最佳答案楼层

mxg825

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 6 And Target.Row > 4 Then Cells(Target.Row, 4) = Cells(Target.Row, 4) + 1
  If Target.Row >= 5 And Target.Row <= 101 And _
  Target.Column = 6 Then
  Application.EnableEvents = False
  Cells(Target.Row, 2) = Now()
  Application.EnableEvents = True
  End If
End Sub

xingyu111700

非常感谢！
再追问一个：如何将日期、时间、星期分别显示在不同的单元格
日期A列，时间B列，星期C列，并且不会随系统时间变化，需要一组VBA代码，和这一组合并： If Target.Column = 6 And Target.Row > 4 Then Cells(Target.Row, 4) = Cells(Target.Row, 4) + 1；谢谢！

xingyu111700

修改一下，是自动保存当前日期、时间、星期，第二天打开时，第一天不会变