活动枢轴表名称

1 回答

• 0

  有关如何处理数据透视表的各个部分的详细概述，请参见http://peltiertech.com/referencing-pivot-table-ranges-in-vba/ .

  这应该让你开始：

  Sub Tester()
  
      Dim pt As PivotTable
  
      Set pt = ActivePivotTable
  
      If pt Is Nothing Then
          Debug.Print "No Active pivot table"
      Else
          Debug.Print "Active = " & pt.Name
          'work on pt...
      End If
  
  End Sub
  
  'get the pivot table which contains the current selection
  Function ActivePivotTable() As PivotTable
      Dim pt As PivotTable, rv
      For Each pt In ActiveSheet.PivotTables
          Debug.Print pt.Name, pt.TableRange2.Address
          If Not Intersect(Selection, pt.TableRange2) Is Nothing Then
              Set ActivePivotTable = pt
              Exit Function
          End If
      Next pt
  End Function
  

  回复于 2024-04-27T03:02:45+08:00