图书馆每天报纸登记的EXCEL表，求大神

布奇奇

希望可以把两个表统一，根据登记表填写完成汇总表，登记表中的“√”可以设置成单击选中（像zip中参考表一样），感谢各位大神

布奇奇

希望可以让登记变的简单一些，看了看大神的代码又完全看不懂。。。。请帮帮忙，谢谢根据登记“√”的统计填写已到和未到数目，希望“√”可以通过单击鼠标左键实现登记和取消


通过已到和未到的数目填写汇总表

microyip

不需要懂任何代码，发个贴，工作就变简单了，多美好

LMY123

跨薄多表统计，并写入表名与标题行字段

布奇奇

LMY123 发表于 2017-12-18 15:08
跨薄多表统计，并写入表名与标题行字段

哦哦哦，明白怎么汇总统一两个表了~~~谢谢大神~~那怎么才能统计登记了“√”的单元格数目呢？

布奇奇

朱荣兴 发表于 2017-12-18 15:53
字典+数组的典型案列，但是很是考验人的意志力

感谢大神帮忙提供思路~~我换了一种方法，可能稍微麻烦一点儿，不过可以基本满足我的需求啦~~~慢慢再琢磨琢磨优化改进~~

布奇奇

microyip 发表于 2017-12-18 14:26
不需要懂任何代码，发个贴，工作就变简单了，多美好

佛由心生，心中有佛，所见万物皆是佛；心中世界美好，所见皆为美好；心中若酸，所见万物皆是酸

布奇奇

朱荣兴 发表于 2017-12-18 15:53
字典+数组的典型案列，但是很是考验人的意志力

除了大神说的字典数组汇总还没有搞清楚弄明白，其他的项目已经达到了想要的效果~~用的是下面的代码~再次感谢大神提供思考方向~以后研究过程中有不明白的还望大神不吝赐教
Dim MM
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 65536 And Target.Column < 256 And Target.Row > 1 And Target.Column > 1 Then
Target.Value = ""
End If
End Sub

Private Sub Works()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MM = Target
If Target.Row < 65536 And Target.Column < 256 And Target.Row > 1 And Target.Column > 1 Then
Target.Value = "√"
Rows.Interior.ColorIndex = 0
x = ActiveCell.Row
y = ActiveCell.Column
Rows(x).Interior.ColorIndex = 40
Columns(y).Interior.ColorIndex = 38
End If
End Sub