عبد الفتاح كيرة قام بنشر يوليو 6, 2009 مشاركة قام بنشر يوليو 6, 2009 فى العمود A إذا كتبت أى قيمة أقل من 40 اجعل لون الخط أحمر و إذا كانت غير ذلك اجعل لون الخط أزرق يتم تنفيذ ذلك بمجرد الانتهاء من تعبئة الخلية و ليس بضغط زر آخر أليس هذا بديلا عن الدوائر الحمراء ؟ أحتاج آراء الخبراء بهذا الكود لقد وضعته فى Workbook_SheetChange هل من تعديل أرجو التجاوب Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) For i = 1 To 123 If Cells(i, 1) < 40 Then Cells(i, 1).Font.color = vbRed Cells(i, 1).Font.Bold = True Else Cells(i, 1).Font.color = vbBlue Cells(i, 1).Font.Bold = True End If Next End Sub Book1.rar رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر يوليو 6, 2009 مشاركة قام بنشر يوليو 6, 2009 السلام عليكم الكود شغال وتمم وتسلم ايدك بس بصراحة الدواير الحمرا لا بديل عنها المفروض ان كلنا عارفين ان شيت الراسبين لابد وجود دوائر واظن ان مشكلة الدواير اتحلت خلاصتحياتى رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر يوليو 6, 2009 مشاركة قام بنشر يوليو 6, 2009 (معدل) السلام عليكم أخي kemas أنا لست خبيرا بل تلميذ ، اليوم تعلمت منك شيءا جديدا بالنسبة لي لو تكرمت وشرحت كيفية العمل لتتضح الأمور لأنني حاولت فلم أفلح جزاك الله خيرا على هذه المساهمة القيمة ، في انتظار آراء الخبراء تم تعديل يوليو 6, 2009 بواسطه سالم شباني رابط هذا التعليق شارك More sharing options...
سمير نجار قام بنشر يوليو 7, 2009 مشاركة قام بنشر يوليو 7, 2009 السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي kemas مشاركة كتير حلوة والى الامام السلام عليكم رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر يوليو 7, 2009 الكاتب مشاركة قام بنشر يوليو 7, 2009 (معدل) و عليكم السلام و رحمة الله شكرا أخى bosh نعم الكعكة الحمراء لها رونق و جاذبية خاصة أوافقك أخى سالم أنا أيضا أحد التلاميذ خاصة فى هذه الأكواد أما كيفية العمل فهذا كود عادى لتلوين الخلية بلون أحمر فى حال كانت أقل من 40 " على سبيل المثال " لكن الرائع فى هذا الكود هو أنه يعمل بمجرد كتابة القيمة فى الخلية و ضغط مفتاح الإدخال وليس عن طريق زر ماكرو فإذا كتبت فى خلية مثلا الرقم 39 و انتقلت لخلية أخرى أو ضغطت مفتاح الإدخال فعلى الفور سيطبق الكود و يتحول لون الخط إلى أحمر و لو كتبت مثلا رقم 55 فستجد الخط أزرق أما السبب فى هذا التنفيذ الفورى هو أننا وضعنا الكود فى الحدث SheetChange و الذى يعنى أى تغيير فى خلايا الشيت وهكذا أى كود يوضع فى هذا الحدث سيتم تنفيذه مع أى تغيير لأى خلية أما شرح الكود فهذا أمر أنا فيه من التلاميذ لكن قدر المستطاع السطر الأول بعد الإعلان يبدأ حلقة تكرارية عن طريق المتغير i حيث يأخذ قيمة من 1 إلى 123 و هى عدد الصفوف المراد تطبيق الحلقة عليها و هو غالبا عدد أسماء التلاميذ فى الشيت السطر التالى جملة if إذا كانت الخلية a1 أقل من 40 نفذ الآتى غير لون خط الخلية إلى الأحمر واجعل الخط ثخينا " سميكا " و إلا اجعل لون الخط أزرق و سميكا وطبعا تنفذ الحلقة على القيمة التالية للمتغير i فيفحص الخلية a2 و هكذا ======= انتهى الشرح المتواضع شكرا أيضا للأخ samnaj00 بارك الله فيكم تم تعديل يوليو 7, 2009 بواسطه kemas رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يوليو 8, 2009 مشاركة قام بنشر يوليو 8, 2009 أنا لسة تليميذ صغير فى الأكواد لكن بعمل الموضوع ده بتظليل خلية الراسب تلقائياً بمجرد وضع الدرجة تنسيق شرطى عادى خلية مظللة بلون رمادى خط بولد مميز ولكن الكود ظريف وقد يكون فعال أكثر السؤال عندنا 11 مادة والمجموع الكلى وربع الدرجة لـ 11 مادة فى الفصل الدراسى الثانى هل هانعمل 23 كود ولا كود واحد يشمل جميع المواد والمجموع ؟؟ أرجو الإجابة شاكر لك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان