ماكرو تلوين خلايا كشف الحساب بحسب رقم المستند

[عاطف عبد العليم محمد]

السلام عليكم ورحمة الله وبركاته 

 

لدي كشف حساب يتكرر فيه رقم المستند وأريد منكم التفضل بماكرو لتلوين خلايا كشف الحساب بحيث يكون كل الصفوف التي تحتوى على رقم سند واحد لها لون واحد وهي تأتي متتالية اي لايفصل بينها صفوف تحتوى على رقم سند آخر فمثلا صفوف تحتوى على رقم سند 1 عددها مثلا 3 صفوف ثم صفوف تحتوي على رقم سند 2 عدده 5 صفوف متتالية ثم صفوف تحتوى على رقم سند 3 عدده 1 صف وهكذا تكرار يتغير عشوائيا مع كل كشف حساب يتم اعداده 

مرفق ملف للتوضيح ويوجد طلب آخر على نفس كشف الحساب إذا تم حل الأول نطرح الثاني إن شاء الله

شاكرا لمن يتفضل بالحل 

عذرا لم استطع رفع الملف ولكن هذا يوضح 

 

الرصيد         مدين                      دائن   البيان                    اسم الحساب الفرعي             نوع سند القيد رقم السند تاريخ ميلادي      تاريخ هجري       رقم الحساب

1,375.00 1,375.00                                                                                                          قيد يومية      7887  09/12/2013   09/12/2013      625

1,725.00 350.00                                                                                                             قيد يومية      7887 09/12/2013 09/12/2013         625

9,225.00 7,500.00                                                                                                          قيد يومية      7887 09/12/2013 09/12/2013         680

34,225.00 25,000.00                                                                                                     قيد يومية      7889 09/12/2013 09/12/2013         632

35,725.00 1,500.00                                                                                                        قيد يومية      7889 09/12/2013 09/12/2013         632

53,225.00 17,500.00                                                                                                      قيد يومية      7889 09/12/2013 09/12/2013         632

55,725.00 2,500.00                                                                                                       قيد يومية      7889 09/12/2013 09/12/2013         682

56,175.00 450.00                                                                                                          قيد يومية     7890 09/12/2013 09/12/2013           682

57,675.00 1,500.00                                                                                                        قيد يومية     7890 09/12/2013 09/12/2013           682

57,762.50 87.50                                                                                                              قيد يومية    7890 09/12/2013 09/12/2013            682

82,762.50 25,000.00                                                                                                      قيد يومية     7890 09/12/2013 09/12/2013           682

 

 

 

والسلام عليكم ورحمة الله وبركاته 

تم تعديل يناير 26, 2014 بواسطه atef0977

[عبدالله باقشير]

السلام عليكم

جرب الكود التالي:

Option Explicit

Sub kh_Color()
Dim Obj As Object
Dim cel As Range
Dim MyColor
Dim txt As String
Dim LR As Long, R As Long
'''''''''''''''''''''''''''''
Set Obj = CreateObject("Scripting.Dictionary")
'''''''''''''''''''''''''''''
MyColor = 2287936
'''''''''''''''''''''''''''''
LR = Cells(Rows.Count, "B").End(xlUp).Row

Range("B5:K" & LR).Interior.Color = xlNone
    
    For R = 5 To LR
        txt = Trim(Cells(R, "K"))
        If Len(txt) Then
            If Obj.Exists(txt) Then
                Range(Cells(R, "B"), Cells(R, "K")).Interior.Color = Obj(txt)
            Else
                Obj.Add txt, MyColor
                Range(Cells(R, "B"), Cells(R, "K")).Interior.Color = MyColor
                MyColor = MyColor + 500000
            End If
        End If
    Next
Set Obj = Nothing
End Sub

شاهد المرفق 2003

تلوين المكرر بلون محتلف.rar

[احمد الحاوي]

الاخ الاكبر والعالم الفذ : الاستاذ عبد الله ادام الله عليك نعم العلم والصحة والايمان وزادك من جميع نعمه ..

اخي الفاضل مرفق شيت درجات طلاب .. اريد التعديل في الكود ليقوم بتلوين من حصل على درجة اقل من 30% من الدرجة النهائية

تلوين صفه  وتلوين الدرجة الاقل بلون مختلف .. لان التنسيق الشرطي (( على حد علمي )) لن يقوم بهكذا عمل ..

بارك الله فيكم وجزاكم الخير كله

 

تلوين صفوف.rar

تم تعديل يناير 26, 2014 بواسطه احمد الحاوي

[عاطف عبد العليم محمد]

وعليكم السلام ورحمة الله وبركاته 

سعادة المدير / عبد الله باقشير

جزاك الله الف خير

هو المطلوب تماما ،  مختصر  و وافي 

 

ولي طلب آخر  لو تكرمت

 

نفس الجدول الذي تفضلت به  أريد بجانبه جدول يتكون من خانتين  الاولى لرقم السند والثانية لمجموع القيم لهذا السند والتي في مثالك الموجودة في العمود b

شاكرا لكم و السلام عليكم ورحمة الله وبركاته 

[حمادة باشا]

الأستاذ الكبير/عبدالله باقشير

السلام عليكم ورحمة الله وبركاته

كود جميل ومباشر - جزاك الله كل خير

تقبل تحياتي