Range.DisplayFormat方法やVBA Excel 2007の

Question

私は私の列のいずれかの重複があるかどうかを確認したい、私は手動で条件付き書式を設定し、その後、私は次のテストを行った：

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

       Label8.Caption = cell2.Offset(, 2).Text 
       Label9.Caption = cell2.Offset(, 3).Text 
       Label10.Caption = cell2.Offset(, 4).Text 
       Label12.Caption = cell2.Offset(, 5).Text 
       Label13.Caption = cell2.Offset(, 6).Text 
       Label28.Caption = cell2.Offset(, 7).Text 
       Label30.Caption = cell2.Offset(, 8).Text 
       CommandButton2.Enabled = True 

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

      End If 

問題はそのIでありますExcel 2007を使用しており、これはRange.DisplayFormatメソッドをサポートしていないので、私は必要なものを、次のいずれかです。

• Range.DisplayFormat方法に代わります。 OR
• 条件付き書式を使用せずに重複をテストする別の方法。

ありがとうございました！

Answer 1

あなたは作り付けの条件付き書式機能を使用することができます

どちらか ）ハイライトして

それとも ）を使用したコードあなたのフォーマットHome > Conditional Formatting > Highlight cell rules > Duplicate Valuesに移動し、選択する領域を選択次のようになります。

Sub findDupsInMyCol() 

    Dim wb As Workbook 
    Dim ws As Worksheet 
    Dim rngSelection As Range 
    Dim lastRow As Long 

    Set wb = ThisWorkbook 
    Set ws = wb.Worksheets("Data") 
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 'find last used row number 
    Set rngSelection = ws.Range("A1:A" & lastRow) 'set target range 
    ws.Activate 
    FormatDups rngSelection 

End Sub 


Sub FormatDups(ByRef rngSelected As Range) 

    rngSelected.FormatConditions.AddUniqueValues 
    rngSelected.FormatConditions(rngSelected.FormatConditions.Count).SetFirstPriority 
    With rngSelected.FormatConditions(1) 
     .DupeUnique = xlDuplicate 
     .Font.Color = -16383844 
     .Interior.PatternColorIndex = xlAutomatic 
     .Interior.Color = 13551615 
     .StopIfTrue = False 
    End With 

End Sub