تعديل فى الدوائر

[القومي]

الاساتذة الافاضل /

تحية طيبة وكل عام وانتم بخير

الرجا تعديل فى كود الدوائر بحيث توضع على الدرجات فقط

دون الخانات الفارغة واليكم المرفق للتوضيح ولكم جزيل الشكر

شيت منازل.rar

[دغيدى]

الأخ الفاضل / القومي

كل عام وانتم بخير

داخل الكود عمود رقم الجلوس ( 1 ) هو المحدد لوضع الدوائر

عموما الدور الثانى يفضل أن المادة تأخذ عمودين والطالب يأخذ صفا واحدا

[القومي]

شكرا الى استاذنا الفاضل / دغيدى

هل يمكن اضافة للكود لايعطى دائرة فى الخانة الفارغة

واشكرك جزيل الشكر على اسهاماتك دائما

[عبدالله المجرب]

شكرا الى استاذنا الفاضل / دغيدى

هل يمكن اضافة للكود لايعطى دائرة فى الخانة الفارغة

واشكرك جزيل الشكر على اسهاماتك دائما

اخي القومي

تم اضافة هذه الجزئية للكود

If C.Value = "" Then

        V.Delete

    End If

ليصبح الكود كالتالي

Sub Circles1()

Dim C As Range

Dim MyRng As Range, V As Shape

Dim X As Integer, G As Integer, R As Integer, D As Integer

'================================================

G = 1       '    ÚãæÏ ÑÞã ÇáÌáæÓ

R = 6       '    ÕÝ ÇáÏÑÌÇÊ

Set MyRng = Range("i7:i30,m7:m30,q7:q30,u7:u30,y7:y30,ac7:ac30,ad7:ad30,ah7:ah30")  ' äØÇÞ ÇáÎáÇíÇ ÇáÐí ÊÑíÏ ÇÖÇÝÉ ÇáÏæÇÆÑ ÝíåÇ

'================================================

X = ActiveWindow.Zoom

Application.ScreenUpdating = False

ActiveWindow.Zoom = 100

For Each C In MyRng

    If Cells(C.Row, G) = 0 Then GoTo 1

    If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Value = "Û" Or C.Value = "ÛÜ") Then

        Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 1, C.Top + 1, C.Width - 2, C.Height - 2)

        V.Fill.Visible = msoFalse

        V.Line.ForeColor.SchemeColor = 3

        V.Line.Weight = 3

        D = D + 1

        If C.Value = "" Then

        V.Delete

        K = K + 1

    End If

     End If

1 Next

ActiveWindow.Zoom = X

Application.ScreenUpdating = True

MsgBox "Êã ÅÖÇÝÉ   " & D - K & "   ÏÇÆÑÉ ÈäÌÇÍ", vbMsgBoxRtlReading, "ããÏæÍ ãÍÈ"

End Sub

شيت منازل.rar

[ياسر الحافظ]

تم اضافة هذه الجزئية للكود

If C.Value = "" Then

        V.Delete

    End If

اخي / الاستاذ ابو احمد

شكرا لهذه الاضافة الرائعة

عندي استفسار كيف سيكون الكود لو كان المطلوب تلوين الخلابا بدون وضع دوائر ( بأي لون )

اشكرك

وفقك الله

ياسر الحافظ " ابو الحارث "

[دغيدى]

كيف سيكون الكود لو كان المطلوب تلوين الخلابا بدون وضع دوائر ( بأي لون )

أخى الفاضل / عبدالله المجرب " ابو أحمد"

أثـــــــــــــابكم الله وكل عام وانتم بخير

أخى الفاضل / ياسر الحافظ " ابو الحارث "

سلام الله عليكم

عليكم بالتنسيق الشرطى

[القومي]

استاذنا الفاضل / ابو احمد

اشكرك جزيل الشكر على هذة الاضافة ودائما تفيدونا باضافتكم

وتعلمنا الكثير منكم شكرا وكل عام وانتم بخير