標題の通り。 Sub ブック一覧() Dim wb As Workbook Dim sheet As Worksheet Debug.Print "ThisBook :" & ThisWorkbook.Name For Each wb In Workbooks Debug.Print wb.Name If wb.Name Like "*探し物*" Then Debug.Print "探し物が見つかりました！ :" & wb…

またも深夜の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…