返回列表 上一主題 發帖

[發問] 篩選的語法

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-10-5 17:31 | 顯示全部帖子

[發問] 篩選的語法

請問大大：
篩選的語法我只會寫這樣的
,AutoFilter Field:=XX ...........
,但每次表格一有變動,就要再修改程式
請問還有沒有不同寫法?例如用變數或定義命名方式?寫法是怎樣的? 請教！！

    With Sh
    Sh.Activate
        .UsedRange.AutoFilter Field:=44, Criteria1:=">0", Operator:=xlAnd  '>0的資料
        Set A = .Range("F4", .Range("F4").End(xlDown))  '從..到資料最底
        A.Copy
    End With

    With xSh
        xSh.Activate
        Range("A5").Activate
        .Range("A5").PasteSpecial xlPasteValues  '選擇性貼上值
        Application.CutCopyMode = False '使來源的copy的虛線閃動停止
        Application.DisplayAlerts = False '在程序執行過程中使出現的警告框不顯示
    End With
收藏 分享

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2019-11-29 19:24 | 顯示全部帖子
回復 2# jcchiang
感謝...我再試試看

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2019-11-29 20:33 | 顯示全部帖子
回復 2# jcchiang

大大,
語法測試OK
不過想請教,表格中若表頭的命名有很多重複的,在不更改名稱的情形下,要怎麼套用這個語法?

TOP

PJChen
　暱稱: PJ

大學生Rank: 4

帖子
913 
主題
150 
精華
0 
積分
1089 
點名
0  
作業系統
win10 
軟體版本
office 2019 
閱讀權限
50 
性別
女 
註冊時間
2011-8-28 
最後登錄
2023-7-19 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2019-12-2 22:23 | 顯示全部帖子
回復 5# jcchiang
感謝你教這個語法...我再試試

TOP

        靜思自在 : 要批評別人時，先想想自己是否完美無缺。
返回列表 上一主題