[已解决]工作表更新问题

心灵之舞

bb.rar (9.02 KB, 下载次数: 7)

2014-10-30 22:49 上传

点击文件名下载附件
根据数据表查询人数。
当数据表变化时，统计表人数自动更新。请论坛里的朋友帮写个代码！谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-31 09:18

数据表发生变化，统计表为当前工作表，自动执行代码

跳转到最佳答案楼层

dsmch

如果仅仅是统计人数，用公式就行了

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, zf$$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("a1").CurrentRegion
   
5. brr = Sheets("数据表").Range("a1").CurrentRegion
   
6. For i = 2 To UBound(brr)
   
7.     zf = brr(i, 4) & "," & brr(i, 6)
   
8.     d(zf) = d(zf) + 1
   
9. Next
   
10. For i = 3 To UBound(arr)
    
11.     zf = arr(i, 2) & "," & arr(i, 3)
    
12.     arr(i, 4) = d(zf)
    
13. Next
    
14. Range("d1").Resize(UBound(arr)) = Application.Index(arr, 0, 4)
    
15. End Sub

复制代码

心灵之舞

dsmch 发表于 2014-10-31 04:13
如果仅仅是统计人数，用公式就行了

谢谢dsmch老师，如果统计表中存在数据表中没有的数据，当用您的代码时会清除掉第4列的数据，能否再修改下代码！
比如在统计表中加一个单位G，人数设为6。运行时会删除后面的数据。能否只修改数据表中有的数据！谢谢您！

心灵之舞

dsmch 发表于 2014-10-31 04:13
如果仅仅是统计人数，用公式就行了

aa - 副本.rar (11.8 KB, 下载次数: 1)

2014-10-31 09:07 上传

点击文件名下载附件 谢谢了，如果要实实更新，能否写成工作表变化事件！谢谢了

dsmch

数据表发生变化，统计表为当前工作表，自动执行代码

心灵之舞

心灵之舞 发表于 2014-10-31 09:08
谢谢了，如果要实实更新，能否写成工作表变化事件！谢谢了

谢谢dsmch老师，向您学习了！