VBA：条件付き書式の内部カラーでIF条件が機能しない

Question

次のコードがあります。内部色と条件付き書式を使用して重複をチェックしようとしています。しかし、それは動作しないようです。 ワークシートに手動で条件付き書式を設定したことを知っています。

Private Sub CommandButton1_Click() 

    Dim LR2 As Long 

    'A MODIFIER 
    With Sheets("A") 

     LR2 = .Range("B" & Rows.Count).End(xlUp).Row 

     For Each cell2 In .Range("A5:A" & LR2) 
      If cell2.Value = "" Then 

      cell2.Value = TextBox1.Text 
      Exit For 

      End If 
     Next cell2 

     If cell2.Offset(, 1).Text <> 0 Then 
     'PROBLEM 

      If cell2.Interior.Color <> RGB(255, 199, 206) Then 

       Label8.Caption = cell2.Offset(, 1).Text 
       Label9.Caption = cell2.Offset(, 2).Text 
       Label10.Caption = cell2.Offset(, 3).Text 
       Label12.Caption = cell2.Offset(, 4).Text 
       Label11.Caption = cell2.Offset(, 5).Text 
       Label13.Caption = cell2.Offset(, 6).Text 
       CommandButton2.Enabled = True 

      Else 
       cell2.Value = "" 
       MsgBox "Votre bac est déjà saisi", vbExclamation, "Bac double" 
       Me.TextBox1.Value = "" 

      End If 

     Else 

     cell2.Value = "" 
     MsgBox "Prière de saisir un numéro de bac valide", vbExclamation, "Numéro de bac invalide" 
     Me.TextBox1.Value = "" 

     End If 

    End With 
End Sub 

Answer 1

あなたはCFフォーマットをピックアップしDisplayFormatを使用する必要があります。

If cell2.DisplayFormat.Interior.Color <> RGB(255, 199, 206) Then