تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] كيف تلون البيانات المكررة في العمود وتلوين اكبر قيمة في العمود في mshflexgrid1
#1
Smile 
تلوين البينات المكرره في العمود الرابع بالون الاحمر والغير مكرره باللون الاخضر


تلوين اعلى قيمةاو اقل قيمة  بالون الاصفرفي العمود الثالث


الملفات المرفقة
.rar   test5.rar (الحجم : 17.62 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة:
#2
السلام عليكم

تفضل اخي حمل المرفقات

لا تنسى الدعاء لنا بارك الله فيك

بالتوفيق


الملفات المرفقة
.rar   test5.rar (الحجم : 17.95 ك ب / التحميلات : 10)
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
تم الشكر بواسطة:
#3
شكرا الاستاذ المحاسب احمد عبد العليم ومن للمرور وجعل الله لك في كل حرفا الف حسنة
لاكن المطلوب هو تلوين الارقام المكررة( كل خلية في عمود الرابعd_value مكرره نريد تلوينها وتلوين تكرارها ) وهي ارقام متغيرة
وليس كلمةrepeater & non repeater
يعني مثلا هناك رقم 500 مكرر ثلاث مرارت يجب تلون الثلاث حقولبالون الاحمر
الرد
تم الشكر بواسطة: ahmedabdelaliem
#4
السلام عليكم ورحمة الله وبركاته


الكود الذي وضعه م/أحمد عبد العليم/ في مثاله -- واضح جداً ويشرح نفسه

فقط استبدل 

CellBackColor

بـ 

CellForeColor



واستبدل الالوان بالالوان التي تناسبك ..

--



لا يوجد متعة للبرمجة بدون أن تحاول فيها وتجرب فيها كثيراً ..

..
الرد
تم الشكر بواسطة: Mhqom , ahmedabdelaliem
#5
اعتقد الفكره غير واضحه لك اخي مع الشكر والاحترام
الرد
تم الشكر بواسطة:
#6
لتلوين الارقام استبدل الكود التالي في مشروع م/احمد عبد العليم :
كود :
If Trim(.Text) = "repeater" Then
       .CellBackColor = vbRed
ElseIf Trim(.Text) = "non repeater" Then
       .CellBackColor = vbGreen
End If

بالكود :

كود :
If Trim(.Text) = "repeater" Then
   .Col = .Col - 1
   .CellBackColor = vbRed
ElseIf Trim(.Text) = "non repeater" Then
   .Col = .Col - 1
   .CellBackColor = vbGreen
End If
الرد
تم الشكر بواسطة: Mhqom , Mhqom , ahmedabdelaliem
#7
(25-11-21, 12:21 AM)Taha Okla كتب : لتلوين الارقام استبدل الكود التالي في مشروع م/احمد عبد العليم :
كود :
If Trim(.Text) = "repeater" Then
       .CellBackColor = vbRed
ElseIf Trim(.Text) = "non repeater" Then
       .CellBackColor = vbGreen
End If
ليس لدى non repeater هذة للمثال

بالكود :

كود :
If Trim(.Text) = "repeater" Then
   .Col = .Col - 1
   .CellBackColor = vbRed
ElseIf Trim(.Text) = "non repeater" Then
   .Col = .Col - 1
   .CellBackColor = vbGreen
End If

ياصديقي العزيز افهمني صحيح نريد البحث عن القيمة في حقول عمود تارتبع وان كانت مكررة نلونها ونلون التكرار تبعها

ياصديقي العزيز افهمني صحيح نريد البحث عن القيمة في حقول العمود الرابع وان كانت مكررة نلونها ونلون التكرار معها
مثال الرقم 500 هو مكرر يتم تلوين حقلة والحقل الاخر الذي به رقم 500
الرد
تم الشكر بواسطة:
#8
السلام عليكم

بارك الله فيك اخي طه وزادك من علمه وفضله


اخي Mhqom

استبدل الكود بهذا الكود

PHP كود :
Public Sub Loadx()
Dim IXCol 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"ConadOpenStaticadLockPessimistic
Set mshflexgrid1
.DataSource rs

With Me
.mshflexgrid1
 vMin 
Val(.TextMatrix(13))
 
vMax Val(.TextMatrix(13))

For 
XCol 3 To .Cols 1
For 1 To .Rows 1

.Row I
.Col = .Cols 1
If Trim(.Text) = "repeater" Then
.Row I
.Col XCol
.CellBackColor vbRed
ElseIf Trim(.Text) = "non repeater" Then
.Row I
.Col XCol
.CellBackColor vbGreen
End 
If

vMe Val(.TextMatrix(I3))
 
                   If vMe vMin Then
                        vMin 
vMe
                        
                    End 
If
 
                   If vMe vMax Then
                        vMax 
vMe
                        
                    End 
If
 
                  
           
            Next I
            Next XCol
           
            For I 
1 To .Rows 1
           
                        
.Row I
                        
.Col 3
             
If Val(.TextMatrix(I3)) = vMin Then

                        
.CellBackColor vbYellow
                        End 
If
 
                  If Val(.TextMatrix(I3)) = vMax Then
                        
.CellBackColor vbYellow
                        End 
If



Next
End With


End Sub 
بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
تم الشكر بواسطة: Taha Okla , Mhqom
#9
(25-11-21, 11:25 AM)ahmedabdelaliem كتب : السلام عليكم

بارك الله فيك اخي طه وزادك من علمه وفضله


اخي Mhqom

استبدل الكود بهذا الكود

PHP كود :
Public Sub Loadx()
Dim IXCol 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"ConadOpenStaticadLockPessimistic
Set mshflexgrid1
.DataSource rs

With Me
.mshflexgrid1
 vMin 
Val(.TextMatrix(13))
 
vMax Val(.TextMatrix(13))

For 
XCol 3 To .Cols 1
For 1 To .Rows 1

.Row I
.Col = .Cols 1
If Trim(.Text) = "repeater" Then
.Row I
.Col XCol
.CellBackColor vbRed
ElseIf Trim(.Text) = "non repeater" Then
.Row I
.Col XCol
.CellBackColor vbGreen
End 
If

vMe Val(.TextMatrix(I3))
 
                   If vMe vMin Then
                        vMin 
vMe
                        
                    End 
If
 
                   If vMe vMax Then
                        vMax 
vMe
                        
                    End 
If
 
                  
           
            Next I
            Next XCol
           
            For I 
1 To .Rows 1
           
                        
.Row I
                        
.Col 3
             
If Val(.TextMatrix(I3)) = vMin Then

                        
.CellBackColor vbYellow
                        End 
If
 
                  If Val(.TextMatrix(I3)) = vMax Then
                        
.CellBackColor vbYellow
                        End 
If



Next
End With


End Sub 
بالتوفيق

السلام عليكم افهموني رجأ انا ما عندي كلمة تكرار ومن غير تكرار بدي الرقم المكرر هو الي تعتمد علية بالبرمجة لانة متغير وهي مثال صورة مرفقة للنتائج الاخيرة


الملفات المرفقة
.xlsx   المصنف1.xlsx (الحجم : 12.24 ك ب / التحميلات : 7)
الرد
تم الشكر بواسطة:
#10
وعليكم السلام

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

من المفروض أن يكون سؤالك كيف يمكن أن أعرف الأرقام المكررة في الحقل 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
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أريد النصيحة بخصوص الإتصال بقاعدة البيانات hamada salah90 2 283 16-09-21, 01:13 PM
آخر رد: hamada salah90
  كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير mido790006 4 395 20-06-21, 03:24 AM
آخر رد: mido790006
Question [vb6.0] هل يمكن ربط قاعدة البيانات اكسس بتقنية Dao نامل المساعدة العاجلة ؟؟ Microformt 3 465 23-05-21, 01:50 AM
آخر رد: Ahmed_Mansoor
  مشكلة قراءة من قاعدة البيانات بعد تنصيب البرنامج على ويندوز 10 aboezzat84 3 674 08-04-21, 06:38 PM
آخر رد: aboezzat84
  اهدي اليكم طريقة الاتصال بقاعدة البيانات عن طريقة المشاركه بدون تعديل كود الاتصال ahmed201 1 604 25-03-21, 11:35 AM
آخر رد: رضوان الجماعي
Rainbow مساعدة في كود حذف الحروف المكررة العبادي 2 10 1,317 07-03-21, 05:27 AM
آخر رد: اسلام الكبابى
Question [vb6.0] هل يمكن ربط قاعدة البيانات اكسس 2007 أو 2016 بتقنية DAO ؟ Microformt 0 422 26-02-21, 06:18 PM
آخر رد: Microformt
  مشكلة عدم ظهور البيانات في التقرير ahmed201 8 1,286 25-02-21, 09:27 PM
آخر رد: ahmed201
  احناج مثال لكيفية استيراد بيانات من ملف اكسيل الى قاعدة البيانات عن طريق الفيجوال amro1965 0 540 19-01-21, 06:22 PM
آخر رد: amro1965
  تغير لون Field بناء على قيمة معينة مصمم هاوي 1 403 05-01-21, 10:33 PM
آخر رد: 62531

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم