考勤计算时长，条件多，有想法不知道怎么写，求指点

bascfm · 发表于 2019-6-19 15:47

本帖最后由 bascfm 于 2019-6-19 15:51 编辑

同一个人同一天，算出没两次打卡时长。可能有多卡和漏卡，这样就不知道怎么计算了。空白的是请假的。Dim c#, d#, X#
X = Cells.Find("*", Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
For d = X To 3

If (Range("C" & d).Value = Cells(d - 1, 3) And Cells(d, 5) <> 0) Then Range("F" & d) = Range("E" & d) - Range("e" & d - 1)
Next

我就想到这些了。。。后来发现还要加个日期判断

Dragonfly7995 · 发表于 2019-6-19 16:18

这个是我以前设计的，只需要把你的表格先用透视表，弄成我的表格那样的第一个sheet的格式，就可以处理

bascfm · 发表于 2019-6-19 17:39

Dragonfly7995 发表于 2019-6-19 16:18
这个是我以前设计的，只需要把你的表格先用透视表，弄成我的表格那样的第一个sheet的格式，就可以处理

能不能VBA呢，谢谢了

bascfm · 发表于 2019-6-20 07:31

各位大神求指点

Dragonfly7995 · 发表于 2019-6-20 14:29

我试试，我也不是高手，也是初学者，你等等

蓝桥玄霜 · 发表于 2019-6-20 16:31

请见代码。

bascfm · 发表于 2019-6-22 13:59

蓝桥玄霜发表于 2019-6-20 16:31
请见代码。

谢谢，我试试

Dragonfly7995 · 发表于 2019-6-24 11:00

蓝桥玄霜发表于 2019-6-20 16:31
请见代码。

Cells(aa(j - 1), 5) = Arr(aa(j), 4) - Arr(aa(j - 4), 4)
大神，你好，我测试了一下，这句显示下界错误

Dragonfly7995 · 发表于 2019-6-24 11:01

蓝桥玄霜发表于 2019-6-20 16:31
请见代码。

啊，不好意思，是下标越界

bascfm · 发表于 2019-6-25 07:51

蓝桥玄霜发表于 2019-6-20 16:31
请见代码。

用网上的办法注册了DLL也是报错。Set d = CreateObject("scripting.dictionarty")

		自动登录	找回密码
密码			免费注册

[求助] 考勤计算时长，条件多，有想法不知道怎么写，求指点

最新热点 /1