إضافة الدوائر الحمراء وحذفها

[ياسر خليل أبو البراء]

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

إخواني الكرام أقدم لكم اليوم موضوعاً فيه الشرح بالتفصيل لعمل الدوائر الحمراء ، وهو فيديو للأستاذ الكبير / يحيى حسين ، جزاه الله عنا خير الجزاء

وهذا هو رابط الفيديو

وفيه شرح لعمل الدوائر الحمراء ...

فقمت بتطبيق المثال في الملف المرفق مع إضافة بسيطة بعد إذن الأستاذ الكبير يحيى حسين وهو حذف هذه الدوائر

 

Add-Remove Red Circles.rar

[يحيى حسين]

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

 

و أتمنى أن يستفيد الأخوة من الملف و من الشروحات فيه 

 

دمت في حفظ الله 

[ياسر خليل أبو البراء]

مشكور على مرورك العطر أخي في الله يحيى حسين

فأنت علم من أعلام هذا المنتدى

بارك الله فيك وزادك علما

[فضل حسين]

الاستاذ الفاضل / يحيى حسين

تسلم وجزاك الله كل خير على هذا الشرح والوافى والفيديو الجميل مثلك جزاك الله كل خير وزادك الله علما

الاخ العزيز / ياسر خليل

الف شكر ياحبيبى على قيامك بتقديم هذ الفيديو الرائع جزاك الله كل خير وجعله فى ميزان حسناتك اللهم امين 

انا لى طلب بسيط يااخى العزيزياسر خليل

هل يمكن ارفاق ملف مكتوب فيه الكود ومنفذ فه الدوائر ولكن على نسخة 2003

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

[ياسر خليل أبو البراء]

الأخ فضل زادك الله فضلا وعلما

تفضل المرفق التالي بتنسيق أوفيس 2003

Add-Remove Red Circles.rar

[hafez81]

ياريت من غير ازرار

 

يعني عند كتابة القيمة مباشرة يصير دائرة

 

ممكن

[محمود_الشريف]

أخى فى الله

الاستاذ الكريم // حافظ

 

وبعد اذن استاذى القدير // ياسر خليل

محاولة منى لتنفيذ طلبك

كل ما عليك أن تستدعى الكود بوضعه فى حدث الشيت نفسه

هكذا

Private Sub Worksheet_Change(ByVal Target As Range)
AddRedCircle
End Sub

جرب تغيير اى رقم الى 40

واليكم المرفقات نموذج الاستاذ القدير // ياسر

وبه تطبيق لما طلبته

 

وتقبلوا منى وافر الاحترام والتقدير

Add-Remove Red Circles_1.rar

[abdurhman_edan]

السلام عليكم

 

أشكرك أخي... YasserKhalil على طرحك لهذه المشاركة الراااااائعة.... وكذلك الإخوة المشاركين

 

ولي طلب... أن يكون الكود محصور بين رقمين مثلا.. يضع دائرة على الأرقام بين الرقمين ( 40 ......... 30 ) ... مثلا

 

هذا مفيد جدا... في التنبيه على كمية المخزون والتي قاربت على الإنتهاء...

[ياسر خليل أبو البراء]

تفضل أخي

Sub AddRedCircle()
    Dim c As Range
    Dim ws As Worksheet
    Dim Shp As Shape
    
    Set ws = ActiveSheet
    
    For Each c In Range("B2:E9")
        If c.Value <= 40 And c.Value >= 30 Then
            c.Select
            Set Shp = ws.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height)
            With Shp
                .Fill.Visible = msoFalse
                .Line.ForeColor.RGB = RGB(255, 0, 0)
                .Line.Weight = 2
            End With
        End If
    Next c
End Sub

[abdurhman_edan]

سلمت يمينك

 

الكود راااااائع جدا.... أشكرك

[محمد لطفى]

السلام عليكم

 

تحيه طيبه للجميع وارجوا تتقبلوا هذا الاقتباس من خبراتكم

فى الملف الرفق

Add-Remove Red Circles2.rar

[hafez81]

بارك الله فيكم اخواني

[hafez81]

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

[alaawer]

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

الاستاذ الفاضل / يحيى حسين

