27-11-21, 02:34 AM
السلام عليكم
بارك الله فيك اخي طه
اخي Mhqom اعتقد الان لديك اكثر من خيار للكود الذي تبحث عنه
ارجو وضع رد اذا كان هذا الكود المطلوب او لا
بالتوفيق
بارك الله فيك اخي طه
اخي 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
محاسب / أحمد عبد العليم
الى اللقاء ان شاء الله
الى اللقاء ان شاء الله