求教大神,r和把所有表格O列为“是”的复制到信息汇总表

aellu · 发表于 2018-8-22 12:41

本帖最后由 aellu 于 2018-8-22 12:47 编辑

想做个自动更新的表，就是把其他表格 O列为 “是” 的信息复制到信息汇总表里面，并且从第16行开始复制，前面的要空出来做其他的,如果后面继续添加工资表，一样满足条件就复制。自己东拼西凑了一些，感觉还是中间判断O列为是应该怎么写呢？

汇总表.rar (9.42 KB, 下载次数: 8)
Sub update()
Dim Lie As Integer
Dim EndRow As Integer
Worksheets("信息汇总").Range("B23:E200").Clear “清楚原有数据，全部更新”
For Each sh In Sheets“历遍所有工作表”
If sh.Name <> "Sheet1" Then
?????????
   If Target.Value = "是" Then
      EndRow = Sheets("信息汇总").Range("a65536").End(xlUp).Row + 1
   Sheets("信息汇总").Range("a" & EndRow) = Mid(Sh.Name, 1)
   Sheets("信息汇总").Range("b" & EndRow) = Sh.Range("b" & Target.Row)
   Sheets("信息汇总").Range("c" & EndRow) = Sh.Range("c" & Target.Row)
   Sheets("信息汇总").Range("d" & EndRow) = Sh.Range("o" & Target.Row)
   Sheets("信息汇总").Range("e" & EndRow) = Sh.Range("p" & Target.Row)
   Sheets("信息汇总").Range("f" & EndRow) = Sh.Range("q" & Target.Row)
End If
End If
End Sub

aellu · 发表于 2018-8-22 12:42

求教给位大神，谢谢啦

朱荣兴 · 发表于 2018-8-22 13:16

提示: 作者被禁止或删除内容自动屏蔽

aellu · 发表于 2018-8-22 13:25

朱荣兴发表于 2018-8-22 13:16
你的代码并不是单元格鼠标事件呀，为何会出现这样呢
Target.Value你的代码思路纯粹是错误的，毫无价值可言 ...

那应该怎么操作呢，

aellu · 发表于 2018-8-22 13:26

朱荣兴发表于 2018-8-22 13:16
你的代码并不是单元格鼠标事件呀，为何会出现这样呢
Target.Value你的代码思路纯粹是错误的，毫无价值可言 ...

我不想用Target.Value，就希望需要的时候，执行下宏，然后就执行，满足的条件的进行复制就好了

朱荣兴 · 发表于 2018-8-22 13:30

提示: 作者被禁止或删除内容自动屏蔽

abc123281 · 发表于 2018-8-22 13:34

建议从基础学习学习循环数组判断
以下代码仅供测试参考

Sub update()
Dim arr, brr(1 To 10000, 1 To 7)
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "信息汇总" Then
With ws
r = .[b65536].End(xlUp).Row
arr = .Range("a3:ac" & r)
For i = 1 To UBound(arr)
If arr(i, 15) = "是" Then
n = n + 1
brr(n, 1) = n
brr(n, 2) = ws.Name
brr(n, 3) = arr(i, 2)
brr(n, 4) = arr(i, 3)
brr(n, 5) = arr(i, 15)
brr(n, 6) = arr(i, 16)
brr(n, 7) = arr(i, 17)
End If
Next
End With
End If
Next
With Worksheets("信息汇总")
.UsedRange.Offset(1).ClearContents
.[a2].Resize(n, 7) = brr
End With
MsgBox "OK!", vbInformation
End Sub

复制代码

abc123281 · 发表于 2018-8-22 13:35

汇总表ABC123.rar (19.01 KB, 下载次数: 5)

aellu · 发表于 2018-8-22 14:19

abc123281 发表于 2018-8-22 13:35

谢谢大神，非常的感谢

aellu · 发表于 2018-8-22 15:22

abc123281 发表于 2018-8-22 13:34
建议从基础学习学习循环数组判断
以下代码仅供测试参考

好的，目前正在学习，主要这个这几天就要要，实在是急，谢谢老师了

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

[已解决] 求教大神,r和把所有表格O列为“是”的复制到信息汇总表

评分

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-8-22 13:16 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-8-22 13:30 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报