网站建设木马科技,企业网站模板html下载,网站程序找人做还是自己做,软件最全的网站如上图#xff0c;想在数据透视表中只显示红色区域的内容#xff0c;手动勾选就比较繁琐。 实现思路#xff1a; 先复制红色的内容。鼠标停留在数据透视表【型号】列的任意数据上#xff08;通过该单元格可以获取数据透视表和字段#xff09;由于数据透视表的字段不能全部… 如上图想在数据透视表中只显示红色区域的内容手动勾选就比较繁琐。 实现思路 先复制红色的内容。鼠标停留在数据透视表【型号】列的任意数据上通过该单元格可以获取数据透视表和字段由于数据透视表的字段不能全部取消筛选至少要保留一项所以先找到红色内的第一个有效值本例中的红字本来就是数据源所以都是有效的实际使用可能会有不在列表的内容让数据透视表只显示这一项再循环红色内容如果在列表内的全部显示不在列表的也可以提取出来 clip : Trim(Clipboard, trn)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
