[Taha Okla]

وعليكم السلام

السؤال الواضح هو نصف الاجابة ..
لو كان سؤالك في البداية صحيح لما استغرق معك كل هذا الوقت حتى توضح طلبك ونعرف المقصود منه.
ع الاقل لا ترفق مثال غير حقيقي بل مثال مطابق لمشكلتك .. 

من المفروض أن يكون سؤالك كيف يمكن أن أعرف الأرقام المكررة في الحقل X  ثم ألونها ..

على كلٍ - استخدم هذا الكود(كود م/ أحمد عبد العليم/ بعد تعديل بسيط) وبإذن الله تجد ضالتك فيه ..

كود :

Public Sub Loadx()
    Dim Rs2 As New ADODB.Recordset
    Dim I, XCol As Integer
    Dim txt As String
    Dim vMe
    Dim vMin
    Dim vMax
 
    If Rs.State = adStateOpen Then Rs.Close
    Rs.Open "select * from T_DATE", Con, adOpenStatic, adLockPessimistic
    
    Set mshflexgrid1.DataSource = Rs

    With Me.mshflexgrid1
        vMin = Val(.TextMatrix(1, 3))
        vMax = Val(.TextMatrix(1, 3))

        '====================================
        '====================================
        For XCol = 0 To .Cols - 1
            For I = 1 To .Rows - 1

                .Row = I
                .Col = .Cols - 1
                
                If Rs2.State = adStateOpen Then Rs2.Close
                Rs2.Open "select * from T_DATE Where d_value =" & Val(.TextMatrix(I, 3)), Con, adOpenStatic, adLockPessimistic
                
                If Rs2.RecordCount > 1 Then
              '  If Trim(.Text) = "repeater" Then
                    .Row = I
                    .Col = XCol
                    .CellBackColor = &HC0C0FF
                Else 'If Trim(.Text) = "non repeater" Then
                    .Row = I
                    .Col = XCol
                    .CellBackColor = &HC0FFC0
                End If

                vMe = Val(.TextMatrix(I, 3))

                If vMe < vMin Then
                    vMin = vMe
                        
                End If

                If vMe > vMax Then
                    vMax = vMe
                        
                End If
           
            Next I
        Next XCol
           
        For XCol = 0 To .Cols - 1
            For I = 1 To .Rows - 1
           
                .Row = I
                .Col = XCol

                If Val(.TextMatrix(I, 3)) = vMin Then

                    .CellBackColor = &HFFFFC0
                End If

                If Val(.TextMatrix(I, 3)) = vMax Then
                    .CellBackColor = &HFFFF00
                End If

            Next I
        Next XCol

    End With

End Sub