[已解决]计算日期天数的VBA代码求助

网络人

求助现在的时间与单元格时间差的VBA代码

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-9-26 11:17

1. Sub aaa()
   
2. With Sheet1
   
3. .Range("Ai4:Ai10000").ClearContents
   
4. For i = 4 To .Range("e65536").End(3).Row
   
5.         If .Cells(i, 15) <> "" Then
   
6.         If .Cells(i, 17) = "" Then
   
7.             D = Date
   
8.         Else
   
9.             D = .Cells(i, 17)
   
10.         End If
    
11.         .Cells(i, 35) = D - .Cells(i, 15)
    
12.         End If
    
13. Next
    
14. End With
    
15. With Sheet2
    
16. .Range("Ai4:Ai10000").ClearContents
    
17. For i = 4 To .Range("e65536").End(3).Row
    
18.         If .Cells(i, 17) <> "" Then
    
19.         If .Cells(i, 18) = "" Then
    
20.             D = Date
    
21.         Else
    
22.             D = .Cells(i, 18)
    
23.         End If
    
24.         .Cells(i, 35) = D - .Cells(i, 17)
    
25.         End If
    
26. Next
    
27. End With
    
28. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. With Sheet1
   
3. .Range("Ai4:Ai10000").ClearContents
   
4. For i = 4 To .Range("e65536").End(3).Row
   
5.         If .Cells(i, 15) <> "" Then
   
6.         If .Cells(i, 17) = "" Then
   
7.             D = Date
   
8.         Else
   
9.             D = .Cells(i, 17)
   
10.         End If
    
11.         .Cells(i, 35) = D - .Cells(i, 15)
    
12.         End If
    
13. Next
    
14. End With
    
15. With Sheet2
    
16. .Range("Ai4:Ai10000").ClearContents
    
17. For i = 4 To .Range("e65536").End(3).Row
    
18.         If .Cells(i, 17) <> "" Then
    
19.         If .Cells(i, 18) = "" Then
    
20.             D = Date
    
21.         Else
    
22.             D = .Cells(i, 18)
    
23.         End If
    
24.         .Cells(i, 35) = D - .Cells(i, 17)
    
25.         End If
    
26. Next
    
27. End With
    
28. End Sub

复制代码