excel-vba相关内容
感谢您对此的任何投入.我正在尝试制作一个简单的数据透视表,该数据表从工作表"5个月趋势5月15日"中获取数据,并将其放在我的数据透视表工作表中,该数据表称为“关键性错误-数据透视". 当我尝试使用create方法设置数据透视表缓存范围时,它将返回类型不匹配的运行时错误.我已经检查了参数,看起来我已经正确设置了.我确实尝试指定了数据透视表的版本,但仍收到相同的错误.我的代码如下. 我假设
..
我想以编程方式刷新 Excel工作簿的给定工作表中的所有数据透视表.在此处在StackOverflow上搜索后,我发现ThisWorkbook.RefreshAll 或类似的 Dim pivot As PivotTable For Each pivot In Worksheets("MySheet").PivotTables pivot.RefreshTable pi
..
对于数据透视表中显示的数据,我选择对数据表的某些部分应用条件格式以突出显示某些范围内的值.弄清楚如何与小计数据不同地突出显示第二级行数据很有趣,但是我能够解决这个问题.我的VBA使用Worksheet_PivotTableUpdate事件触发,因此,每当用户更改数据透视表字段时,条件格式都会适当更新. 当某些部分折叠时,此方法继续起作用: 我的运行时错误发生在所有顶级部分都折叠起来时,
..
我是VBA的新手,正在尝试编写一个将创建数据透视表的宏.我需要过滤各个字段,并尝试使用PivotFilters.Add和PivotItems仅允许某些事情通过...有时它可以工作,但有时它会引发错误.以下代码可以正常工作: Sub CreatePivot() Dim objTable As PivotTable, objField As PivotField ActiveWorkbook.
..
我正在尝试找到一种使用Excel 2013 VBA的方法来仅选择数据透视表中的前5个项目.我尝试了以下几行代码,以尝试仅显示前5个项目: Dim c dim i as long Worksheets("sheet1").PivotTables(1).PivotFields ("field1") ActiveSheet.PivotTables(1).PivotFields("field1")
..
Holla!我正在尝试使用宏过滤数据透视表.代码如下: Dim Pi As PivotItem With ActiveWorkbook.Worksheets("TimeToFreq").PivotTables("timetofreq").PivotFields("Transaction status") .ClearAllFilters .PivotItems("succes
..
我正在尝试从单个切片器中选择和取消选择多个切片器项目,而不会触发更新,直到所有选择都完成为止.通过按住Ctrl键并单击我想要的所有选择,我可以非常简单地在Excel前端中执行此操作.但是,当我记录具有这种行为的宏并运行它时,它在每次选择/取消选择后都会更新(记录的宏只是With块中的一堆.Selection = True/False语句). 我尝试使用SlicerCaches.Visible
..
我有一个宏,该宏先前已重置两个数据透视表的缓存,而没有任何错误.我只遇到一张表的运行时错误13类型不匹配,而且我不明白为什么它突然不起作用.当两个表的代码相同时,也只适用于一个表. Sub refresh_caches() Dim cpt As PivotTable, chpt As PivotTable Set ca2 = Sheets("claim edit").Range("A2")
..
我已经搜索并尝试了所有有关如何通过引用单元格值的VBA代码过滤数据透视表的方法.该表只有一个过滤器,称为“名称",该表是我要放在一起的计分卡的一部分,数据透视表本身被称为“数据",工作表名为"report",我要引用的单元格是A5.我可以在VBA中做一些简单的事情,并且已经在这里和那里使用了几年了,但是这件事却使我无法胜任.有人可以简单地把它分解给我吗? 解决方案 首先,在不考虑VBA的情
..
我有两组代码.由于某些原因,在第一个错误中,而在第二个错误中. 1: Dim pi As PivotItem Dim pf As PivotField Set pf = Sheets("Afname per school").PivotTables("Draaitabel3").PivotFields("school") For Each pi In pf.PivotItems
..
我有一个数据透视表,其中显示了Quarters的数据,还有一个宏,它根据数据透视表中的数据执行一些计算.因此,现在我想在更改枢纽项目的选择时自动运行宏,例如select Quarter1,它将显示Q1的值并自动运行宏,以便它计算Q1的值,并且所有选择(包括多个选择.. 解决方案 在具有数据透视表的工作表的代码模块中放入以下内容: Private Sub Worksheet_Pivot
..
刷新后,我需要更新数据透视滤镜以选择除blank以外的所有滤镜选项. 其他答案在这里使用.ShowAllItems方法,该方法对我不起作用,因为它还会显示没有数据的项目(显示下的数据透视选项). 我尝试使用在另一个问题上找到的另一种解决方案.PivotItems("(All)").Visible = True,然后删除空格,但这无济于事. 如何修改“数据透视字段" Activity
..
对于Sheet1上的数据透视表(pt1),我使用VBA通过以下代码更改过滤器字段(filterfield)的值.假设field的值可以是A,B或C Sheets("Sheet1").PivotTables("pt1").PivotFields("filterfield").CurrentPage = "A" 有时,就此问题而言,假设为randomonly,A,B或C将不是filterfi
..
我的数据透视表结构看起来很像(即,数据透视表UI的"ROWS"框中有三个条目) 类别 子类别 子类别 我知道我可以通过分别在VBA中执行PT.PivotFields(3).PivotItems(),PT.PivotFields(2).PivotItems()和PT.PivotFields(1).PivotItems()来获得所有类别,子类别和子子类别,其中PT是我的数据透视表.
..
我有一个数据透视表,该数据透视表从OLAP多维数据集中提取数据,并且我想创建一个宏以根据另一个单元格中的值过滤包含“年度最佳"的数据透视字段,以便我可以轻松地更改表格的时间范围. 我对多维数据集的经验非常有限,因此我使用了宏记录器来查看正在发生的事情.我得到的示例代码是: ActiveSheet.PivotTables("PivotTable3").PivotFields( _
..
这是很新的东西,但我会尽力让我的问题更容易理解. 我有一个带有数据透视表的Excel工作表,我先对第一列(销售人员姓名)进行过滤,然后将过滤后的数据透视表复制粘贴到新的工作表中,并将其另存为销售人员姓名. 是否有可能使宏根据表(Table1)中的值循环通过第一列过滤器,然后将这些值复制到新的工作表中?宏的示例将很有帮助. 更新-我已经在某种程度上进行了一些管理,但是它正在复制数据
..
运行正常: Dim pc As PivotCache With tgtBook.Sheets("Data") Set pc = tgtBook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Range("A1:B5"), Version:=Excel.xlPivotTableVersion14) ' Range("myM
..
我最终找到了一个代码,该代码将在数据透视表更新时将切片器与不同的缓存连接起来.基本上,当slicer1的值更改时,它将更改slicer2以匹配slicer1,从而更新连接到第二个slicer的所有数据透视表. 我添加了.Application.ScreenUpdating和.Application.EnableEvents试图加快宏的速度,但是它仍然很滞后,导致Excel无法响应. 是
..
我有下面的代码,我想让我的数据透视表的数据透视表部分显示3个国家(法国,比利时和卢森堡).每次更新表格时,国家/地区列表都会扩展和收缩(但仍保留法国,比利时和卢森堡). 'delete all filters for country With ActiveSheet.PivotTables("PivotTable1").PivotFields("countryName") .Clea
..
关于如何在用户窗体中嵌入/插入数据透视表/数据透视图的任何想法? *代码示例非常适合分享. 解决方案 在“控件"工具箱中单击鼠标右键时,您是否尝试查看可用的Microsoft Office PivotTable 11.0控件? 这使您可以将数据透视表嵌入到表单中.
..