如何利用vba将汇总表中的数据，按要求自动提取到学生记录卡（表2“.

cby0318 · 发表于 2020-3-6 17:05

求大神们帮助，如何利用vba将汇总表（表1）中的数据，按要求自动提取到学生记录卡（表2“每日行踪和身体状况登记一览表”单元格的下边）中去。

目的是想将D-K列的数据自动提取填充到学生记录卡中去，只提取汇总表中C列是“是”的，同时B列填写周期按顺序提取，如果同一个学生同一天填写了两次那么只提取第一个。记录卡中每个学生一个表格。能否实现这个呢？希望热心的大神们给予帮助。

liulang0808 · 发表于 2020-3-6 19:26

附件内容供参考，其他楼主自己补齐吧

cby0318 · 发表于 2020-3-6 19:34

liulang0808 发表于 2020-3-6 19:26
附件内容供参考，其他楼主自己补齐吧

好的我试试

cby0318 · 发表于 2020-3-6 20:23

liulang0808 发表于 2020-3-6 19:26
附件内容供参考，其他楼主自己补齐吧

还没鼓捣明白如何增加，

liulang0808 · 发表于 2020-3-6 20:28

cby0318 发表于 2020-3-6 20:23
还没鼓捣明白如何增加，

有两列了，后面按照位置增加就可以了

zzj198237 · 发表于 2020-3-6 20:30

处理好了？

gxx75 · 发表于 2020-3-6 20:44

本帖最后由 gxx75 于 2020-3-6 20:47 编辑

正在学习vba 没有设置按钮

cby0318 · 发表于 2020-3-6 21:30

liulang0808 发表于 2020-3-6 19:26
附件内容供参考，其他楼主自己补齐吧

处理好了，但是碰到重复值如何取第一个

liulang0808 · 发表于 2020-3-6 21:34

Sub 按钮1_Click()
Application.ScreenUpdating = False
arr = Sheets("明细").[a1].CurrentRegion
On Error Resume Next
For j = UBound(arr) To 2 Step -1
      If arr(j, 3) = "是" Then
         d = Day(arr(j, 2))
         Sheets(arr(j, 1)).Cells(d + 10, 2) = arr(j, 4)
         Sheets(arr(j, 1)).Cells(d + 10, 3) = arr(j, 5)
      End If
Next j
Application.ScreenUpdating = True
End Sub

cby0318 · 发表于 2020-3-6 21:34

gxx75 发表于 2020-3-6 20:44
正在学习vba 没有设置按钮

谢谢，正在研究

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

[求助] 如何利用vba将汇总表中的数据，按要求自动提取到学生记录卡（表2“.

评分

评分

最新热点 /1