AutoHotkey调用VBA实现批量精确筛选数据透视表某字段内容。

如上图，想在数据透视表中只显示红色区域的内容，手动勾选就比较繁琐。

实现思路：

先复制红色的内容。
鼠标停留在数据透视表【型号】列的任意数据上（通过该单元格可以获取数据透视表和字段）
由于数据透视表的字段不能全部取消筛选（至少要保留一项），所以先找到红色内的第一个有效值（本例中的红字本来就是数据源，所以都是有效的，实际使用可能会有不在列表的内容），让数据透视表只显示这一项

再循环红色内容，如果在列表内的全部显示（不在列表的也可以提取出来）

    clip := Trim(Clipboard, " `t`r`n")pt := xl.ActiveCell.PivotTablepf := xl.ActiveCell.PivotFieldxl.ScreenUpdating := False;先找到第一个存在的项目firstItemLoop, Parse, clip, `n, `r{Try{pf.PivotItems(A_LoopField)firstItem := A_LoopField;MsgBox,% firstItemBreak}};只显示firstItemFor k In pf.PivotItems{If (k.Value = firstItem)k.Visible := TrueElse If k.Visiblek.Visible := False};显示剪切板项目Loop, Parse, clip, `n, `r{Try ;可能项目不在PivotItems里pf.PivotItems(A_LoopField).Visible := True;Catch ;记录失败项;MsgBox,% A_LoopField . "`n显示失败"}xl.ScreenUpdating := TrueReturn

转载于:https://www.cnblogs.com/hyaray/p/10550143.html

AutoHotkey调用VBA实现批量精确筛选数据透视表某字段内容。相关推荐

数据透视表右侧字段不见了，怎么办？
数据透视表右侧字段不见了,怎么办? 点击"右键"--选择"显示字段列表"
创建了一个表之后怎么再次在表中添加字段和字段显示位置_筛选数据透视表中的数据...
[推荐阅读]资料下载QQ群:562718785(软件下载.精美PPT模板下载) [Excel视频教学]求和及快速求和 [Excel视频教学]跨表快速求和 [Excel视频教学]函数-相对绝对混合引用 ...
excel 透视表 vba_使用Excel VBA删除数据透视表计算字段
excel 透视表 vba Yesterday, I started out with the best of intentions, planning to get some work done, ...
数据透视表日期怎么选范围_筛选数据透视表中的日期范围
数据透视表日期怎么选范围 In a pivot table, you might want to see all the orders that were shipped on a specific ...
在Excel中筛选数据透视表源数据
When you're analyzing data in an Excel pivot table, you might want to see the detail behind one of t ...
单单表单独占一行_数据透视表→Alt+D+P?
数据透视表是Excel中最快.最灵活.最强大的数据处理分析工具.它可以轻松快速地进行分类汇总.筛选与排序.数据比较分析等各种复杂的数据统计.在数据汇总和分析方面,它比各类求和.求平均.求占比Sumif ...
表单数据自动录入_Excel总表录入、分表自动更新，只要数据透视表和一个快捷键就行...
合并多个分表到一个总表中,这样的操作很常见.但,有时候我们也需要反过来,即将一个总表拆分成多个子表,并且在总表中录入/修改数据后,每个分表都可以自动更新数据. 如以下资金流动表. 除了资金流水,我们还 ...
利用excel与Pandas完成实现数据透视表（文末赠书）
文末赠书数据透视表是一种分类汇总数据的方法.本文章将会介绍如何用Pandas完成数据透视表的制作和常用操作. 1,制作数据透视表制作数据透视表的时候,要确定这几个部分:行字段.列字段.数 ...
利用excel与Pandas完成实现数据透视表
数据透视表是一种分类汇总数据的方法.本文章将会介绍如何用Pandas完成数据透视表的制作和常用操作. 1,制作数据透视表制作数据透视表的时候,要确定这几个部分:行字段.列字段.数据区,汇总函数.数据 ...

AutoHotkey调用VBA实现批量精确筛选数据透视表某字段内容。

AutoHotkey调用VBA实现批量精确筛选数据透视表某字段内容。相关推荐

最新文章

热门文章