求助， 用按钮选择展现附表内容问题

song88346

Book1.rar (6.58 KB, 下载次数: 1)

2014-9-4 08:57 上传

点击文件名下载附件

想在汇总表设置星期一至星期日的按钮，实现选择某日，汇总表展现附表中对应数据

看过一些案例，总弄不好，求助各位老师


此表主要是因为附表有3个，分别由部门不同的大姐们每日填报，

需要设置窗体控件，还要借助offset命令取变量，但还是不能解决

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$M$1" Then Exit Sub
   
3. Dim Arr, i&, d, x$, xq, col, n, c
   
4. Dim Sht As Worksheet
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. xq = Array("星期一", "星期二", "星期三", "星期四", "星期五", "星期六", "星期日")
   
7. col = Array(2, 5, 8, 11, 14, 17, 20)
   
8. n = Application.Match(Target.Value, xq, 0) - 1
   
9. c = col(n)
   
10. Arr = Sheet1.[a1].CurrentRegion
    
11. For i = 2 To UBound(Arr, 2) Step 3
    
12.     x = Left(Arr(2, i), Len(Arr(2, i)) - 3)
    
13.     d(x) = i
    
14. Next
    
15. For Each Sht In Sheets
    
16.     If Sht.Name <> "汇总" Then
    
17.         If d.exists(Sht.Name) Then
    
18.             Cells(4, d(Sht.Name)).Resize(UBound(Arr) - 3, 3) = Sht.Cells(3, c).Resize(UBound(Arr) - 3, 3).Value
    
19.         End If
    
20.     End If
    
21. Next
    
22. End Sub
    

复制代码

蓝桥玄霜

请见附件。

song88346

就是这个效果，学习代码中

谢谢版主