執行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
喜歡攝影的我,喜歡到處拍拍照,吃點當地的特色食物。 跟朋友聊天之餘,推薦我寫成網誌跟大家分享。 沒外出的日子,喜歡在家當隱性宅,寫程式看看書,追劇。 希望我的手札文,不會讓你翻桌 XD
寫了一個計算cp、cpk、mean、std的vba工具 提供資料所在位置的range物件、規格上下界線後,即可自動計算。 透過一般函數使用方式即可滿足。 CalculateCpkAndCp_OUT = Calculate_Cpk_And_Cp (MYRANGE, FIND_O...
沒有留言:
張貼留言