الــدوائر الحمراء

[أيمن ابراهيم]

الســلام عليكم اعـضـــاء وخـــبراء االمنتدى

برجاء المساعدة والتعديل على الملف المرفق

مطلوب احاطة خانة المجموع للمادة بدائرة حمراء عندما يتحقق شرط خانة المستوى للمادة دون

تقبلوا تحياتى ولكم جزيل الشكر

ayman.rar

[ibn_egypt]

اخى الفاضل

 

تفضل الملف المرفق,, تمت اضافة الدالة الرائعة DrawOvals بعد التعديل عليها قليلا لتناسب طلبك .. ستجد في الخلايا F5 .. H5 >>>>الخ صيغة الدالة بهذا الشكل

=DrawOvals(F8:F33,"دون")

تستطيع تغيير النطاق الى أى نطاق تريده

 

تحياتي  

ayman.rar

[محمد الريفى]

بعد اذن اخى الحبيب بن مصر جزاه الله خيرا

هذه طرق عمل الدوائر الحمراء بالصور

بالطرق العاديه

 

ayman.rar

[أيمن ابراهيم]

اخى الفاضل

 

تفضل الملف المرفق,, تمت اضافة الدالة الرائعة DrawOvals بعد التعديل عليها قليلا لتناسب طلبك .. ستجد في الخلايا F5 .. H5 >>>>الخ صيغة الدالة بهذا الشكل

=DrawOvals(F8:F33,"دون")

تستطيع تغيير النطاق الى أى نطاق تريده

 

تحياتي  

 

اخى الفــاضل اشــكرك على اهتمامك داعــياً الله لك بالتوفيق والســــــداد

انا اريــد عنـــدما يكون تقـدير الطالب في المــادة( دون) يتم احــاطة خــانة المجمــوع للمــــادة بدائــرة حمــراء واضحــة كما بالصـــورة المرفقـــة لان هــذة الورقــة معــدة للطبــــاعة 

اكــــرر شــكرى وتقــديري اليك

تقبل تحيـــاتي

 

تم تعديل يناير 12, 2015 بواسطه ayman_2000

[أيمن ابراهيم]

بعد اذن اخى الحبيب بن مصر جزاه الله خيرا

هذه طرق عمل الدوائر الحمراء بالصور

بالطرق العاديه

اخى الفــاضل اشــكرك على اهتمامك

 

طـــريقة حضرتك تحــدد الخليــة ( دون ) وهــذة الــدوائر لاتظهر في طبــاعة التقــرير

 

ولكن المطلوب عنـــدما يكون تقـدير الطالب في المــادة( دون) يتم احــاطة خــانة المجمــوع للمــــادة بدائــرة حمــراء واضحــة كما بالصـــورة المرفقـــة لان هــذة الورقــة معــدة للطبــــاعة 

 

لك منى وافـــر التحيـــة والاحــترام اشــكرك

 

[محمد الريفى]

السلام عليكم

هذا حسب مافهمت من طلبك

 

ayman.rar

[أيمن ابراهيم]

السلام عليكم

هذا حسب مافهمت من طلبك

استاذى الفاضل محمد الريفي

اشكرك على اهتمامك بالموضوع

لى عندك رجاء وهو الشرح والتوضيح 

تقبل تحياتى

[أيمن ابراهيم]

كل الشـــكر لمن ســاهم في هـــذا الموضــــــوع 

وارجـــوا شــرح بسيـــط لتعــــم الفــــــائدة

[محمد الريفى]

اخى الكريم الشرح موجود داخل الملف بصور توضيحيه

ماعد هذا الكود

فقط ضع هذا الكود ثم انشأ زر لتفعيله

 Sub AddValidationCirclesForPrinting()

    Dim DataRange As Range
    Dim c As Range
    Dim count As Integer
    Dim o As Shape

    'Set an object variable to all of the cells on the active
    'sheet that have data validation -- if an error occurs, run
    'the error handler and end the procedure
    On Error GoTo errhandler
    Set DataRange = Cells.SpecialCells(xlCellTypeAllValidation)
    On Error GoTo 0
 
    count = 0
 
    'Loop through each cell that has data validation
    For Each c In DataRange
 
       'If the validation value for the cell is false, then draw
       'a circle around the cell. Set the circle's fill to
       'invisible, the line color to red and the line weight to
       '1.25
       If Not c.Validation.Value Then
           Set o = ActiveSheet.Shapes.AddShape(msoShapeOval, _
               c.Left - 2, c.Top - 2, c.Width + 4, c.Height + 4)
           o.Fill.Visible = msoFalse
           o.Line.ForeColor.SchemeColor = 10
           o.Line.Weight = 1.25
 
           'Change the name of the shape to InvalidData_ + count
           count = count + 1
           o.Name = "InvalidData_" & count
       End If

   Next
   Exit Sub
 
errhandler:

   MsgBox "There are no cells with data validation on this sheet."

 
 End Sub

jتحياتى

ayman.rar

[أيمن ابراهيم]

اخى الكريم الشرح موجود داخل الملف بصور توضيحيه

ماعد هذا الكود

فقط ضع هذا الكود ثم انشأ زر لتفعيله

 Sub AddValidationCirclesForPrinting()

    Dim DataRange As Range
    Dim c As Range
    Dim count As Integer
    Dim o As Shape

    'Set an object variable to all of the cells on the active
    'sheet that have data validation -- if an error occurs, run
    'the error handler and end the procedure
    On Error GoTo errhandler
    Set DataRange = Cells.SpecialCells(xlCellTypeAllValidation)
    On Error GoTo 0
 
    count = 0
 
    'Loop through each cell that has data validation
    For Each c In DataRange
 
       'If the validation value for the cell is false, then draw
       'a circle around the cell. Set the circle's fill to
       'invisible, the line color to red and the line weight to
       '1.25
       If Not c.Validation.Value Then
           Set o = ActiveSheet.Shapes.AddShape(msoShapeOval, _
               c.Left - 2, c.Top - 2, c.Width + 4, c.Height + 4)
           o.Fill.Visible = msoFalse
           o.Line.ForeColor.SchemeColor = 10
           o.Line.Weight = 1.25
 
           'Change the name of the shape to InvalidData_ + count
           count = count + 1
           o.Name = "InvalidData_" & count
       End If

   Next
   Exit Sub
 
errhandler:

   MsgBox "There are no cells with data validation on this sheet."

 
 End Sub

jتحياتى

استـــاذى الفــاضل محمد الريفي 

لك منى كل تقــدير على اهتمامك بالموضـــوع

ارجــوا من حضرتك التعـــديل عـلى الكــود ( عند تعيـــير المستــوى من " دون " الى "مقبـــــول " او "جــــــيد" او "جيــد جدا" او "ممتـــاز" يتم ازالــة الــدائرة الحمـــراء من خـــانة المجمـــوع

اعلـــم باننى اثــقل عليـــك 

تقبل تحيـــاتى

[محمد الريفى]

السلام عليكم

اتفضل يااستاذ ايمن

ولايهمك .

ayman.rar

[أيمن ابراهيم]

السلام عليكم

اتفضل يااستاذ ايمن

ولايهمك .

اشـــكرك استـــاذى الفـــاضل محمد الــريفي

جــعلك الله عـوناً لنــا وجعــله في مـــيزان حسنــاتك

ولكــن لى استفــسار صغـــير

الادارة عنــدنا بها 106 مدرســة ولكل مدرســة صفحة مستقــلة

فهل هــذا الكــود يعمل على هــذا العـــدد من الصفحـــات

تـقبل تحيـــــاتي