دغيدى قام بنشر مايو 5, 2009 قام بنشر مايو 5, 2009 الأخوة خبراء الأكسيل كيفية وضع كود دوائر حمراء على أعمدة متفرقة بحدود مختلفة لأن الحد الأدنى فى شيت الرصد مختلفة
دغيدى قام بنشر مايو 5, 2009 الكاتب قام بنشر مايو 5, 2009 إلى الأساتذة الأفاضل أرجو منكم كود وضع دوائر حمراء على درجات الطالب الراسب لمواد مختلفة ( أعمدة ) الحد الأدنى مختلف والأعمدة غير متجاورة
نزار سليمان عيد قام بنشر مايو 5, 2009 قام بنشر مايو 5, 2009 السلام عليكم لتحميل الملف اخ دغيدي يجب ضغطه باحد ملفات الضغط (RAR او ZIP) ومن ثم تحميله وكما ذكر اخي الحبيب الاستاذ / ابو أسامة ارفاق الملف المشابه لملف الاصلي يساعد في اختصار الوقت والجهد مع الشكر ابو خالد
دغيدى قام بنشر مايو 5, 2009 الكاتب قام بنشر مايو 5, 2009 الأخوة الأفاضل .. ابو اسامة العينب.. .. نزار سليمان عيد مرسل شيت كنترول برجاء وضع كود الدوائر الحمراء .. حيث موضح به الحد الأدنى لكل مادة أنعم الله عليكم من فضله 12.rar
دغيدى قام بنشر مايو 5, 2009 الكاتب قام بنشر مايو 5, 2009 الأخ الفاضل .. أحمد يعقوب برجاء قراءة طلبى حول وضع دوائر حمراء علما بأنها أول مشاركة
احمدزمان قام بنشر مايو 5, 2009 قام بنشر مايو 5, 2009 السلام عليكم و رحمة الله وبركاته اخي دغيدي اهلا وسهلا بك بين اخوانك طلبك وصل وتأكد ان الأساتذة ابو اسامة وابو خالد لن يتأخرو ابدا في عمل طلبك اما انا آمل ان تعذرني فلم يسبق لي العمل في موضوع الدوائر الحمراء ابدا
safwatscc قام بنشر مايو 5, 2009 قام بنشر مايو 5, 2009 بعد اذن الاساتذة الكرام الاخ دغيدى كنت قد طلبت انا هذا الموضوع من قبل وبارك الله فى الاخوة فى المنتدى فى عمل ذلك ومرفق ملف موضح بة الدالة ممكن بكل سهولة تطبقة على الشيت بتاعك وشكرا ______________________________________.rar
دغيدى قام بنشر مايو 5, 2009 الكاتب قام بنشر مايو 5, 2009 الأخ الفاضل ..safwatscc أشكركم على استجابتكم وهل يمكن تطبيقه علة أعمدة أخرى وكيف تحياتى العطرة
نزار سليمان عيد قام بنشر مايو 6, 2009 قام بنشر مايو 6, 2009 السلام عليكم شكرا اخي الحبيب استاذ / احمد على هذا التواضع الذي هو من شيم الكرام بعد اذن اخي الحبيب ابو اسامة عملاق كود الدوائر الحمراء اخي دغيدي ارفق لك ملف كود الدوائر الحمراء عن طريق التحقق من الصحة بحيث تحدد العمود المطلوب وضع الدوائر عليه وتنسخ المعادلة الموجود في قائمة التحقق من الصحة الموضحة ادناه وتعديل الحد الادنى ففي المعادلة ادناه عمود M السطر 12 الحد الادنى للدرجة 25 =M12>25 مع العلم تم اضافة الكود على ملفك وعمل اول مادتين عمود M و عمود Q مع تمنياتي لجميع الطلبة والطالبات بالتوفيق والنجاح وسدد الله خطاكم فضلا انظر للمرفق مع الشكر ابو خالد 12.rar
دغيدى قام بنشر مايو 6, 2009 الكاتب قام بنشر مايو 6, 2009 استاذى الجليل / نزار سليمان عيد أشكركم على تقديم العون وهذا من شيم الرجال أخوكم جمال دغيدى موجه أول بالتعلبم الزراعى
amhateb قام بنشر مايو 6, 2009 قام بنشر مايو 6, 2009 الأخ العزيز نزار بعد التحية أعجبتني فكرة وضع الدوائر الحمراء باستخدام قاعدة التحقق طبعا كلام جديد ولكني لم أجد كود في الملف المرفق بالمشاركة لكم رقم 12 هل من الممكن قليل من الشرح للتوضيح
safwatscc قام بنشر مايو 6, 2009 قام بنشر مايو 6, 2009 الاخ الفاضل والاستاذ الكريم ابو خالد شكرا على مجهوداتك معنا وكلنا استفدنا من هذه المشاركة ونريد تعديل بسيط وهو =M12>25 عندما تكون الدرجة 25 ايضا يعمل دائرة المطلوب لو اقل من 25 وهكذا لان الدرجة لو اقل من فقط وليس لو اقل من او يساوى وبارك الله فيك
دغيدى قام بنشر مايو 7, 2009 الكاتب قام بنشر مايو 7, 2009 الأخوة الكرام amhateb & safwatscc الكود M12>=25= ( أكبر من أو يساوى حتى لا يضع دائرة على 25 لانها صحيحة ) وللعلم لن يضع أكثر من 255 دائر الأولى فقط فى الشيت وسوف تظهر رسالة تخبرك بذلك أخوكم جمال دغيدى موجه أول بالتعلبم الزراعى
ابو اسامة العينبوسي قام بنشر مايو 7, 2009 قام بنشر مايو 7, 2009 السلام عليكم اخى ارسل لي المعايير كامله كل ماده على حدى
amhateb قام بنشر مايو 7, 2009 قام بنشر مايو 7, 2009 الأخ العزيز نزار بعد التحية أكرر أعجبتني فكرة وضع الدوائر الحمراء باستخدام قاعدة التحقق وهذه فكرة جديدة ولكني لم أجد كود في الملف المرفق بالمشاركة لكم رقم 12 وعلى ذلك وضعت الدوائر عند عدم تحقق الشرط هل من الممكن قليل من الشرح للتوضيح
ابو اسامة العينبوسي قام بنشر مايو 8, 2009 قام بنشر مايو 8, 2009 السلام عليكم الاخ Amhateb الكود في الورقه الاولى Dim DataRange As Range Dim c As Range Dim count As Integer Dim o As Shape On Error GoTo errhandler For Each o In ActiveSheet.Shapes If o.Name Like "InvalidData_*" Then o.Delete Next Set DataRange = Cells.SpecialCells(xlCellTypeAllValidation) count = 0 For Each c In DataRange If Not c.Validation.Value Then Set o = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) o.Fill.Visible = msoFalse o.Line.ForeColor.SchemeColor = 10 o.Line.Weight = 1 count = count + 1 o.Name = "InvalidData_" & count End If Next Exit Sub errhandler: End Sub
نزار سليمان عيد قام بنشر مايو 9, 2009 قام بنشر مايو 9, 2009 السلام عليكم الاخ Amhateb الكود في الورقه الاولى Dim DataRange As Range Dim c As Range Dim count As Integer Dim o As Shape On Error GoTo errhandler For Each o In ActiveSheet.Shapes If o.Name Like "InvalidData_*" Then o.Delete Next Set DataRange = Cells.SpecialCells(xlCellTypeAllValidation) count = 0 For Each c In DataRange If Not c.Validation.Value Then Set o = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height) o.Fill.Visible = msoFalse o.Line.ForeColor.SchemeColor = 10 o.Line.Weight = 1 count = count + 1 o.Name = "InvalidData_" & count End If Next Exit Sub errhandler: End Sub السلام عليكم عذرا اخي amhateb فانا غير متواجد على النت يومي الخميس والجمعه كما وضح اخي ابو اسامة الكود اعلاه يتم وضعه بالصفحة المراد عمل الدوائر عليها وتحديد الشرط من قاعدة التحقق من الصحة هذه الفكرة تم جلبها بواسطة الاخ عمودي من موقع مايكروسوفت واي استفسار حياك الله مجددا والشكر موصول للاخ ابو اسامة للتوضيح ابو خالد
safwatscc قام بنشر مايو 9, 2009 قام بنشر مايو 9, 2009 الأخوة الكرام amhateb & safwatscc الكود M12>=25= ( أكبر من أو يساوى حتى لا يضع دائرة على 25 لانها صحيحة ) وللعلم لن يضع أكثر من 255 دائر الأولى فقط فى الشيت وسوف تظهر رسالة تخبرك بذلك أخوكم جمال دغيدى موجه أول بالتعلبم الزراعى M12>=25= الاخوة الافاضل عندما قمت بالتعديل الى اكبر من اويساوى اشتغل كويس بس المشكلة ان الملف اصبح ثقيل عندما اقوم بوضع درجة ياخذ وقت للتنفيذ اى بطئ جدا مع العلم انة كانت شغالة كويس قبل وضع علامة = وشكرا
سمير نجار قام بنشر مايو 9, 2009 قام بنشر مايو 9, 2009 السلام عليكم ورحمة الله وبركاته بصراحة يا أخي صفوت انا جربت كود الدوائر مع قاعدة التحقق من الصحة مع الشرط المذكور على ملف جديد وكانت النتيجة رائعة مع العلم أنني جربته على 700 خلية وهو قابل للزيادة لاي عدد من الخلايا وليس 255 فقط وتسلم يد كل من اشتغل بهذا الكود وبارك الله بكم جميعا" والسلام عليكم تحياتي أخوكم سمير نجار
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.