[ahmedabdelaliem]

السلام عليكم

بارك الله فيك اخي طه 

اخي Mhqom اعتقد الان لديك اكثر من خيار للكود الذي تبحث عنه
ارجو وضع رد اذا كان هذا الكود المطلوب او لا 

بالتوفيق

PHP كود :

Public Sub Loadx()
Dim XCol As Integer
Dim txt As String
        Dim vMe
        Dim vMin
        Dim vMax
Dim I, x, xx, II As Integer
Dim s As String
xx = 0
s = ""
 
    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
    xx = 0
    s = .TextMatrix(I, 3)
    For x = 1 To .Rows - 1
    If .TextMatrix(x, 3) = s And xx < 1 Then
    xx = xx + 1
    .Col = XCol
    .Row = x
    .CellBackColor = vbGreen
    ElseIf .TextMatrix(x, 3) = s And xx > 0 Then
    For II = 0 To .Rows - 1
    If .TextMatrix(II, 3) = s Then
    .Col = XCol
    .Row = II
    .CellBackColor = vbRed
    End If
    Next
    End If
    Next
    Next
    Next
    For I = 1 To .Rows - 1
    
    vMe = Val(.TextMatrix(I, 3))
                        If vMe < vMin Then
                            vMin = vMe
                            
                        End If
                        If vMe > vMax Then
                            vMax = vMe
                            
                        End If
                Next
                
               
                For I = 1 To .Rows - 1
               
                            .Row = I
                            .Col = 3
                 If Val(.TextMatrix(I, 3)) = vMin Then
    
                            .CellBackColor = vbYellow
                            End If
                       If Val(.TextMatrix(I, 3)) = vMax Then
                            .CellBackColor = vbYellow
                            End If
    
    
    
    Next
    End With
End Sub 


[Mhqom]

الف شكر للاخوه الافاضل عن جد صرح علمي كبير واساتذة ومنتسيبين خيرين
شكرا لسعه صدوركم واخص بالذكر ahmedabdelaliem@ @ Taha Okla Syria

---

شكر للاخوه الفاضل علة تميزهم وحسن سماعهو وسعه صدورهم لحل المشكلات