作者ddxy (宅宅)
看板Office
标题Fw: [VBA ] Excel的枢纽用text box进行筛选(包含)
时间Fri Mar 10 05:12:08 2017
※ [本文转录自 Visual_Basic 看板 #1OmSH7mH ]
作者: ddxy (宅宅) 看板: Visual_Basic
标题: [VBA ] Excel的枢纽用text box进行筛选(包含)
时间: Fri Mar 10 05:08:19 2017
找到一份资料，在非枢纽情况下可以使用
http://analystcave.com/excel-tip-day-excel-autofilter/
但是转化为枢纽VB後却无法使用，会造成第一次筛选成功，
但是改变关键字之後出现错误讯息，发现消去关键字也不会将筛选清空
後来尝试了几个方法
http://goo.gl/nkXc0h
https://goo.gl/8gQtqJ
https://goo.gl/R56rnI
有得到"等於"筛选的效果，但想要用的是"包含"，不知道该怎麽转化过去才能成功
我自己尝试过的错误资料如下：
Private Sub TextBox1_Change()
ActiveSheet.PivotTables("枢纽分析表
1").PivotFields("asd").PivotFilters.Add Type:=xlCaptionContains, value1:="=*"
& TextBox1.Text & "*"
End Sub
如果打value1:="J"是可以生效，只是不知道怎麽修改因应TextBox来使用，
希望有大大可以分享心得，谢谢 QQ
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.226.198.56
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1489093703.A.C11.html
※ 发信站: 批踢踢实业坊(ptt.cc)
※ 转录者: ddxy (36.226.198.56), 03/10/2017 05:12:08
3F：→ ddxy: 谢谢大大的分享，我原本用的时候会卡在pi.Visible = True 03/10 22:59
4F：→ ddxy: 现在用大大的会动了，可是如果打了筛选是无符合的形况， 03/10 23:00
5F：→ ddxy: 会跳错误 ~"~ 03/10 23:00
6F：→ soyoso: 可以worksheetfunction的countif判断是否有1笔以上符合资 03/10 23:16
7F：→ soyoso: 料或以range.find 03/10 23:18
8F：→ ddxy: 感谢大大，可以VBA跑了QQ 03/12 18:07