احمد 505 قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 (معدل) السلام عليكم هل يمكن تلوين خانات الاكسل بألوان مختلفة بطريق سريعة مع وجود مدخلات في كل صف تختلف عن الصف الاخر انا استخدم طريقة تحديد صف واختيار الللون في كل مره تلوين الخانات.rar تم تعديل سبتمبر 15, 2012 بواسطه ahmd2505 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 ما الذي تريد تلوينه خلية واحدة او صف ، و متى تريد التلوين اي هل هناك شرط للتلوين رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 مثلا لتلوين الخلية الحالية نكتب Private Sub Worksheet_Selectionchange(ByVal Target As Range) ActiveCell.Interior.ColorIndex = 3 End Sub رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 (معدل) يمكن إختيار تلوين الصفوف الفردية بلون والصفوف الزوجية بلون آخر جرب الكود التالى لتلوين صفوف محددة مسبقاً فى الكود Sub تلوين_صف_وصف() 'من هنا تحديد الصفوف ذات اللون الأول Range("1:1,3:3,5:5,7:7,9:9").Select With Selection.Interior 'الرقم 6 هو رمز اللون الأصفر .ColorIndex = 6 .Pattern = xlSolid End With 'من هنا تحديد الصفوف ذات اللون الثانى Range("2:2,4:4,6:6,8:8,10:10").Select With Selection.Interior 'الرقم 8 هو رمز اللون الأخضر .ColorIndex = 8 .Pattern = xlSolid End With Range("A12").Select End Sub تم تعديل سبتمبر 15, 2012 بواسطه يوسف عطا رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 السلام عليكم تفضل Sub AAAAA() Dim R As Range Dim T%, I% With ActiveSheet I = .Cells(Rows.Count, 1).End(xlUp).Row Set R = .Range("A2:Z" & I) ' غير المدى من هنا For T = 1 To R.Rows.Count '.Rows(T).Interior.Color = RGB(245, 232, 168) ' لعمل لون للصف كامل .Range(Cells(T, 1), Cells(T, 26)).Interior.Color = RGB(245, 232, 168) ' تلوين حدود المدى T = T + 1 Next End With End Sub رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 الله ينور عليك يا أيو نصار رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 15, 2012 الكاتب مشاركة قام بنشر سبتمبر 15, 2012 (معدل) الله يعطيكم العافيه ابو حنين + ابو نصار انا عندي جدول اكسل فيه حوالي 1000 صف + 27 عمود فقمت بوضع لونين لتمييز الصفوف ومعلوماتها واسهل عند القراءة وانا مثلاً اختر اللون الاصفر للصف الاول والصف الثاني ابيض او بدون لون ولكن عندما انتهي من بعض الصفوف احذفها فمثلاً حذفت صف اصفر فيصبح لدي صفين ابيضين متتاليين وبذلك اظطر الى اعادة التلون لفصل الصفوف وشكراً تم تعديل سبتمبر 15, 2012 بواسطه ahmd2505 رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 15, 2012 الكاتب مشاركة قام بنشر سبتمبر 15, 2012 ممكن مثال في مرفق الله يعطيكم العافية رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 جر ب هذ الكود و ان كان هذا هو القصد فسنكمل حاول حذف صف او صفوف Private Sub Worksheet_Selectionchange(ByVal Target As Range) For G = 2 To 50 If G Mod 2 = 1 Then Rows(G).Interior.ColorIndex = 37 Else Rows(G).Interior.ColorIndex = 0 End If Next End Sub رابط هذا التعليق شارك More sharing options...
الشهابي قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 أخي العزيز / ahmd2505 بعد أذن أساتذتنا الكرام راجع هذا الموضوع للمهندس الكبير أستاذنا طارق محمود ربما يفيدك في هذا الأمر http://www.officena....showtopic=41046 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 مثال مثال.rar رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 15, 2012 الكاتب مشاركة قام بنشر سبتمبر 15, 2012 أبو حنين اكتب الكود هذا فين في اي خانه انا استخدم صفحة اكسل رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 الكود الذى أرفقته لك يقوم بالمطلوب حتى بعد حذف صفوف ولكنه يحتاج تعديل ليقوم الكود بتلوين الصفوف الفردية بلون والزوجية بلون آخر فى مدى الـ 1000 صف من الصف 1 إلى الصف 1000 جارى محاولة تعديله رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 15, 2012 مشاركة قام بنشر سبتمبر 15, 2012 (معدل) الله ينور عليك ابو حنين كود أخى أبو حنين يعمل جيداً ويحقق المطلوب تماماً إنسخه وضعه فى حدث الشيت وغير المدى ليكون كما يلى Private Sub Worksheet_Selectionchange(ByVal Target As Range) For G = 2 To 1000 If G Mod 2 = 1 Then Rows(G).Interior.ColorIndex = 37 Else Rows(G).Interior.ColorIndex = 0 End If Next End Sub ولو أردت أن يكون كل صف بلون مختلف بالتبادل صف فردى بلون وصف زوجى بلون آخر غير الرقم صفر فى السطر 6 برقم آخر 8 مثلاً طريقة وضع الكود فى حدث الشيت المطلوب إفتح ملف الإيكسيل وإكبس على ألأت + F11 سيظهر لك صفحة كتابة الأكواد إختر الصفحة التى تريد تطبيق الكود فيها عن طريق دبل كليك ثم إلصق الكود فى المساحة البيضاء الكبيرة تم تعديل سبتمبر 15, 2012 بواسطه يوسف عطا رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 16, 2012 الكاتب مشاركة قام بنشر سبتمبر 16, 2012 الاخوان الاعزاء اشكركم جميعاً لقد عملت المعادلة بنجاح وهذا المطلوب بارك الله فيكم جميعاً رابط هذا التعليق شارك More sharing options...
alfahad قام بنشر سبتمبر 16, 2012 مشاركة قام بنشر سبتمبر 16, 2012 كما عودتنا يا ابو حنين رائع حفظك الله رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 16, 2012 مشاركة قام بنشر سبتمبر 16, 2012 شكرا اخي الحبيب فهد على مروركم العطر جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 17, 2012 الكاتب مشاركة قام بنشر سبتمبر 17, 2012 (معدل) Private Sub Worksheet_Selectionchange(ByVal Target As Range) For G = 2 To 1000 If G Mod 2 = 1 Then Rows(G).Interior.ColorIndex = 37 Else Rows(G).Interior.ColorIndex = 0 End If Next End Sub السلام عليكم سؤال الكود شغال 100% اذا استخدمته على صفحة جديده لكن اذا استخدمته على صفحة فيها معلومات لا تعمل المعادلة ماذا تظنون المشكله وما المقصود من الحرف G في المعادلة شكراً تم تعديل سبتمبر 17, 2012 بواسطه ahmd2505 رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 17, 2012 مشاركة قام بنشر سبتمبر 17, 2012 اخي طالما الكود موجود في الحدث Private Sub Worksheet_Selectionchange(ByVal Target As Range) و لا يوجد كود آخر يتعامل مع الالوان ، فمن المفروض لا يقع أي خلل بالنسبة للحرف G هو متغير فقط يمكن تغييره ( حلقة تكرار من 2 الى 1000 ) بأي شيئ آخر سواءا كان حرف أو كلمة رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 17, 2012 الكاتب مشاركة قام بنشر سبتمبر 17, 2012 ممتاز اخي لماذا لا يوجد سهم التراجع في حال اخطيب واريد اتراجع رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر سبتمبر 18, 2012 مشاركة قام بنشر سبتمبر 18, 2012 السلام عليكم لإثراء الموضوع وكما أشار أخي الحبيب م الشهابي في مشاركته رقم 10 مرفق حل بدون أكواد ، بالتنسيق الشرطي فقط ضع هذه المعادلة في شرط التنسيق =MOD(ROW(),2)=1 تفضل المرفق وجرب تلغي سطر منه ثم جرب تعمل Undo أو Ctrl-z تظليل سطر وترك سطر.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر سبتمبر 18, 2012 مشاركة قام بنشر سبتمبر 18, 2012 السلام عليكم مرة أخري لإثراء الموضوع بدون أكواد ، وبالتنسيق الشرطي إن كان الأوفيس لديك 2007 أو 2010 شاهد الفيديو ثم الملف المرفقين ممكن الدلالة بالألوان علي قيمة الخلايا ففي الملف ستجد الأرقام المنخفضة حمراء والأقل إنخفاضا أقل إحمرارا ثم المتوسطة حسب درجاتها تتلون بدرجات الأصفر وأخيرا المرتفعه حسب درجاتها تتلون بدرجات الأخضر جرب بالمرفق Cond_Format.rar رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر سبتمبر 18, 2012 مشاركة قام بنشر سبتمبر 18, 2012 المشكلة فى حالة إستخدام التنسيق الشرطى أن نكون نحتاج إستخدام التنسيق الشرطى بشروط أخرى وفى هذه الحالة فربما نكون فى إحتياج إلى أكثر من 3 شروط بما فيها شرط تلوين السطور أم هل يمكن إستخدام التنسيق الشرطى لتلوين كامل السطر إذا كان شرط التنسيق فى خلية واحدة فى السطر مثلاً فى خلايا العمود A نضع 1 أو 2 ويكون شرط التنسيق فى خلايا العمود A فيقوم بتفعيل التنسيق فى كل الصف هل هذا ممكن ؟؟ 1 رابط هذا التعليق شارك More sharing options...
احمد 505 قام بنشر سبتمبر 18, 2012 الكاتب مشاركة قام بنشر سبتمبر 18, 2012 الاخ أبو حنين في حال حذفت صف او مسحت معلومة في خانه كيف استطيع استرجعها لانه بعد وضع كود التلوين سهم التراجع لا يعمل ايش الحل برئيك رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 18, 2012 مشاركة قام بنشر سبتمبر 18, 2012 في هذه الحالة تأخذ بنصيحة الأستاذ طارق وتقوم بالعمل المبين في المرفق لكن في هذه الحالة اعتقد ان حذف صف يؤثرفي العملية و الله اعلم الشرح.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.