対象のディレクトリを再帰的に調べ、各ディレクトリに含まれるファイルの作成日時と最終更新日時を比較するマクロ。差異があるファイルに関しては背景色を変更する。 Option Explicit Sub foo() Dim strFindroot strFindroot = "C:\WINDOWS\System32" ''' Init ''' Cells.Clear Cells.Delete Dim intCounter intCounter = 1 recursive strFindroot, intCounter ''' Format ''' Columns(1).HorizontalAlignment = xlRight Columns(1).IndentLevel = 1 Columns(4).NumberFormatLocal = "#,##0, ""KB""" Columns(5).N