在VBA中创建切片器并改变样式

Question

它是一个包含许多工作表的大型工作簿，因此所有名称都需要是可变的。

这就是我所拥有的：

Sub TestAddSlicer()
    var_Pivot_Name = ActiveSheet.PivotTables(1).Name
    var_Slicer_Name = "Booking Status " + var_Pivot_Name
    var_SlicerCache_Name = "SlicerCache " + var_Pivot_Name
    var_Slicer_Source = "fld_Participation_Status"
    'Add slicer here I get Error "="
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.PivotTables(var_Pivot_Name), var_Slicer_Source,var_SlicerCache_Name).Slicers.Add (ActiveSheet, , var_Slicer_Name, _
    "Booking Status", 185.4, 401.4, 144, 194.25)
    'Color Slicer
    ActiveSheet.Shapes.Range(Array(var_Slicer_Name)).Select
    ActiveWorkbook.SlicerCaches(var_Slicer_Name).Slicers(var_Slicer_Name).Style = "Datenschnittformat 1"
End Sub

我有几个版本，其中添加切片器可以工作，但是着色从来不起作用。

Answer 1

首先，切片器缓存名称不能包含任何空格。因此，您可以使用下划线替换空格。此外，使用与号(&)而不是加号(+)来连接值也被认为是一种很好的做法。因此，我建议您将加号替换为与号。

var_SlicerCache_Name = "SlicerCache_" & var_Pivot_Name

其次，您需要删除Slicers.add参数中的括号，还需要删除空行。

ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.PivotTables(var_Pivot_Name), var_Slicer_Source, var_SlicerCache_Name).Slicers.Add ActiveSheet, , var_Slicer_Name, _
    "Booking Status", 185.4, 401.4, 144, 194.25