陣列排序篩選一問

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2016-10-2 14:33 | 只看該作者

回GBKEE大大
因為我有試過用巨集錄製方式但是篩選一關掉
這個錄製聚集就會有問題= ="
因為我後面有想做個按鈕作連動
所以才想說用VBA會不會比較合適

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2016-10-2 17:01 | 只看該作者

# GBKEE

因為我有試過用巨集錄製方式但是篩選一關掉
這個錄製聚集就會有問題= ="
因為我後面有想做個按鈕作連動
所以才想說用VBA會不會比較合適

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2016-10-3 05:53 | 只看該作者

回復 3# starbox520

試試看2003錄製的

Option Explicit
Sub Macro1()
'
' Macro1 Macro
' hsu 在 2016/10/3 錄製的巨集
'
'
Range("A1:H33").Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range( _
"G2"), Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
xlTopToBottom, SortMethod:=xlStroke, DataOption1:=xlSortNormal, _
DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2016-10-3 08:51 | 只看該作者

回復 4# GBKEE

回版大
出現全部語法錯誤耶~"~
我有嘗試使用錄製巨集
ActiveWorkbook.Worksheets("rawdata").AutoFilter.Sort.SortFields.Clear
但是會卡在(如果篩選鈕沒打開) 這行會錯誤
我也有試著用錄製巨集的方式
做篩選只要的部分貼去工作表2
但是做了按鈕之後使用這個巨集就會出現rawdata裡A攔的資料沒過去
用錄製巨集的話之前就卡在這裡~"~
還麻煩版大有什麼建議
附上我的測試完整檔

TEST2.zip (415.04 KB)

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2016-10-4 07:07 | 只看該作者

回復 5# starbox520

'AutoFilterMode 屬性目前在工作表上顯示有 [自動篩選] 下拉箭號，則此屬性為 True。該屬性與 FilterMode 屬性互相獨立。讀/寫 Boolean。
'FilterMode 屬性如果指定活頁簿處於篩選模式則為 True。唯讀 Boolean。備註:如果工作表中包含已篩選清單、且該清單中包含隱藏列，則本屬性為 True。
'
With ActiveWorkbook.Worksheets("rawdata")
If .AutoFilterMode Or .FilterMode Then .AutoFilter.Sort.SortFields.Clear
' ActiveWorkbook.Worksheets("rawdata").AutoFilter.Sort.SortFields.Clear
End With

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 192
主題: 15
精華: 0
積分: 194
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 女
註冊時間: 2016-9-22
最後登錄: 2020-8-28

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2016-10-4 19:17 | 只看該作者

回復 6# GBKEE

回版大
不會發生錯誤了!!!!
看來因為這一小段的字我還有很長的路要學....
謝謝板大幫忙除錯!!!