Fw: [VBA ] Excel的樞紐用text box進行篩選(包含)

看板Office作者 (宅宅)時間9年前 (2017/03/10 05:12), 編輯推噓0(008)
留言8則, 2人參與, 最新討論串1/1
※ [本文轉錄自 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://www.ptt.cc/bbs/Visual_Basic/M.1489093703.A.C11.html ※ 發信站: 批踢踢實業坊(ptt.cc) ※ 轉錄者: ddxy (36.226.198.56), 03/10/2017 05:12:08

03/10 07:16, , 1F
包含的話以instr如原文的https://goo.gl/8gQtqJ連結
03/10 07:16, 1F

03/10 07:16, , 2F

03/10 22:59, , 3F
謝謝大大的分享,我原本用的時候會卡在pi.Visible = True
03/10 22:59, 3F

03/10 23:00, , 4F
現在用大大的會動了,可是如果打了篩選是無符合的形況,
03/10 23:00, 4F

03/10 23:00, , 5F
會跳錯誤 ~"~
03/10 23:00, 5F

03/10 23:16, , 6F
可以worksheetfunction的countif判斷是否有1筆以上符合資
03/10 23:16, 6F

03/10 23:18, , 7F
料或以range.find
03/10 23:18, 7F

03/12 18:07, , 8F
感謝大大,可以VBA跑了QQ
03/12 18:07, 8F
文章代碼(AID): #1OmSKf1b (Office)
文章代碼(AID): #1OmSKf1b (Office)