2022年4月30日 星期六

VBA:取消篩選(Autofilter、AdvancedFilter )

執行c_3 副程式即取消篩選狀態

Sub C_3() '篩選與復原

  Dim ws As Worksheet

    Set ws = ThisWorkbook.ActiveSheet

    With ws

        If .FilterMode Then

            .ShowAllData

        End If

    End With

    Set ws = Nothing

End Sub

沒有留言:

張貼留言

計算cp、cpk、mean、std的vba工具

 寫了一個計算cp、cpk、mean、std的vba工具 提供資料所在位置的range物件、規格上下界線後,即可自動計算。 透過一般函數使用方式即可滿足。 CalculateCpkAndCp_OUT =  Calculate_Cpk_And_Cp (MYRANGE, FIND_O...