如何使用VBA通过枢轴切片机过滤

Question

我有一个最终提取PDF的宏。

当然，PDF上显示的内容取决于枢轴被过滤的内容，在这种情况下，它是使用切片机对其进行过滤的。

我需要在 3个月过滤的本月中提取PDF。

我该怎么做？因此，例如，如果用户在3月选择了切片机，则宏将仅在3月提取PDF，但我需要它也需要在同一PDF文件中提取四月，5月和6月（因此，文件中的4页）。我希望这有意义。

有没有一种方法可以编码宏来选择一个月 1，一个月 2等？

Answer 1

如果我正确理解了您的问题，如果用户在切片机中选择一个月，您希望VBA宏选择一个月 1， 2， 3在切片机中？

这个VBA宏可以做到。您可以将其用作基础，让您开始：

Option Explicit
Sub Select4Slices()
Dim slicer As SlicerCache
Dim slice As SlicerItem
Dim selectNextOne As Boolean
Dim selectedCount As Integer
Set slicer = ThisWorkbook.SlicerCaches(1)
For Each slice In slicer.SlicerItems
    If slice.Selected Then
        selectNextOne = True
        selectedCount = selectedCount + 1
    Else
        If selectNextOne Then
            slice.Selected = True
            selectedCount = selectedCount + 1
        End If
    End If
    If selectedCount >= 4 Then
       Exit For
    End If
Next slice
End Sub