多表再汇总

simpman

yaozong 发表于 2014-12-15 17:06
参考附件

感谢大侠出手，使用中发现有以下几点：
1.汇总表最少要汇总二张表，剩一张表就会出错（这个问题不大）
2.汇总表表名列的表名一定要对应现有的分表，尽管分表有的表汇总表可以不列，但汇总表上的表一定要有分表。最好能不对应时不要出错。
3.汇总表汇总项表头和分表对应类别关键字能不能对换如附件。

yaozong

simpman 发表于 2014-12-17 09:08
感谢大侠出手，使用中发现有以下几点：
1.汇总表最少要汇总二张表，剩一张表就会出错（这个问题不大）
...

3个问题一并解决

参考附件

simpman

yaozong 发表于 2014-12-17 11:10
3个问题一并解决

参考附件

太精彩了，佩服，再来玩跳转好吗？在分表写了跳转的函数效果如表1 F2，F6，能不能实现在汇总表白色区域用代码双击单元格跳返回去，谢谢。

yaozong

simpman 发表于 2014-12-17 11:55
太精彩了，佩服，再来玩跳转好吗？在分表写了跳转的函数效果如表1 F2，F6，能不能实现在汇总表白色区域用 ...

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ''代码放在【汇总】表代码区
   
2.   Dim r&, k&, c&, m&, sh$, js$
   
3.   r = Cells(Rows.Count, 1).End(3).Row
   
4.   If Intersect(Target, Union(Range("f3:l" & r), Range("n3:t" & r))) Is Nothing Then Exit Sub
   
5.   If Target = "" Then Exit Sub
   
6.   k = Target.Row: c = Target.Column: sh = Cells(k, 1): js = Cells(2, c)
   
7.   s = IIf(c < 13, "A类" & js, "B类" & js): l = IIf(c < 13, 6, 10)
   
8.   With Sheets(sh)
   
9.     .Select: .Cells(.Columns(l).Find(s, , , 1).Row, l).Resize(1, 4).Select
   
10.   End With
    
11. End Sub

复制代码

yaozong

参考附件            

simpman

yaozong 发表于 2014-12-17 14:22

表1 F2,F6写了函数的单位格跳过去会出现这个。。。

yaozong

simpman 发表于 2014-12-17 14:38
表1 F2,F6写了函数的单位格跳过去会出现这个。。。

取销分表中公式型的超链接，也用双击某类别项返回汇总表对应值（类似超链接的功能）

参考附件

yaozong

楼上附件已更新

simpman

yaozong 发表于 2014-12-18 11:14
楼上附件已更新

对不起晚看到了，只要汇总表加几条啊，表1的几条也可删吧？这样效率比函数高多了，函数算白整了，我也要学VBA，太强了，你学了多久的？

simpman

yaozong 发表于 2014-12-18 11:14
楼上附件已更新

不好意思再请教您，我那些单价规格也是想用函数查询的，如果用代码能不能只在thisworkbook里写几条，不用每张分表里写行不行？