Board logo

標題: [發問] 篩選的語法 [打印本頁]

作者: PJChen    時間: 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




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