الشاب يوسف قام بنشر مايو 11, 2015 قام بنشر مايو 11, 2015 الاخوه الاعزاء عند طباعة النتيجة اليوم واجهتنى مشكلة وهى : الدوائر الحمراء مظبوطه على اى درجة اقل من الحد الادنى ... لكن فيه طلاب عندهم دور ثانى لكن فى الامتحان التحريرى 30% ودرجاتهم اكبر من الحد الادنى لذلك لا تظهر الدوائر الحمراء على درجاتهم فهل توجد طريقة لضبط الكود ...جزاكم الله خيرا؟؟ الدوائر الحمراء.rar
أ / محمد صالح قام بنشر مايو 11, 2015 قام بنشر مايو 11, 2015 تفضل أخي الكريم تم إضافة شرط جديد لمن يكتب له في العمود التالي دورثان30% الدوائر الحمراء2.rar
الشاب يوسف قام بنشر مايو 11, 2015 الكاتب قام بنشر مايو 11, 2015 ارجو المساعده من الاخوه الافاضل .. لان النتيجه هتنطبع بكره جزاكم الله خيرا
الشاب يوسف قام بنشر مايو 12, 2015 الكاتب قام بنشر مايو 12, 2015 تفضل أخي الكريم تم إضافة شرط جديد لمن يكتب له في العمود التالي دورثان30% تسلم ايدك استاذى العزيز ..والمبدع دائما استاذ محمد صالح تعديل رائع وادى المطلوب كما اردت جزاك الله خيرا
مختار حسين محمود قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 (معدل) أستاذ محمد بارك الله فيكم عندى مشكلة أيضا مشابهة أنا أستخدم هذا الكود على الشهادات وعندى طالب راسب فنى فى مادة مثل العربى واخد 55 درجة من 100 لكن لم يحصل على الـــ 30 % فى التحريرى أخر العام والتقدير طبعا دون المستوى ودرجة النجاح 50 بتزل الدائرة الحمراء على التقدير دون المستوى لكن لا تنزل على الدرجة 55 حيث أنها أكبر من درجة النجاح تفضل المرفق التالى :كنموذج مصغر من الكنترول شيت راسب فنى بدون دائرة على الدرجة.rar تم تعديل مايو 12, 2015 بواسطه مختار حسين محمود
أ / محمد صالح قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 قي السطر الذي يحتوي على الشروط السطر رقم 15 عدل c.Value = "دون المستوى" إلى c.Offset(1, 0).Value = "دون المستوى" وهي لعمل دايرة على الدرجة إذا كان في الصف التالي لها دون المستوى
مختار حسين محمود قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 (معدل) أشكرك يا أستاذ محمد لكن تم التعديل بالتبديل فنزلت الدوائر على الدرجة فقط دون المستوى ولما أضفت الجملة c.Offset(1, 0).Value = "دون المستوى" كشرط جديد تم نحقيق الهدف الدوائر نزلت على الدرجة ودون المستوى بارك الله فيكم وجازكم عنا خير الجزاء أستاذى العزيز تم تعديل مايو 12, 2015 بواسطه مختار حسين محمود
سـامي 169 قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 أشكرك يا أستاذ محمد لكن تم التعديل بالتبديل فنزلت الدوائر على الدرجة فقط دون المستوى ولما أضفت الجملة c.Offset(1, 0).Value = "دون المستوى" كشرط جديد تم نحقيق الهدف الدوائر نزلت على الدرجة ودون المستوى بارك الله فيكم وجازكم عنا خيرا الجزاء أستاذى العزيز الاساتذه الكرام نتعشم في مرفق نهائي به هذه التعديلات على نسخه 2003 جزاكم الله خيرا
مختار حسين محمود قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 المرفق بعد التعديلات بتنسيق 2003 راسب فنى بدون دائرة على الدرجة.rar
سـامي 169 قام بنشر مايو 12, 2015 قام بنشر مايو 12, 2015 الاساتذه الكرام الاستاذ حبيب قلبي مختار جزاكم الله خيرا بالنسبه للملف المرفق 2003 عند الضغط عدة مرات على زر اضافة الدوائر لا تظهرالدوائر
ناصر سعيد قام بنشر مايو 16, 2015 قام بنشر مايو 16, 2015 الاخوة الكرام الدوائر لاتظهر بعد عده مرات في 2003 فعلا
ناصر سعيد قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 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 = 3 ' عمود رقم الجلوس R = 1 ' صف الدرجات Set MyRng = Range("c8:m35") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ x = ActiveWindow.zoom Application.ScreenUpdating = False For Each c In MyRng If Cells(c.Row, G) = 0 Or Cells(c.Row, G) = "" 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 = "غـ" Or c.Value = "دون المستوى" Or c.Offset(1, 0).Value = "دون المستوى") And 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 = 10 v.Line.Weight = 0.25 d = d + 1 End If 1 Next ActiveWindow.zoom = x Application.ScreenUpdating = True 'MsgBox "تم إضافة " & d & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub Sub RemoveCircles1() Dim shp As Shape, d As Integer For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete: d = d + 1 Next shp 'MsgBox "تم حذف " & d & " دائرة بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub ============================= G = 3 ' عمود رقم الجلوس R = 1 ' صف الدرجات اين هذا العمود الموجود قي الشهاده واين هذا الصف ارجوكم
أ / محمد صالح قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 هذه بيانات تكتب حسب صفحة الشهادات المراد تنفيذ الكود فيها
ناصر سعيد قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 هي دي اخي الكريم بالسبه لي المشكله فصفحه الشهادات مش عارف الاقي هذا العمود الخاص برقم الجلوس ولا صف الدرجات اعطني صوره لو سمحت
أ / محمد صالح قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 انا لم أفحص الكود جيدا ولكني كنت مهتما بتنفيذ المطلوب فقط ويبدو أن العمود 3 هو بداية الدرجات لأن العمود a & b ليس بهم درجات للطالب وصف الدرجات يقصد به صف النهاية الصغرى 1 الذي يكتب فيه 50 للمادة ذات درجة من 100
ناصر سعيد قام بنشر مايو 20, 2015 قام بنشر مايو 20, 2015 وصف الدرجات يقصد به صف النهاية الصغرى 1 الذي يكتب فيه 50 للمادة ذات درجة من 100 اقتباس واين صف دون المستوى
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.