如何让透视表在双击后在指定表中打开明细表

dogseye

如何让透视表双击后不增加工作表.rar (14.17 KB, 下载次数: 376)

2013-11-21 08:58 上传

点击文件名下载附件

功能，让透视表在双击后，在指定表中打开明细数据：

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. Application.DisplayAlerts = False
   
3. If Target.Row > 4 And Target.Column > 1 Then
   
4.     Target.Select
   
5.     Application.CutCopyMode = False
   
6.     Selection.ShowDetail = True
   
7.     'Selection.ClearContents
   
8.     Sheet6.Range("A3") = ActiveSheet.Range("A2").Value
   
9.     Sheet6.Range("B3") = ActiveSheet.Range("B2").Value
   
10.     Sheet6.Range("C3") = ActiveSheet.Range("C2").Value
    
11.     Sheet6.Range("D3") = ActiveSheet.Range("D2").Value
    
12.     Sheet6.Range("E3") = ActiveSheet.Range("E2").Value
    
13.     Sheet6.Range("F3") = ActiveSheet.Range("F2").Value
    
14.     ActiveWindow.SelectedSheets.Delete
    
15.     Sheet6.Select
    
16. End If
    
17. Application.DisplayAlerts = True
    
18. End Sub

复制代码

xiaofx11

{:soso_e120:}楼主想说明啥

dogseye

xiaofx11 发表于 2013-11-23 14:33
楼主想说明啥

哈哈，就是说啊，原来的数据透视表，每次双击都是重新新建一个sheet后，显示明细数据；用这种方法就可以让每次双击后的明细数据，在同一个sheet中显示了。

雨静儿

又是代码啊，太难了

dogseye

xiaofx11 发表于 2013-11-23 14:33
楼主想说明啥

哈哈，就是说啊，原来的数据透视表，每次双击都是重新新建一个sheet后，显示明细数据；用这种方法就可以让每次双击后的明细数据，在同一个sheet中显示了。

wnh728

数据透视表功能真的很大，谢谢楼主资源共享！

pingdande

最好是给代码的含义解析一下

方明泽

Excel里面一共有这么多宏，是需要全部代码才能达到楼主说的效果吗？还是只需要其中一个？

lpuestc

这都行，太强了