vba选择切片器项目excel
VBA选择切片器项目是指在Excel中使用VBA编程语言来操作和控制切片器项目。切片器是Excel中的一种数据透视表工具，它可以帮助用户快速筛选和分析数据。通过使用VBA，可以对切片器项目进行自动化操作，提高工作效率和数据分析能力。
在VBA中，可以使用以下代码来选择切片器项目：
Sub SelectSlicerItem()
Dim slicer As Slicer
Dim slicerItem As SlicerItem
' 获取切片器对象
Set slicer = ActiveWorkbook.SlicerCaches("SlicerCache1").Slicers("Slicer1")
' 获取切片器项目对象
Set slicerItem = slicer.SlicerItems("Item1")
' 选择切片器项目
slicerItem.Selected = True
End Sub上述代码中，首先通过ActiveWorkbook.SlicerCaches("SlicerCache1").Slicers("Slicer1")获取切片器对象，其中"SlicerCache1"和"Slicer1"分别是切片器缓存和切片器的名称。然后通过slicer.SlicerItems("Item1")获取切片器项目对象，其中"Item1"是切片器项目的名称。最后，通过slicerItem.Selected = True选择切片器项目。
VBA选择切片器项目在数据分析和报表生成中具有广泛的应用场景。通过自动化选择切片器项目，可以实现数据的动态筛选和分析，提供更加灵活和个性化的数据展示方式。
腾讯云提供了一系列的云计算产品，其中与Excel相关的产品是腾讯文档。腾讯文档是一款在线协作文档工具，可以实现多人实时协作编辑、数据可视化和报表生成等功能。腾讯文档可以与Excel进行数据的导入和导出，同时支持使用VBA脚本来操作和控制文档中的数据和功能。
更多关于腾讯文档的信息和产品介绍，可以访问腾讯云官方网站：腾讯文档
相关·内容
2回答
我遇到了一个简单的VBA片段，用来检查Excel工作簿中所有活动切片器的缓存。
Sub RetrieveSlicers()
Dim caches As Excel.SlicerCaches
Set caches = ActiveWorkbook.SlicerCaches
End Sub
通过在End Sub旁边放置一个断点，右键单击cache并选择'Add Watch.‘
(见下文)
您可以通过“手表”窗口查看每个活动切片器中的所有项目。
我的问题是，我是否可以将切片器缓存信息(特别是SlicerItems)保存到以后(可能是一个文本数组？)，然后将保存的切片器缓存
浏览 3提问于2016-10-06得票数 1
回答已采纳
我需要一些VBA代码的帮助。我有一个AgeRange切片器和一个工作脚本，它插入一行，添加时间戳，然后报告切片器选择。
我想在这里添加一些东西，如果切片器中的所有项都被选中(True)，那么将跳过这个过程。
有没有什么我可以插入的东西，上面写着“如果切片器没有被触摸过(所有的项都是真的)，那么结束sub”。
以下是我到目前为止所拥有的代码：
Dim cache As Excel.SlicerCache
Set cache = ActiveWorkbook.SlicerCaches("Slicer_AgeRange")
Dim sItem As Excel.SlicerItem
浏览 1提问于2013-04-13得票数 0
All -这是在RE: Excel VBA中。我正在寻找通过切片选择和打印PDF的循环。我的代码确实为标准的枢轴工作，但它不工作时，使用它在PowerPivot上，这是我正在寻找。
有没有人可以解释一下如何在powerpivot中使用下面的代码？(来自power pivot源数据的切片器)
Option Explicit
Sub ExportPDFs()
Dim sI As SlicerItem, sI2 As SlicerItem, sc As SlicerCache
Dim fname$
Set sc = ActiveWorkbook.SlicerCaches("Slicer
浏览 12提问于2019-07-08得票数 0
回答已采纳
问题是，每当我运行宏时，切片器上实际上没有发生任何事情-我的意思是没有选择任何项。我需要根据当前日期自动按月过滤。代码有什么问题？我需要强调的是，我的透视表是在数据模型上创建的：
Sub Archive()
Dim i As SlicerItem
Dim ostWierszWS As Long
Dim zakres As Range
Dim zakres_ws As Range
Dim WS As Worksheet
Application.ScreenUpdating = False
For Each i In ActiveWor
浏览 0提问于2018-07-18得票数 1
我有几个使用不同缓存的数据透视表。所有这些表都是通过数据连接创建的，并且都使用数据模型。我正在尝试创建主切片器，同时过滤所有的表。
使用VBA，我的想法是填充来自pivotcache1 (我的主切片器链接到的缓存)的所有可见pivotitems的数组，然后循环该数组以过滤我的其他缓存(pivotcache2和pivotcache3)。
然而，下面的代码不起作用-它在For Each循环中崩溃。
Sub FilterMonth()
Dim sc1, sc2, sc3 As SlicerCache
Dim si As SlicerItem
Set sc1 = Activ
浏览 0提问于2015-09-10得票数 0
我试图用VBA代码更改excel文档中的切片器。到目前为止，我已经尝试了几乎所有的东西，最后总是犯同样的错误：
Run-time error '1004':
Application-defined or object-defined error
这是我当前的VBA代码。
Sub SelectSlicerValue(ByVal SlicerName As String, ByVal slicerVal As String, ByVal isSelected As Boolean)
ActiveWorkbook.SlicerCaches(SlicerName).Slice
浏览 2提问于2016-04-11得票数 1
4回答
我有两个源表和几十个基于它们的枢轴。
这两个表都有一个具有公共可能值集的公共字段。
我有两个切片器(每个源表一个)。每个切片器控制多个相关的数据透视表。
我想让它们同步。
也就是说，如果用户在Slicer_1中选择值A，则Slicer_2将自动更新以使值A也被选中。
所以到目前为止我所得到的是非常基本的
ActiveWorkbook.SlicerCaches("Slicer_1").SlicerItems("A").Selected = ActiveWorkbook.SlicerCaches("Slicer_2").SlicerItems(
浏览 9提问于2014-11-07得票数 5
回答已采纳
我在一个电子表格中有几个切割机。我希望能够通过VBA循环其中的一个，并逐个选择每个选项。在我疲惫的眼睛中，下面的宏看起来很好，但是当我运行它时，它显然不起作用。当我在下面的“断点”标签上添加一个断点时，第一项被选中，但是宏在保持第一项被选中的同时转到第二项，最后我选择了我的所有项目.
Sub slicers(slName As String)
Dim slItem As SlicerItem, slDummy As SlicerItem
Dim slBox As SlicerCache
Set slBox = ActiveWorkbook.SlicerCache
浏览 8提问于2015-10-27得票数 1
回答已采纳
2回答
我已经创建了一个宏，它可以打开透视表数据，然后我需要将这些数据用于财务对帐。我必须经历同样的过程80次，但不是在循环中，因为我需要记录我发现的东西。然而，只有第一次有效，第二次在添加表切片器时获得。和我相信的名字有关。
如果需要，表格可以命名为单元格D6中的值，但是我不知道如何做到这一点，任何帮助都将不胜感激。
ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects(ActiveSheet.ListObjects(1).name), "YEAR"). _
Slicers.Add ActiveSheet, , "Y
浏览 31提问于2020-05-26得票数 0
回答已采纳
我有一个叫' slicer _HeaderTitle‘的切片器。我只需要能够在VBA中用所选元素的值模糊一个变量。我一次只选择一个元素。
在通过VBA动态地从切片器中选择和取消选择元素时，我遇到了很多问题，因为我的枢轴表连接到外部数据源。我不知道这是否与这个确切的例子相关，但是这个表连接到相同的外部数据源。
我以前有一行代码，它可以返回这个值，但是现在我所能找到的只是循环遍历切片器中的每个元素，并检查它是否被选中。我希望避免这种情况，因为我一次只有一个选定的元素。
' This is what I'm trying to achieve.
Dim sValue
浏览 14提问于2016-04-15得票数 11
我有一个搜索框( K1 )，它将搜索切片器项目并显示适当的图表，但是，如果用户选择使用切片器来显示特定图表，K1中的值将与切片器项目不匹配。
只有当用户使用搜索框时，它们才会匹配。我在单元格O1中创建了一个公式，如果它们匹配，则返回1(如果它们匹配)，如果它们不匹配，则返回0，然后尝试使K1 = to item value的不同变体(代码的引号部分)。
请参阅我的仪表板图像链接以供参考。
我对VBA非常陌生，所以任何ELI5的答案都将不胜感激。
Sub SearchPivots()
Application.ScreenUpdating = False
Application.Di
浏览 2提问于2015-12-14得票数 0
我有一些引用切片器的代码：
For Each item In wb.SlicerCaches("Segment").SlicerItems
If item.Selected = True Then
If Len(sSegment) > 0 Then sSegment = sSegment & "|"
sSegment = sSegment & item.Caption
End If
Next item
但我得到了Invalid procedure call or argument。我见过许多通
浏览 1提问于2015-08-17得票数 1
1回答
我有一个旋转切片器与链接到PivotTable的网站列表。我想循环通过切片器来实现以下目标：
选择一个站点
显示相关的值
将数据导出到PDF文件
选择下一个站点等
我已经得到了将数据导出到PDF文件的代码，但我正在努力在每个站点上循环切片器和过滤器。目前我有以下几点：
Sub ExportPDFs()
Dim sI As SlicerItem
For Each sI In ActiveWorkbook.SlicerCaches("Slicer_site").SlicerItems
Debug.Print sI.Name
Debug.Print Range(
浏览 0提问于2015-10-20得票数 0
我设计了一个仪表板，它由许多不同的枢轴表和枢轴图组成。
所有这些枢轴表/图表都由一个称为"Slicer_Store“的切片器控制。
在这台切割机里有大约800个不同的商店可供选择。
我需要保存每个商店的仪表板的pdf。手动选择每个切割器项目，然后将表保存为一个pdf文件的过程对于800+存储非常耗时，所以我希望通过VBA自动化这个过程。
到目前为止，这是我的代码：
Public Sub myMacro()
Dim sI As SlicerItem, sI2 As SlicerItem, sC As SlicerCache
Set sC = ActiveWorkbook.SlicerCa
浏览 0提问于2017-04-18得票数 2
回答已采纳
正在尝试缩小此VBA脚本的范围，但不必列出。我是一个基本的宏用户。我如何才能让一个selected = True，rest = False，而不必列出所有160个？
With ActiveWorkbook.SlicerCaches("Slicer_Organization")
.SlicerItems("900110 - Danish Bemidji ").Selected = True
.SlicerItems("900101 - Arabic Bemidji").Selected = False
.SlicerItem
浏览 94提问于2018-07-25得票数 1
我正在寻找VBA清除所有切片和刷新数据透视表Excel 2013，然而，它打破了"ClearAllFilters“。我研究的每一件事都建议使用它。是否有更好的方法来刷新切片并显示所有结果。此外，还希望包括数据模型的刷新和数据透视表。
Public Sub RefreshSlicersOnWorksheet(ws As Worksheet)
Dim sc As SlicerCache
Dim scs As SlicerCaches
Dim slice As Slicer
Set scs = ws.Parent.SlicerCaches
If Not scs Is Nothing T
浏览 0提问于2016-03-10得票数 0
2回答
我是一个VBA的新手，需要学习如何在切片器上自动更改选定的值。我首先尝试了一个非常简单的代码，但我尝试了以下代码的所有可能变体，总是得到错误1004，这一次是“应用程序定义的错误或对象定义的错误”。
Sub SlicerSelect()
With ActiveWorkbook.SlicerCaches("Slicer_Time")
.SlicerItems("2016").Selected = False
End With
End Sub
有人有想法吗？也是我的切片器和它的设置的图像。
顺便说一句，当我使用.ClearManual
浏览 8提问于2018-07-05得票数 1
回答已采纳
我正在尝试使用一个脚本来做一些事情，只有在使用Google Sheets中的切片器时没有过滤的行。我不能让它工作。
我已经尝试过了：
Logger.log(SpreadsheetApp.getActiveSheet().isRowHiddenByFilter(1));
即使使用切片器隐藏行，我也会得到"false“( Google Sheets中的新功能)。
有人让它工作了吗？
编辑:它适用于常规的过滤器，语法，函数参数中编辑的行号。将短语过滤器控件(直接从挪威语翻译)替换为slicers，这是该功能的正确英文名称。
浏览 2提问于2019-09-04得票数 1
1回答
下面的代码在我的计算机上使用Excel 2013和使用Excel 2010和2016的其他两台计算机上运行良好，但它为其中一个用户提供了Slicer部分(以下粗体)中的无效过程。
这是我第一次看到来自另一个用户的错误，并在以前的其他报告中使用过这个错误。我不知道是什么导致了这一点，因为宏在其他计算机和我的计算机上都能正常工作。
我该怎么解决这个问题？
Sheets("Scorecard").Select
**ActiveWorkbook.SlicerCaches("Slicer_Country").ClearManualFilter**
With Acti
浏览 5提问于2017-01-22得票数 1
回答已采纳
2回答
我有一本工作簿，它有两个支点的桌子，有完全相同的切割机。我使用一个VBA脚本来同步这两个切片器。我把它们命名为"Slicer_xxxx_Master“，另一个命名为"Slicer_xxxx_Slave”。
下面的代码工作得很好，除了在有很多选项的切割器上。由于它一个接一个地设置切片，所以它会一次又一次地对透视表进行重新筛选，直到设置所有所需的切片为止。
是否有一种方法可以将所有的切片项值收集到一个数组中，然后一次性设置从切片程序的值？
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Appli
浏览 7提问于2017-10-03得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
