質問: MsgBox("名前が重複しています", vbCritical) End If End Sub ``` ### 試したこと ネットで調べてみてもIF文で値をみて条件を出している記事は見るのですが、 色で条件をだしている記事を見かけなくて困っています。 ### 補足情報(FW/ツールのバージョンなど) ここにより詳細な情報を記載してください。
回答: 既に、回答がついていて、重複する部分もありますが、 > > 表に赤いセルが出現したタイミングで「名前が重複しています」というメッセージBOXを表示させたいです。 > > > 「表に赤いセルが出現したタイミング」となると、Worksheet_Change を使うことになりますね。 ``` Private Sub Worksheet_Change(ByVal Target As Range) Dim rng As Range Set rng = Intersect(Target, Range("B4:D8")) If rng Is Nothing Then Exit Sub Dim c As Range For Each c In rng.Cells If c.DisplayFormat.Interior.Color = vbRed Then MsgBox "名前が重複しています", vbCritical Exit For End If Next End Sub ```