[已解决]考勤公式怎么修改，或是否可用VBA实现效果，谢谢。

新一

考勤公式怎么修改，或是否可用VBA实现效果，谢谢。如附件

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-6 21:32

我用的VBA，代码如下：

1. Sub xx()
   
2.     Dim n&, i&, arr(), 上班1 As Date, 下班1 As Date, 上班2 As Date, 下班2 As Date, x As Double
   
3.     Application.ScreenUpdating = False
   
4.     With Sheet1
   
5.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("f4:i" & n)
   
7.         For i = 1 To n - 3
   
8.             If CVDate(arr(i, 1)) < CVDate("7:00:00") Then
   
9.                 上班1 = CVDate("7:00:00")
   
10.             Else
    
11.                 上班1 = CVDate(arr(i, 1))
    
12.             End If
    
13.             If CVDate(arr(i, 2)) > CVDate("11:50:00") Then
    
14.                 下班1 = CVDate("12:00:00")
    
15.             Else
    
16.                 下班1 = CVDate(arr(i, 2))
    
17.             End If
    
18.             If CVDate(arr(i, 3)) < CVDate("12:30:00") Then
    
19.                 上班2 = CVDate("12:30:00")
    
20.             Else
    
21.                 上班2 = CVDate(arr(i, 3))
    
22.             End If
    
23.             If CVDate(arr(i, 4)) > CVDate("15:30:00") Then
    
24.                 下班2 = CVDate("15:30:00")
    
25.             Else
    
26.                 下班2 = CVDate(arr(i, 4))
    
27.             End If
    
28.             x = ((下班1 - 上班1) + (下班2 - 上班2)) * 24
    
29.             If x < 0 Then
    
30.                 .Cells(i + 3, 15) = ""
    
31.             Else
    
32.                 .Cells(i + 3, 15) = x
    
33.             End If
    
34.         Next
    
35.     End With
    
36.     Application.ScreenUpdating = True
    
37. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

你是要严格按照早晨7点上班，12点下班，下午12点30上班，下午15点30下班，其他时间均不算还是说有加班时间什么的，因为我看你的表很多都是18点下班的，如果是18点下班，下午算几个小时？

新一

老司机带带我 发表于 2016-6-6 20:12
你是要严格按照早晨7点上班，12点下班，下午12点30上班，下午15点30下班，其他时间均不算还是说有加班时间什 ...

嗯嗯，是的，是要严格按照早晨7点上班，12点下班，下午12点30上班，下午15点30下班，其他时间均不算

老司机带带我

我用的VBA，代码如下：

1. Sub xx()
   
2.     Dim n&, i&, arr(), 上班1 As Date, 下班1 As Date, 上班2 As Date, 下班2 As Date, x As Double
   
3.     Application.ScreenUpdating = False
   
4.     With Sheet1
   
5.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("f4:i" & n)
   
7.         For i = 1 To n - 3
   
8.             If CVDate(arr(i, 1)) < CVDate("7:00:00") Then
   
9.                 上班1 = CVDate("7:00:00")
   
10.             Else
    
11.                 上班1 = CVDate(arr(i, 1))
    
12.             End If
    
13.             If CVDate(arr(i, 2)) > CVDate("11:50:00") Then
    
14.                 下班1 = CVDate("12:00:00")
    
15.             Else
    
16.                 下班1 = CVDate(arr(i, 2))
    
17.             End If
    
18.             If CVDate(arr(i, 3)) < CVDate("12:30:00") Then
    
19.                 上班2 = CVDate("12:30:00")
    
20.             Else
    
21.                 上班2 = CVDate(arr(i, 3))
    
22.             End If
    
23.             If CVDate(arr(i, 4)) > CVDate("15:30:00") Then
    
24.                 下班2 = CVDate("15:30:00")
    
25.             Else
    
26.                 下班2 = CVDate(arr(i, 4))
    
27.             End If
    
28.             x = ((下班1 - 上班1) + (下班2 - 上班2)) * 24
    
29.             If x < 0 Then
    
30.                 .Cells(i + 3, 15) = ""
    
31.             Else
    
32.                 .Cells(i + 3, 15) = x
    
33.             End If
    
34.         Next
    
35.     End With
    
36.     Application.ScreenUpdating = True
    
37. End Sub

复制代码

新一

老司机带带我 发表于 2016-6-6 21:32
我用的VBA，代码如下：

谢谢大侠，但有一些数值不为8，还可以再修改吗？

老司机带带我

新一 发表于 2016-6-7 07:37
谢谢大侠，但有一些数值不为8，还可以再修改吗？

有些不在这个范围里面的本身就不是8小时吧，你看下，如果有确实为8的，核算结果不为8请注明后给我，我给你看下！

新一

老司机带带我 发表于 2016-6-7 08:28
有些不在这个范围里面的本身就不是8小时吧，你看下，如果有确实为8的，核算结果不为8请注明后给我，我给你 ...

比如：http://www.excelpx.com/thread-418655-1-1.html