找到一份资料，在非枢纽情况下可以使用
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