تسلم وجزاك الله كل خير على هذا الشرح والوافى والفيديو الجميل مثلك جزاك الله كل خير وزادك الله علما

ولكن عندى مشكلة وهى

1-اريد ان اعمل دائرة بحيث يتم اضافة الدوائر بطريقة اوتوماتيكية عندما تكون اقل من عدد معين وازالتها اذا تم التعديل على الرقم بالزيادة

2- عندما يكون عىندى عدة اعمد عربى من 50 فى العمود b - وانجليزى من 100 ى العمود c-- و رياضة من 40 فى العمود d   واريد ان اعمل دائرة بحيث اذا كانت اقل من 50 فى العمود الاول يتم رسم الداءرة بطريقة اوتوماتيكية واذا ذادت عن 50 يتم حذف الدائرة اوتوماتيكيا

وكذلك الانجليزى يتم عمل دائرة بحيث اذا كانت اقل من 100 فى العمود الثانى  يتم رسم الدائرة بطريقة اوتوماتيكية واذا ذادت عن  100 يتم حذف الدائرة اوتوماتيكيا

وكذلك فى الرياضيات يتم عمل دائرة بحيث اذا كانت اقل من 40 فى العمود الثالث  يتم رسم الدائرة بطريقة اوتوماتيكية واذا ذادت عن  40 يتم حذف الدائرة اوتوماتيكيا

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

الاستـــاذ الفــاضل ياســـر خليل

لك مني وافـــر التحيــة والاحـــترام على مســاهماتك في حــل المشكلات التي تواجــه اعضــاء المنتــدى

اشــكرك على موضــوع عمل الدوائر الحمــراء وحذفهـا للأستـــاذ يحي حســين فـهو موضـــوع رائع ومفيــد للذين هـــم مثلي لجهلهـــم بكتـابة الاكــــواد

ولكن الشـــرح لعمل دوائر حمـــراء عنــدما تكــون درجـــة المجموع الكلي للمــادة اقل من درجــة النهـــاية الصغـــرى لنجــاح الطـــالب فقــط

 ولكن توجــد شـــروط اخــري لرســـوب الطــالب منهـا عـــدم تحقيق ربع الدرجــة في ورجــة الاجــابة في امتحــان الفصل الــدراسي الثــاني او تغـــيب عن الامتحــان في الفصــل الدراسي الثــاني مثــلاً ، برغــم تخطيــه النهــاية الصغــرى للمـــادة وهــذا يظهر في الشهــادة الاولي بالمـلف المرفــق

استسمح حضرتك بالتعديل على الملف المرفق بوضع دوائر حمراء على الطالب الراسب في الشهادة والورقة aymn بدلاً من التنسيق الشرطي والتي اتبعها في خلية مادة الرسوب ، مع شرح بسيط لذلك

اعلم بانني اثقل عليك ولكن هذا قدر الاســـاتذة امثالك من تلاميذهم

تقبل تحياتي ولك منى وافر التحية والاحترام

 

الاول الاعـــدادى 2016.rar

[Abdelhady Tahoon]

لوسمحتم ياجماعة انا عندى نهايات صغرى مختلفة لمواد كثيرة واعانى من ثبات الدوائر فى درجة الطالب الناجح فرجاء الحل بوضع الكود المناسب  وشكراً

[ابوفاطمة]

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

اخبارك ايه يا اخى الحبيب

محدش حل لك المشكلة اللى انت وانا فيها 

انا حاسس ان محدش فاهمنا

احنا عايزين الدائرة تترسم اذا كان فى خلية مناظرة فيها قيمة معينة فقط

اذاكان فى خلية موجود فيها رقم 1 يبقى نرسم الدائرة غير كدة مانرسمش دائرة

تم تعديل يونيو 9, 2015 بواسطه ابوفاطمة

[ياسر خليل أبو البراء]

أخي الكريم أبو فاطمة ..

في الموضوع الخاص بك قم بشرح ما تريد وبالتفصيل وإن شاء الله تجد المساعدة من إخوانك ...

الرجاء التوضيح حتى تجد المساعدة

تقبل تحياتي

[غسان العبيدي]

جزاكم الله خيراً..

ورزقكم مما تحبون

وبارك لكم