这个汇总表格式怎么实现？？？

tsoyzm

如题：汇总表的页字段怎么实现？？？

统计.rar (5.4 KB, 下载次数: 56)

2012-4-19 20:22 上传

点击文件名下载附件

今天看到吴想老师用SQL解决的方法，虽然还不明白是怎么回事，但总有一天会明白的！下面是吴老师的方法： http://club.excelhome.net/thread-857637-1-1.html

该贴已经同步到 tsoyzm的微博

zez

能否模拟一下结果？

tsoyzm

zez 发表于 2012-4-19 20:34
能否模拟一下结果？

就是选择不同餐别的时候，下面表中要显示相应的信息

AVEL

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4.     Dim RNG As Range
   
5.     Dim col As Integer
   
6.     If Target.Address = "$A$3" Then
   
7.         With Sheet1
   
8.             Set RNG = .Range("b2:j" & .[b65536].End(3).Row)
   
9.             col = .Range("2:2").Find(Target.Value).Column
   
10.             RNG.AutoFilter col - 1, "<>"
    
11.             [a6:c60000].ClearContents
    
12.             .Range("b3:d" & .[b65536].End(3).Row).SpecialCells(xlCellTypeVisible).Copy [a6]
    
13.         End With
    
14.         RNG.AutoFilter
    
15.     End If
    
16. End Sub

复制代码

AVEL

统计 12-04-19 21-34.rar (12.98 KB, 下载次数: 37)

2012-4-19 21:34 上传

点击文件名下载附件

tsoyzm

AVEL 发表于 2012-4-19 21:34

VBA太强大了，语句不长就解决了，可是我不懂VBA

tsoyzm

AVEL 发表于 2012-4-19 21:34

用其它方法能实现吗

AVEL

选择餐类别以后
在下面表格里面右键刷新一下
统计 12-04-19 22-20.rar (13.25 KB, 下载次数: 17)

2012-4-19 22:23 上传

点击文件名下载附件

tsoyzm

AVEL 发表于 2012-4-19 22:23
选择餐类别以后
在下面表格里面右键刷新一下

每次都要点刷新？？？

AVEL

tsoyzm 发表于 2012-4-20 09:24
每次都要点刷新？？？

5楼的办法可以不用点刷新。
8楼的办法如果不想点刷新，也得用宏才行。