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

[محمدي عبد السميع]

بسم الله الرحمن الرحيم

من نعم الله علينا وجود العالم الفذ خبور الخير

وقد افاض الله عليه ببعض علمه الذي افاض به علينا

الله يجزيه عنا خير الجزاء

وهاهو يطل علينا بكود غير مسبوق لعمل الدوائر الحمراء وكود لمسح الدوائر الحمراء

قليل الحجم - سريع - وسهل النقل الى اي شيتات اخرى

___________________.rar

تم تعديل يونيو 5, 2009 بواسطه mohammadey1

[محمدي عبد السميع]

Sub Circles1()
Dim C As Range
Dim MyRng As Range
Set MyRng = Range("J8:M1000")
For Each C In MyRng
'    ÚãæÏ ÑÞã ÇáÌáæÓ åæ ÇáÚãæÏ 2
    If Cells(C.Row, 2) = 0 Then GoTo 1
    If C.Value < Cells(7, C.Column) Or C.Value = "&Ucirc;" Or C.Value = "&Ucirc;&Uuml;" Then
        Set v = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left, C.Top, C.Width, C.Height)
        v.Fill.Visible = msoFalse
        v.Line.ForeColor.SchemeColor = 10
        v.Line.Weight = 1.25
    End If
1 Next
End Sub

Sub RemoveCircles1()
    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
      
      If shp.AutoShapeType = msoShapeOval Then shp.Delete
    Next shp
End Sub

وإذا اردت عمل الدوائر لأعمده خاصة

Set MyRng = Range("K8:K1000,H8:H1000,E8:E1000")

[cat101]

شكرا شكرا شكرا

جزيت خيرا واطعمت طيرا

وبارك الله لك

[أبن النيل]

السلام عليكم

هل يمكن حذف مفتاحى اظهار واخفاء الدوائر

من الشيت المرفق وتطبيق هذا الكود السريع

عليه وأكون شاكر لكم جداً

____________.rar

[cat101]

يبدو من شدة حب الاخ محمدي للعالم الفذ خبور خير

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

وحتى نعطي الخق لاصحابه فإن الاستاذ خبور قد عدل على الكود فقط

بارك الله في مصمم الكود وفي معدل الكود وكل من ساهم في الموضوع

[cat101]

السلام عليكم

هل يمكن حذف مفتاحى اظهار واخفاء الدوائر

من الشيت المرفق وتطبيق هذا الكود السريع

عليه وأكون شاكر لكم جداً

السؤال بطريقة اخرى

اذا اردت ان انقل الكود الى ملف آخر بداية عمل الشيت الجديد الصف ال 13 مثل

اين الجزئيه التي اغير فيها

وشكراا

[محمدي عبد السميع]

يبدو من شدة حب الاخ محمدي للعالم الفذ خبور خير

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

وحتى نعطي الخق لاصحابه فإن الاستاذ خبور قد عدل على الكود فقط

بارك الله في مصمم الكود وفي معدل الكود وكل من ساهم في الموضوع

اخي كات

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

اشكرك على التنويه جزاك الله كل خير

وبعد :

كلامك يا اخي مضبوط

فمعذرة

وجزى الله خيرا كل من شارك في هذا الكود

[cat101]

هذا الكود وهو كود الدوائر الحمراء ممتاز

ويجب ان ننسبه لصاحبه فمن هو صاحبه اكرمكم الله