Private Sub Workbook_Open() Dim i As Integer For i = 4 To 100 If Sheet1.Range("A" & i & ":H" & i).FormatConditions.Count <> 0 Then Sheet1.Range("A" & i & ":H" & i).FormatConditions.Delete End If With Sheet1.Range("A" & i & ":H" & i).FormatConditions.Add(xlExpression, , "=$H$" & i & "=""完了""") .Interior.Color = RGB(200, 200, 200) End With Wit..