またも深夜のVBA探索。。。 フィルタ状況を調べる Sub フィルタチェック() Dim i As Long, title As String Dim f As Filter Dim af As AutoFilter If ActiveSheet.AutoFilterMode Then For i = 1 To ActiveSheet.AutoFilter.Filters.Count Set f = ActiveSh…