~自动删除L/T+7天之外的日期资料~

84595292

上午好：

当天日期随之改变，根据L/T来推。14+7天，21+7天，28+7天！如有35也是+7天，42也是+7天！总之都是+7天，删除+7天之后的资料！

谢谢！

D2823.zip (331.86 KB, 下载次数: 27)

2016-3-26 10:21 上传

点击文件名下载附件
请老师协助

02761752696

把代码 放到ThisWorkbook里面，开启宏
打开文件回自动检查并删除超期的数据，看看是要这样吗

Private Sub Workbook_Open()

Application.ScreenUpdating = False
With Sheets("工作表1")
        h = .[O65535].End(xlUp).Row
   For i = 2 To h
        r1 = .Range("N" & i) + 6
        r2 = Date
        r3 = r1 + r2
    If .Range("O" & i) > r3 Then
       .Rows(i & ":" & i).Delete Shift:=xlUp
    End If
Next
End With
Application.ScreenUpdating =True
End Sub

84595292

02761752696 发表于 2016-3-26 14:07
把代码 放到ThisWorkbook里面，开启宏
打开文件回自动检查并删除超期的数据，看看是要这样吗

您好，不需求，自动检查并删除超期的数据。如下执行后，数据删除不完整。我需求手动执行“删除超期的数据”这步动作，谢谢改善下~
Sub Workbook_Open()
Application.ScreenUpdating = False
With Sheets("工作表1")
         h = .[O65535].End(xlUp).Row
    For i = 2 To h
         r1 = .Range("N" & i) + 6
         r2 = Date
         r3 = r1 + r2
     If .Range("O" & i) > r3 Then
        .Rows(i & ":" & i).Delete Shift:=xlUp
     End If
Next
End With
Application.ScreenUpdating = True
End Sub

02761752696

84595292 发表于 2016-3-26 17:24
您好，不需求，自动检查并删除超期的数据。如下执行后，数据删除不完整。我需求手动执行“删除超期的数据 ...

是要这样吗  ，超期的数据整行都会被删除

84595292

02761752696 发表于 2016-3-26 21:25
是要这样吗  ，超期的数据整行都会被删除

超期的数据，删除不完整{有些删除不掉}，还请优化，tks~

02761752696

84595292 发表于 2016-3-28 18:47
超期的数据，删除不完整{有些删除不掉}，还请优化，tks~

请问 删除不完整   是什么意思  ，哪里 没删除   请做好标记   ，我看看

02761752696

84595292 发表于 2016-3-28 18:47
超期的数据，删除不完整{有些删除不掉}，还请优化，tks~

我看了   按你的要求  没有超期的 啊

84595292

02761752696 发表于 2016-3-28 19:09
我看了   按你的要求  没有超期的 啊

如附档总共77条数据，超期的有47条，怎么一次删除不了需求重复几次才能删除掉？谢谢！


D2823.zip (23.11 KB, 下载次数: 10)

2016-3-28 19:50 上传

点击文件名下载附件
请协助，谢！

02761752696

84595292 发表于 2016-3-28 19:51
如附档总共77条数据，超期的有47条，怎么一次删除不了需求重复几次才能删除掉？谢谢！

之前疏忽了  ，现在已修正

84595292

02761752696 发表于 2016-3-28 21:03
之前疏忽了  ，现在已修正

资料大的时候，处理好慢，卡，有办法再快不，谢！