تلوين سطر بلون تلقائيا بعد اكتمال معلومات السطر

[عبدالقادر شحرور]

لدي 8 اعمدة في اكسيل ارغب عند تعبئة معلومات سطر كامل ان ي تلون السطر تلقائيا بلون واحد و هكذا و 

[احمدزمان]

‏الاربعاء‏، 2‏/9‏/2015م الموافق ‏19‏/11‏/1436هـ

 

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

 

اخي عبدالقادر

يتم ذلك بالتنسيق الشرطي

ولكن

لازم مثال في ملف اكسل من يداك الكريمتين

 علشان نشتغل عليه

[ياسر خليل أبو البراء]

لازم مثال في ملف اكسل من يداك الكريمتين

 

أخي وحبيبي أحمد يعقوب ..

سملت يديك (هغلط عشان خاطر عيونك .. أنا عارفها سلمت يداك)

منور المنتدى وسعيد بوجودك .. يا رب ديمها علينا نعمة ياااااااااااااااااارب

 

[أسامة البراوى]

السلام عليكم

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

 

Select Color When Completed .rar

[عبدالقادر شحرور]

اشكرك كثيرا الحل صحيح 

[عبدالله نبها]

كثير رائع..جزيتم خيرا وبارك الله فيكم على المعلومات الرائعة

[KHMB]

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

الأستاذ الفاضل أسامة البراوي

هل ممكن عمل ذلك بالكود جزاك الله خير

تم تعديل سبتمبر 14, 2015 بواسطه KHMB

[مختار حسين محمود]

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

بعد اذن الأستاذ أسامه وباقى الأساتذة

الأخ KHMB  هذا كود لتلوين مدى معين بعد تمام اكتمال بياناته اعتمادا على عدد الخلايا الفارغة فيه

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Integer, Rownum As Integer, CountBlank As String
    
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    
    For Rownum = 2 To LR
        CountBlank = Application.WorksheetFunction.CountBlank(Range(Cells(Rownum, "A"), Cells(Rownum, "H")))
        If CountBlank = 0 Then Range(Cells(Rownum, "A"), Cells(Rownum, "H")).Interior.ColorIndex = 38
        
    Next Rownum
    
    
End Sub

الكود يوضع فى حدث الورقة   التلوين يعمل من الصف الثانى  على الأعمدة من A الى H 

جرب المرفق التالى

Color a row after entering the required information .rar

[KHMB]

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

اخي الفاضل مختار كود رائع وتمت التجربة بارك الله فيك وجزاك الله خير

اخيك / أبو الحسن والحسين

[مختار حسين محمود]

بوركت أخى أبى الحسن والحسين

[ياسر خليل أبو البراء]

تسلم يا أخي الغالي مختار .. مشكور على الكود المتميز

 

 

بس تعالى هنا قولي (بتغطس كتير مش عارفلك سكة ؟!)

... ارسى في المينا لأبعتك على مارينا !!

طبعاً هتقولي ابعتني هناك !!!

[محمد حسن المحمد]

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

جزاك الله خيراً أخي مختار المحترم على هذا الكود المتميز.

تقبل تحياتي

 

 

 

[مختار حسين محمود]

أشكرك أخى و أستاذى الفاضل ياسر وأستاذى العزيز محمد حسن

أستاذى ياسر  تقدر تقول الدنيا وأشغالها بتطغى أحيانا علينا لكن نعطس نغطس ونرجع نقب مطرح ما نحب

 

[محمد حسن المحمد]

أشكرك أخى و أستاذى الفاضل ياسر وأستاذى العزيز محمد حسن

أستاذى ياسر  تقدر تقول الدنيا وأشغالها بتطغى أحيانا علينا لكن نعطس نغطس ونرجع نقب مطرح ما نحب

 

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

هذه مقولة جميلة هل هي مثل عندكم أو دارجة بينكم نغطس نغطس ونرجع نقب مطرح ما نحب

تقبلوا تحياتي

 

[مختار حسين محمود]

لا يا أستاذ محمد  لا مثل ولا دارجة

وإنما  هى أهازيج من وحى الخيال بتحصل كل شوية بينى وبين أخونا ياسر خليل  القائل

... ارسى في المينا لأبعتك على مارينا !!     تحياتى