اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

 

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

 

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

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

ولكن

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

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

قام بنشر

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

 

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

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

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

 

  • Like 1
  • 2 weeks later...
قام بنشر (معدل)

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

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

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

تم تعديل بواسطه 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

  • Like 5
قام بنشر

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

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

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

  • Like 1
قام بنشر

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

 

 

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

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

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

  • Like 2
قام بنشر

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

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

 

  • Like 2
قام بنشر

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

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

 

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

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

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

 

  • Like 1
قام بنشر

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

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

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

 

  • Like 3

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information