返回列表 上一主題 發帖

[發問] 請問VBA樞鈕篩選問題

yiwei0707

帖子
20 
主題
6 
精華
0 
積分
26 
點名
0  
作業系統
OS X & Windows 10 
軟體版本
Office 2003 & Office 365 
閱讀權限
10 
性別
男 
註冊時間
2017-7-20 
最後登錄
2022-7-25 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-6-18 08:59 | 只看該作者

[發問] 請問VBA樞鈕篩選問題

請問有辦法一次篩選完1906開頭的所有日期嗎??
目前只能把日期先另行篩選符合1906的項目再一個一個慢慢篩選打開
但如果是一個月的話至少迴圈要跑30次…
所以想請問是否有其它的辦法可以一次性的篩選完打開需要的日期???
謝謝
  1.     K = Cells(1, 1).End(xlDown).Row

  3.     If K = 1 Then
  4.         
  5.     Else

  7.             Sheets("sheet1").Select
  8.             
  9.             For I = 1 To K
  10.                 J = Sheets("TEMP").Cells(I, 1)
  11.                 With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("日期")
  12.                 .PivotItems(J).Visible = False
  13.                 End With
  14.             Next
  15.         
  16.     End If
複製代碼

1.jpg (53.52 KB)

1.jpg

Book1.zip (2.7 KB)

收藏 分享

kim223824

帖子
75 
主題
8 
精華
0 
積分
109 
點名
0  
作業系統
windows XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2015-4-19 
最後登錄
2024-8-10 
2#
發表於 2019-6-18 16:09 | 只看該作者
回復 1# yiwei0707


    應用方式: 只能將資料來源的內容 只有1906的資料，這樣就不用篩選了。

TOP

yiwei0707

帖子
20 
主題
6 
精華
0 
積分
26 
點名
0  
作業系統
OS X & Windows 10 
軟體版本
Office 2003 & Office 365 
閱讀權限
10 
性別
男 
註冊時間
2017-7-20 
最後登錄
2022-7-25 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2019-6-18 18:16 | 只看該作者
回復 2# kim223824


    不好意思，我詢問的是VBA的方式而不是資料來源的部份。
    如果資料來源可以掌握的話也不需要這麼麻煩了。謝謝您的回覆

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題