Board logo

標題: 陣列排序篩選一問 [打印本頁]
作者: starbox520    時間: 2016-9-30 09:18     標題: 陣列排序篩選一問

小弟剛入門
請問如何用VBA語法
使用Array去做排序篩選
以PG為優先(只要依照字母排列)
次要是BS 字串一樣的擺一起
再來是LC 由大排到小
然後只要取出裡面的
CT .DT .PG .LC .BS
到新的活頁簿

請各路高手指導   謝謝你們
作者: starbox520    時間: 2016-10-2 14:33

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

# GBKEE

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

回復 3# starbox520

試試看2003錄製的
  1. Option Explicit
  2. Sub Macro1()
  3. '
  4. ' Macro1 Macro
  5. ' hsu 在 2016/10/3 錄製的巨集
  6. '

  8. '
  9.     Range("A1:H33").Sort Key1:=Range("E2"), Order1:=xlAscending, Key2:=Range( _
  10.         "G2"), Order2:=xlAscending, Key3:=Range("F2"), Order3:=xlAscending, _
  11.         Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
  12.         xlTopToBottom, SortMethod:=xlStroke, DataOption1:=xlSortNormal, _
  13.         DataOption2:=xlSortNormal, DataOption3:=xlSortNormal
  14.    
  15. End Sub
複製代碼
作者: starbox520    時間: 2016-10-3 08:51

回復 4# GBKEE

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

回復 5# starbox520
  1. 'AutoFilterMode 屬性   目前在工作表上顯示有 [自動篩選] 下拉箭號，則此屬性為 True。該屬性與 FilterMode 屬性互相獨立。讀/寫 Boolean。
  2. 'FilterMode 屬性          如果指定活頁簿處於篩選模式則為 True。唯讀 Boolean。備註:如果工作表中包含已篩選清單、且該清單中包含隱藏列，則本屬性為 True。

  4. '
  5.     With ActiveWorkbook.Worksheets("rawdata")
  6.         If .AutoFilterMode Or .FilterMode Then .AutoFilter.Sort.SortFields.Clear
  7.         ' ActiveWorkbook.Worksheets("rawdata").AutoFilter.Sort.SortFields.Clear
  8.     End With
複製代碼
作者: starbox520    時間: 2016-10-4 19:17

回復 6# GBKEE


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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)