ظهور الدوائر الحمراء

[جوده]

برجاء مساعدتى فى ظهور الدوائر الحمراء

لكم كل التقدير     جوده

جوده.rar

تم تعديل يونيو 14, 2013 بواسطه جوده

[طارق محمود]

السلام عليكم

أخي العزيز

راجع الموضوع التالي للأخ الغالي الأستاذ / عبدالله المجرب (أبوأحمد)

http://www.officena.net/ib/index.php?showtopic=47534

[جوده]

الاستاذ طارق  اولا تقبل منى كل التقدير

لقد عرفت هذه الطريقه ولكن اسال ان كانت هناك طريقه لاظهار الدوائر فى الطباعه

شكرا جوده

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

السلام عليكم

 

شاهد المرفق 2003

جوده.rar

[جوده]

الاستاذ عبد الله شكرا على الاستجابه واسمح لى بسؤال كيف يمكن تحديد الحد الادنى مثلا اذا قلنا ان المجموع من 100 والحد الادنى من  50  كيف يمكن ان تظهر الدوائر هكذا او اى مجموع اخ اى كيف يمكن التحكم بذلك

 

شكرا جوده

[رجب جاويش]

بعد اذن أستاذى الحبيب / عبد الله باقشير

أخى جودة

السطر التالى

    If Val(Col) < 21 Then

هو المسئول عن تحديد الحد الأدنى

ويمكن تغيره الى السطر التالى

    If Val(Col) < Val(Range("C2")) Then

حيث يتم تغيير الحد الأدنى من الخلية C2  كما تشاء

 

جوده.rar

[جوده]

الاساتذه الافاضل    ذ / رجب                      وذ / عبدالله

لكم منى كل تقدير واننى احسد نفس على انكما شخصيا علمتمونى شيئا جميلا وهو العطاء

بارك الله فيكما

اسمحوا لى بسؤالين 1-- اذا اردت تحديد اعمده معينه متفرقه مثلا  الاعمده  a  &  d   $ h  & l

2--- اذا اردت تحديد خلايا بعينها  مثلا  a2&b3&h5  leb

شكراا

جوده                  

تم تعديل يونيو 18, 2013 بواسطه جوده

[رجب جاويش]

أخى الفاضل / جوده

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

[جوده]

اسمحوا لى بسؤالين 1-- اذا اردت تحديد اعمده معينه متفرقه مثلا  الاعمده  a  &  d   $ h  & l

2--- اذا اردت تحديد خلايا بعينها  مثلا  a2&b3&h5  leb

[رجب جاويش]

أخى الفاضل

يرجى ارفاق ملف توضح به ما تريد

حتى يتم العمل عليه

[جوده]

المطلوب ظهور الدوائر الحمراء فى الاعمده والخلايا المحدده مع الشرح ان امكن

شكرا لكم

جوده

جوده.rar

[رجب جاويش]

أخى الفاضل

لا يوجد أى خلايا محددة داخل الملف

الملف المرفق هو الملف القديم ولا يوجد به أى تعديلات جديدة

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

السلام عليكم

هذا مثال للعمود سي واي

Set MyRng = ActiveSheet.Range("C4:C23,E4:E23")

وصف الدرجة الصغرى هو الصف 3

 

المرفق 2003

الدوائر الحمراء.rar

[جوده]

استاذى العزيز

اشكركم على سعه صدركم

لقد اضفت عده اعمده كما بالملف ولكنى اريد ان تظهر الدائره الحمراء فى الخليه التى تحتوى على نصف القيمه التى تظهر اعلى كل عمود فى الخليه الصفراء

مثلا العمود  E     الخليه الصفراء بها 50   لذلك اريد اتظهر الدائره الحمراء فى الخلايا التى به قيم اقل من 25

اسف واعتذر على الاطاله وقله فهمى

جوده

الدوائر الحمراء.rar

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

استاذى العزيز

اشكركم على سعه صدركم

لقد اضفت عده اعمده كما بالملف ولكنى اريد ان تظهر الدائره الحمراء فى الخليه التى تحتوى على نصف القيمه التى تظهر اعلى كل عمود فى الخليه الصفراء

مثلا العمود  E     الخليه الصفراء بها 50   لذلك اريد اتظهر الدائره الحمراء فى الخلايا التى به قيم اقل من 25

اسف واعتذر على الاطاله وقله فهمى

جوده

 

غير هذا السطر من الكود Start_Circles

If Val(Col) < Val(Cells(MyRow, C)) Then

بهذا السطر

If Val(Col) < Val(Cells(MyRow, C)) / 2 Then

تحياتي

[جوده]

لكم منى كل تحيه وتقدير

 

جوده

[قصي]

السلام عليكم

هذا مثال للعمود سي واي

Set MyRng = ActiveSheet.Range("C4:C23,E4:E23")

وصف الدرجة الصغرى هو الصف 3

 

المرفق 2003

الدوائر الحمراء.rar

رائع جزاك الله كل خير

[جوده]

بارك الله فيكم

جوده

[Hosni2013]

كل التحية و التقدير للأساتذة الأفاضل و جزاكم الله خيرا

تم تعديل يونيو 21, 2013 بواسطه Hosni2013