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


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


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

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

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

بالتوفيق


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

الى اللقاء ان شاء الله 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 ك ب / التحميلات : 10)
الرد }}
تم الشكر بواسطة: هيثم حسين , هيثم حسين
#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

قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [vb6.0] كيف اشترط على المستخدم إدخال تاريخ اكبر من السنه الحالية ؟؟ Microformt 2 120 04-08-22, 10:21 PM
آخر رد: Microformt
  البحث بقاعدة البيانات المختارة من الكومبوكس مصمم هاوي 6 222 15-07-22, 03:42 AM
آخر رد: سعود
  [سؤال] خطأ في ضغط وإصلاح قاعدة البيانات مصمم هاوي 3 223 11-07-22, 03:06 AM
آخر رد: سعود
  [vb6.0] اضافة الاسماء في الليست بوكس وظهور البيانات مثل الكريدفيو وادي العوضي 6 462 04-06-22, 09:42 PM
آخر رد: مصمم هاوي
  مساعد في اغلاق اتصال قاعدت البيانات ahmed250 0 258 11-05-22, 10:10 AM
آخر رد: ahmed250
Lightbulb تعلم إجراء العمليات الأساسية على قواعد البيانات أبو خالد الشكري 9 840 27-12-21, 06:54 PM
آخر رد: أبو خالد الشكري
  [vb6.0] طلب : كود إيجاد أقل قيمة في عمود معين بجدول من قاعدة بيانات أكسس hamada salah90 2 479 12-12-21, 11:12 PM
آخر رد: hamada salah90
  [سؤال] أريد النصيحة بخصوص الإتصال بقاعدة البيانات hamada salah90 2 750 16-09-21, 01:13 PM
آخر رد: hamada salah90
  كود ربط قاعدة البيانات محمية بكلمة سر مع التقرير mido790006 4 895 20-06-21, 03:24 AM
آخر رد: mido790006
Question [vb6.0] هل يمكن ربط قاعدة البيانات اكسس بتقنية Dao نامل المساعدة العاجلة ؟؟ Microformt 3 1,015 23-05-21, 01:50 AM
آخر رد: Ahmed_Mansoor

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


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