|
如何让透视表双击后不增加工作表.rar
(14.17 KB, 下载次数: 376)
功能,让透视表在双击后,在指定表中打开明细数据:
- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- Application.DisplayAlerts = False
- If Target.Row > 4 And Target.Column > 1 Then
- Target.Select
- Application.CutCopyMode = False
- Selection.ShowDetail = True
- 'Selection.ClearContents
- Sheet6.Range("A3") = ActiveSheet.Range("A2").Value
- Sheet6.Range("B3") = ActiveSheet.Range("B2").Value
- Sheet6.Range("C3") = ActiveSheet.Range("C2").Value
- Sheet6.Range("D3") = ActiveSheet.Range("D2").Value
- Sheet6.Range("E3") = ActiveSheet.Range("E2").Value
- Sheet6.Range("F3") = ActiveSheet.Range("F2").Value
- ActiveWindow.SelectedSheets.Delete
- Sheet6.Select
- End If
- Application.DisplayAlerts = True
- End Sub
复制代码
|
|