帮忙改主《请假统计》代码

李桥贵 · 发表于 2018-7-18 22:18

请老师帮忙编写一下代码。工作表《2018年》黄色部分平时录入，用VBA代码生成蓝色部分和工作表《2018年合》。工作表《2018年合》举例只部分，即相同的合并计算。

请假 2.zip (14.58 KB, 下载次数: 9)

chxw68 · 发表于 2018-7-18 23:50

Sub test()
Dim r%, i%
Dim arr, brr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Worksheets("2018年")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a7:h" & r)
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 2)) Then
Set d(arr(i, 2)) = CreateObject("scripting.dictionary")
End If
d(arr(i, 2))(i) = ""
Next
r = .Cells(.Rows.Count, 14).End(xlUp).Row
.Range("o7:ax" & r).ClearContents
brr = .Range("m7:ax" & r)
For i = 1 To UBound(brr)
If d.exists(brr(i, 2)) Then
n = 3
For Each bb In d(brr(i, 2)).keys
For j = 1 To 6
brr(i, n + j - 1) = arr(bb, j + 2)
Next
n = n + 6
Next
End If
Next
.Range("m7:ax" & r) = brr
End With
End Sub

复制代码

chxw68 · 发表于 2018-7-18 23:51

只写了第一问。

chxw68 · 发表于 2018-7-18 23:52

详见附件。

李桥贵 · 发表于 2018-7-19 19:29

chxw68 发表于 2018-7-18 23:52
详见附件。

谢谢褚老师！

chxw68 · 发表于 2018-7-19 20:11

后面一问也写好了。

李桥贵 · 发表于 2018-7-19 20:23

chxw68 发表于 2018-7-19 20:11
后面一问也写好了。

谢谢您，褚老师

李桥贵 · 发表于 2018-7-19 20:47

本帖最后由李桥贵于 2018-7-19 20:51 编辑

李桥贵发表于 2018-7-19 20:23
谢谢您，褚老师

褚老师：
李程
2018.04.28至2018.05.09 病假天数12天工作日4天;2018.06.05至2018.06.14 病假天数10天工作日8天
能否修改代码后生成：
李程 2018.04.28至2018.05.09 2018.06.05至2018.06.14 病假天数22天工作日12天
即把李程病假：两个时间段假的类型显示出来天数工作日累加

chxw68 · 发表于 2018-7-19 22:27

李桥贵发表于 2018-7-19 20:47
褚老师：
李程
2018.04.28至2018.05.09 病假天数12天工作日4天;2018.06.05至2018.06.14 病假 ...

应该可以。

chxw68 · 发表于 2018-7-19 22:38

修改好了。

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

[求助] 帮忙改主《请假统计》代码

评分

评分

评分