شرح طريقة عمل زر مزدوج

[الحديثة]

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

تم تعديل ديسمبر 15, 2012 بواسطه دغيدى

[أبو ردينة]

هل تستخدم اوفيس 2003 ام احدث ؟

[الحديثة]

استخدم اوفيس 2003

[الحديثة]

ممكن الشرح من اساتذة المنتدى الكرام

[الحديثة]

مفيش رد

[دغيدى]

أخى الكريم

اعطى الزر الأسم الموجود بالكود ولا تكتب عليه

[أبو ردينة]

أخي الكريم/ الحديثة

أعتذر عن تأخر ردي لعدم وجودي بالمنتدى بعد ردك الأخير و حتى الآن

كما تفضل أستاذنا الحبيب / دغيدي بخصوص إضافة الكود

و يمكنك لإضافة الزر عمل إدراج شكل ( من قائمة إدراج ) و تختار رسم و لون الزر الذي تريد و بعد ذلك كليك يمين على شكل الزر الذي أخترته ثم تخصيص كود و أضف الكود للزر ( في حالة أستخدام أوفيس 2003 )

أقترح على حضرتك إضافة الكود هنا و سنرفع لك ملف به المطلوب إن شاء الله في الحالتين ( 2003 - 2007 أو أعلى )

[الحديثة]

هذا هو الكود الرجاء يعض التعديلات علية لياخذ من صف الدرجات اى لا يتقديد ب 15 او 40 درجة فى الدرجة ةالترم2

Sub ÖÇÝÉ_ÍÐÝ2()

On Error Resume Next

Dim XX As Shape

Set XX = ActiveSheet.Shapes("ÇáÏÇÆÑÉ")

With XX.TextFrame.Characters

If .Text = "ÇÖÇÝÉ ÇáÏæÇÆÑ" Then

Circles2

.Text = "ÍÐÝ ÇáÏæÇÆÑ"

Else

RemoveCircles1

.Text = "ÇÖÇÝÉ ÇáÏæÇÆÑ"

End If

End With

On Error GoTo 0

End Sub

Sub Circles2()

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 = 2 ' ÚãæÏ ÑÞã ÇáÌáæÓ

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

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

X = Activewindow.Zoom

Application.ScreenUpdating = False

Activewindow.Zoom = 100

For Each C In Range("D5:AE154")

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

If Cells(4, C.Column).Value = "ÊÑã2" And C.Value <> "" And (C.Value < 15 Or C.Value = "Û" Or C.Value = "ÕÝÑ") Then

Set V = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, C.Left + 3, C.Top + 3, C.Width - 6, C.Height - 6)

V.Fill.Visible = msoFalse

V.Line.ForeColor.SchemeColor = 12

V.Line.Weight = 1.75

TT = TT + 1

End If

If Cells(4, C.Column).Value = "ÇáÏÑÌÉ" And C.Value <> "" And (C.Value < 40 Or C.Value = "Û" Or C.Value = "ÕÝÑ") Then

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

V.Fill.Visible = msoFalse

V.Line.ForeColor.SchemeColor = 10

V.Line.Weight = 1.75

D = D + 1

End If

1 Next

Activewindow.Zoom = X

Application.ScreenUpdating = True

MsgBox "Êã ÅÖÇÝÉ " & TT & " ãÑÈÚ æ " & D & " ÏÇÆÑÉ ÈäÌÇÍ", vbMsgBoxRtlReading, "ÇáÍãÏááå"

End Sub

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

ضع مرفق به المطلوب مع تفصيل لما تريد

[الحديثة]

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

وطريقة الكتابة على الزر ليظهر مرة حذف ومرة اضافة

الثالث.rar

[الحديثة]

وكل الشكر والتقدير لكل من ساهم بالرد فى المشارقة

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

تفضل المرفق بعد التعديل

الثالث.rar

[الحديثة]

ممكن دائرة على الدرجة والترم 2 مربع ازرق

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

ممكن دائرة على الدرجة والترم 2 مربع ازرق

تفضل

الثالث (1).rar

[يوسف عطا]

الله ينور على العمل الجميل

[الحديثة]

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

[أبو محمد عباس]

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

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

عمل رائع , دوائر ومربعات بشكل جميل وباتقان جزاك الله خيرا

[احمد فضيله]

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

[حسين شاكر]

ابو احمد

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

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

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

عمل رائع , دوائر ومربعات بشكل جميل وباتقان جزاك الله خيرا

حياك الله اخي عباس

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

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

بارك الله فيك اخي أحمد

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

ابو احمد

شكراً لمرورك اخي حسين

[الحديثة]

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

[أبو ردينة]

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

أخي / الحديثة

تأخري في الرد عليك أفادنا نحن الأثنين معا برد أخي / عبد الله فهو أستاذي الذي اتعلم منه كسائر الإخوة هنا الكثير و الكثير دائما

بالنسبة لإستفسار حضرتك كما سبق و نوهت يمكنك بعد إنشاء شكل الزر الضغط عليه بكليك يمين و أختيار تعيين ماكرو

[الحديثة]

فعلت ولم يكتب اضافة وياخذ نوع واحد من الكود وهو تم اضافة الدوائر ولم يحذف الدوائر معزرة نحن تلميذ نتعلم منكم العلم ونستفيد به