根据输入指定日期，将日期上一月入职人员自动生成入职报表

简约不简 · 发表于 2017-4-9 16:12

根据输入指定日期，将日期上一月入职人员自动生成入职报表，细节如图和附件：

hcm19522 · 发表于 2017-4-9 17:40

B4{=IFERROR(SMALL(IF(MMULT(SIGN(花名册!$E$2:$E$8-EOMONTH($M$2,{-2,-1})+{1,0}),{1;1}),FALSE,ROW(F$2:F$8)),ROW(B1)),"")

C4=INDEX(花名册!C:C,$B4)

右拉再下拉 ,改花名册!C:C列為對應列

hcm19522 · 发表于 2017-4-9 17:46

本帖最后由 hcm19522 于 2017-4-9 17:47 编辑

B4{=INDEX(花名册!B:B,SMALL(IF(MMULT(SIGN(花名册!$E$2:$E$8-EOMONTH($M$2,{-2,-1})+{1,0}),{1;1}),4^8,ROW(F$2:F$8)),ROW(B1)))&""
右拉 ,改花名册!B:B列為右拉對應列 ,再一起下拉

lsc900707 · 发表于 2017-4-9 18:16

Sub lsc()
Dim brr(1 To 10000, 1 To 14)
arr = Sheet1.Range("a1:ap" & Sheet1.Cells(Rows.Count, 1).End(3).Row)
For i = 2 To UBound(arr)
      If Month(arr(i, 5)) = Month(Range("n2") - 1) Then
         k = k + 1
         brr(k, 1) = arr(i, 1): brr(k, 2) = arr(i, 2): brr(k, 3) = arr(i, 3): brr(k, 4) = arr(i, 4)
         brr(k, 5) = arr(i, 5): brr(k, 6) = arr(i, 16): brr(k, 7) = arr(i, 17): brr(k, 8) = arr(i, 18)
         brr(k, 9) = arr(i, 19): brr(k, 10) = arr(i, 20): brr(k, 11) = arr(i, 21): brr(k, 12) = arr(i, 37)
         brr(k, 13) = arr(i, 38): brr(k, 14) = arr(i, 39)
      End If
Next
With ActiveSheet
      .[a4:n1000].Clear
      .Columns("m").NumberFormatLocal = "@"
      .[a4].Resize(k, 14) = brr
End With
End Sub

简约不简 · 发表于 2017-4-11 09:00

lsc900707 发表于 2017-4-9 18:16
Sub lsc()
Dim brr(1 To 10000, 1 To 14)
arr = Sheet1.Range("a1:ap" & Sheet1.Cells(Rows.Coun ...

使用了一下，可以实现一次性的作用，但是唯一的地方就是制表日期修改不了。没办法根据制表日期来填入对应的内容。比如，制表日期调整为3月2日，则内容显示是2月份的数据，如填写是4月4日，则表格内容为3月份的入职数据。希望能帮忙完善一下。

简约不简 · 发表于 2017-4-11 09:04

hcm19522 发表于 2017-4-9 17:46
B4{=INDEX(花名册!B:B,SMALL(IF(MMULT(SIGN(花名册!$E$2:$E$8-EOMONTH($M$2,{-2,-1})+{1,0}),{1;1}),4^8,RO ...

试用了，已经修改完后可以使用。我目前唯一的障碍就是，函数多，表格太卡拉。

简约不简 · 发表于 2017-4-11 09:05

lsc900707 发表于 2017-4-9 18:16
Sub lsc()
Dim brr(1 To 10000, 1 To 14)
arr = Sheet1.Range("a1:ap" & Sheet1.Cells(Rows.Coun ...

还有一个地方，希望帮忙调整下，就是需要这一列，不复制之前的需要，是直接按自然序号下来即可，1、2、3、4、5……。谢谢。

lsc900707 · 发表于 2017-4-11 09:06

简约不简发表于 2017-4-11 09:00
使用了一下，可以实现一次性的作用，但是唯一的地方就是制表日期修改不了。没办法根据制表日期来填入对应 ...

你不会用吧?修改日期后重新按按钮试试。也可改用工作表事件。

lsc900707 · 发表于 2017-4-11 09:10

简约不简发表于 2017-4-11 09:05
还有一个地方，希望帮忙调整下，就是需要这一列，不复制之前的需要，是直接按自然序号下来即可，1、2、3 ...

这个很好修改，晚上帮你看看。

一指禅62 · 发表于 2017-4-11 09:30

本帖最后由一指禅62 于 2017-4-11 09:34 编辑

Sub lsc()
Dim brr(1 To 10000, 1 To 14)
arr = Sheet1.Range("a1:ap" & Sheet1.Cells(Rows.Count, 1).End(3).Row)
For i = 2 To UBound(arr)
      If Format(arr(i, 5), "yyyymm") = Format(DateAdd("m", -1, Range("M2")), "yyyymm") Then
         k = k + 1
         brr(k, 1) = k       : brr(k, 2) = arr(i, 2): brr(k, 3) = arr(i, 3): brr(k, 4) = arr(i, 4)
         brr(k, 5) = arr(i, 5): brr(k, 6) = arr(i, 16): brr(k, 7) = arr(i, 17): brr(k, 8) = arr(i, 18)
         brr(k, 9) = arr(i, 19): brr(k, 10) = arr(i, 20): brr(k, 11) = arr(i, 21): brr(k, 12) = arr(i, 37)
         brr(k, 13) = arr(i, 38): brr(k, 14) = arr(i, 39)
      End If
Next
With ActiveSheet
      .[a15:n1000].Clear
      .Columns("m").NumberFormatLocal = "@"
      .[a15].Resize(k, 14) = brr
End With
End Sub

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

[求助] 根据输入指定日期，将日期上一月入职人员自动生成入职报表