找到一份資料，在非樞紐情況下可以使用
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