求助用VBA查询 对应的数据

xymch

用VBA 如何实现
感谢各位老师

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。

1. Sub ykcbf()   '//2025.1.15
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("Sheet2")
   
4.         r = .Cells(Rows.Count, 5).End(3).Row
   
5.         rq = Date
   
6.         For i = 4 To r
   
7.             rq1 = VBA.DateAdd("d", -7, .Cells(i, 8))
   
8.             If rq < rq1 Then .Cells(i, 10) = "报警"
   
9.             If .Cells(i, 13) = .Cells(i, 7) Then
   
10.                 .Cells(i, 11) = "完成"
    
11.             Else
    
12.                 .Cells(i, 11) = .Cells(i, 13) - .Cells(i, 7)
    
13.             End If
    
14.         Next
    
15.     End With
    
16.     Application.ScreenUpdating = False
    
17.     MsgBox "OK！"
    
18. End Sub
    
19. 
    

复制代码