返回列表 上一主題 發帖

篩選問題

spermbank

帖子
94 
主題
28 
精華
0 
積分
145 
點名
0  
作業系統
windows 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2011-9-22 
最後登錄
2021-10-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-22 13:14 | 只看該作者

篩選問題

我再做篩選的時候，利用錄製程式碼的過程中..
看到
ActiveSheet.ShowAllData 顯示所有資料
要怎麼加入判斷是否顯示所有資料，再決定清除

我自己再更新巨集時，因為有時候未手動清除篩選所以未顯示所有資料，有時候顯示所有資料，
可是如果再顯示所有資料的途中，就會出現錯誤。
收藏 分享

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
2#
發表於 2011-10-22 13:47 | 只看該作者
方法有很多, 最簡單(但不直接)的話 ,是跳過所有錯誤

on error resume next
ActiveSheet.ShowAllData
....
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2011-10-22 16:52 | 只看該作者
回復 1# spermbank
  1. Sub Ex()
  2.     With ActiveSheet
  3.         If Not .AutoFilter Is Nothing Or .FilterMode Then  'FilterMode=True ->篩選模式
  4.             .ShowAllData
  5.            ' .Cells.AutoFilter   '取消篩選
  6.         End If
  7.     End With
  8. End Sub
複製代碼

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
96  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2011-10-22 21:37 | 只看該作者
回復 1# spermbank
  1. Sub nn()
  2. Dim A As Filter
  3. With Sheet1
  4.    For Each A In .AutoFilter.Filters
  5.       If A.On Then .ShowAllData
  6.    Next
  7. End With
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

spermbank

帖子
94 
主題
28 
精華
0 
積分
145 
點名
0  
作業系統
windows 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2011-9-22 
最後登錄
2021-10-18 
5#
發表於 2011-10-22 23:29 | 只看該作者
感謝各位大大指教，測試成功^^ 謝謝

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題