总表中的数据生成分表

风湘夜雨 · 发表于 2020-2-9 00:46

求助大神，把附件excel中“信息汇总表”中的内容，按照“企业员工情况登记表-1人一张表”中的固定格式生成多个单独的sheet

一把小刀闯天下 · 发表于 2020-2-9 07:40

'你们这工作做得已经晚了，怪不得现在这么多人

'以"企业员工情况登记表-1人一张表"工作表为母表，，，

Option Explicit

Sub test()
  Dim arr, i, j, pos, sht
  pos = Split(",,b4,f4,i4,b5,g5,b6,g6,b11,c11,d11,e11,g8,d14,f14,h14,i14,i15,b16,f16,b18,f18,b19,f19,b20,f20", ",")
  Call doevent(False)
  With Sheets("信息汇总表")
arr = .Range("a3:z" & .Cells(Rows.Count, "b").End(xlUp).Row)
  End With
  For Each sht In Sheets
If sht.Name <> "信息汇总表" And sht.Name <> "企业员工情况登记表-1人一张表" Then sht.Delete
  Next
  For i = 1 To UBound(arr, 1)
If Len(arr(i, 2)) Then
   Sheets.Add
   With ActiveSheet
      .Name = arr(i, 2)
      Sheets("企业员工情况登记表-1人一张表").Cells.Copy .[a1]
      For j = 2 To UBound(pos)
      .Range(pos(j)) = arr(i, j)
      Next
   End With
End If
  Next
  Call doevent(True)
End Sub

Function doevent(flag As Boolean)
  With Application
.DisplayAlerts = flag
.ScreenUpdating = flag
  End With
End Function

风湘夜雨 · 发表于 2020-2-9 09:25

一把小刀闯天下发表于 2020-2-9 07:40
'你们这工作做得已经晚了，怪不得现在这么多人

'以"企业员工情况登记表-1人一张表"工作表为母表，，，

膜拜大神，谢谢。这是为复工准备的

zpy2 · 发表于 2020-2-9 12:58

风湘夜雨发表于 2020-2-9 09:25
膜拜大神，谢谢。这是为复工准备的

现在高速公路路口都是扫码登记，这样子是不是还要多表汇总啊！

电鳗01 · 发表于 2020-2-9 17:42

一把小刀闯天下发表于 2020-2-9 07:40
'你们这工作做得已经晚了，怪不得现在这么多人

'以"企业员工情况登记表-1人一张表"工作表为母表，，，

请问老师，能不能添加全部打印或部分打印的VBA？

一把小刀闯天下 · 发表于 2020-2-9 19:50

printout 加上条件就可以，这种代码不比牛毛少的，自己查一下，，，

YZC51 · 发表于 2020-2-10 11:53

学习老师的代码。谢谢老师！

企业员工情况登记表.rar (1.06 MB, 下载次数: 112)

YZC51 · 发表于 2020-2-10 20:02

企业员工情况登记表-简版

企业员工情况登记表-简版.rar (164.21 KB, 下载次数: 8)

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

[求助] 总表中的数据生成分表

评分

评分

评分

最新热点 /1