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


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


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

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

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

بالتوفيق


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

الى اللقاء ان شاء الله 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 ك ب / التحميلات : 14)
الرد }}}
تم الشكر بواسطة: هيثم حسين , هيثم حسين
#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
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] اضافة الصور الى ملف واسترجاعها بدون قاعدة البيانات haitham Muhammed 3 419 24-01-24, 01:51 PM
آخر رد: haitham Muhammed
  عدم ضهور كل البيانات فراس محي 1 223 15-12-23, 06:05 AM
آخر رد: Taha Okla
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
Lightbulb [سؤال] إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 أبو خالد الشكري 4 326 13-09-23, 09:52 PM
آخر رد: أبو خالد الشكري
  نقل بيانات الجدول الى جدول اخر بعد تجميع البيانات haithamelareny 1 359 10-08-23, 11:54 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ Microformt 1 455 27-07-23, 08:33 PM
آخر رد: Taha Okla
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 371 20-03-23, 08:33 PM
آخر رد: Microformt
  مشاركة قاعدة البيانات محمد عياش 1 425 30-11-22, 11:33 PM
آخر رد: Taha Okla
  [vb6.0] تصدير البيانات محمد عياش 6 753 16-11-22, 06:49 AM
آخر رد: محمد عياش
Question [vb6.0] كيف اجعل هذا الشريط يظهر المساحة المستخدمة من قاعدة البيانات؟ Microformt 2 742 05-10-22, 08:53 AM
آخر رد: Microformt

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


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