我有一个包含20个标签的Excel工作簿 .
每个选项卡都有一个数据透视表,可以有20个切片器 .
工作表"Origin"具有切片器设置,可以与所有其他工作表共享(稍作修改)
我已经开发了代码,它将复制所有切片器并将它们附加到其他工作表上的相关枢轴表 . 在此过程中会创建唯一的切片器名称 .
我现在想要扩展它,以便我可以使用任何具有复制的切片器集的工作表作为"Origin" .
这是我遇到问题的地方,因为切片器的重命名目前遍历所有的slicercache . 有没有办法识别切片器所属的工作表?
下面是我获取切片器信息的代码的一部分 . 这有点乱,因为这是正在进行中的工作!
注意:SlicerArray是一个Type数组 .
如果我在"Origin"之外的任何其他工作表上启动我的流程,"****"行会导致我出现问题 . (Slicercache中的初始项属于Origin表,因此在从备用工作表处理缓存时找不到这些形状) . 如果我可以识别属于该特定工作表的切片器,我可以绕过这个 .
Dim slCaches As SlicerCaches
Dim slCache As SlicerCache
Dim SlicerInfo(100, 6)
Dim sh As Shape
Dim IntIndex As Integer
Dim SlicerArray(100) As SlicerRecord
Dim pt As PivotTable
Dim jSlicers As Slicers
Dim kSlicer As Slicer
Dim ws As Worksheet
Dim sh_name As String
For Each pt In ActiveSheet.PivotTables
For Each slCache In slCaches
For Each kSlicer In slCache.Slicers
If kSlicer.Shape.TopLeftCell.Worksheet.Name = ActiveSheet.Name Then
Set sh = ActiveSheet.Shapes(slCache.SourceName)'*****
With SlicerArray(IntIndex)
.PivotTable = pt.Name
.Name = slCache.Name
.SourceName = slCache.SourceName
.Top = sh.Top
.Left = sh.Left
.Width = sh.Width
.Height = sh.Height
.Caption = kSlicer.Caption
With slCache.Slicers(slCache.SourceName)
SlicerArray(IntIndex).Columns = .NumberOfColumns
End With
IntIndex = IntIndex + 1
End With
End If
Next kSlicer
Next slCache
Next pt
1 回答
我最终找到了答案 . 链接工作表和切片器名称可以通过数据透视表Parent.Name属性完成 . 我使用下面的代码填充具有相关切片器名称和相关工作表的另一个类型数组 .