safwatscc قام بنشر أبريل 21, 2009 قام بنشر أبريل 21, 2009 الاخوة الافاضل بارك الله فيكم مطلوب عمل دائرة حمراء فى شيت باسم كذا والخلية مثلا a2 اذا قلت قيمتها عن كذ ا يبقى عليها دائرة حمراء والخلية الاخرى مثلا b3 اذا قلت قيمها عن كذا يبقى عليها دائرة حمراء علما بان الخلايا متفرقة على ان يكتب هذا فى الماكرو وينفذ عند فتح الملف مرفق ملف للايضاح وبارك الله فيكم Test.rar
safwatscc قام بنشر أبريل 21, 2009 الكاتب قام بنشر أبريل 21, 2009 (معدل) الاخوة الافاضل نسيت ان الملف به عددة ورقات عمل ارجوا ان يتم تنفيذ الماكرو على ورقة عمل فقط اكتب اسمها فى الماكرو تم تعديل أبريل 21, 2009 بواسطه safwatscc
نزار سليمان عيد قام بنشر أبريل 22, 2009 قام بنشر أبريل 22, 2009 السلام عليكم انظر للملف المرفق وان شاء الله يفيدك وهو من عمل احد الاخوة مع اضافة توضيح بسيط على الفورم مع الشكر ابو خالد _____2.rar
safwatscc قام بنشر أبريل 22, 2009 الكاتب قام بنشر أبريل 22, 2009 الاخوة الافاضل الملف المرفق اكثر توضيحا وهو احدى الاوراق فى برنامج كامل للكنترول المدرسى وسوف اقوم برفعه كاملا ان شاء الله على منتدانا الغالى حيث بة استدعاء البينات والدرجات كل مرة ل 10 طلاب راسبين اريد عمل دائرة حمراء على كل درجة اقل من رقم معين فمثلا اللغة العربية اذا قلت عن 40 يبقى عليها دائرة حمراء وهكذا لكل المواد وفى العشر شهادات اريد عن طريق كود ماكرو احدد فية مثلا العشر خانات المتفرقة بتاعة العربى ولو اقل من 40 يوضع دائرة فمثلا خانات العربى هى C12 C30 C48 C66 C84 C102 C120 C138 C156 C174 كل هذه الخلايا اذا قلت قيمتها توضع عليها دائرة حمراء وهكذا بالنسبة لباقى المواد ياريت تكونو فهمتو قصدى وبارك الله فيكم Test2.rar
نزار سليمان عيد قام بنشر أبريل 22, 2009 قام بنشر أبريل 22, 2009 السلام عليكم انظر للمرفق والكود من احد ابداعات اخي ابو اسامة حفظه الله مع الشكر ابو خالد Test2.rar
ابو اسامة العينبوسي قام بنشر أبريل 22, 2009 قام بنشر أبريل 22, 2009 السلام عليكم ممكن يكون هكذا ** اخر شهاده الاسم و رقم الجلوس صفر ؟؟؟!! لذلك نتيجتها خطأ Test3.rar
safwatscc قام بنشر أبريل 22, 2009 الكاتب قام بنشر أبريل 22, 2009 الاخوة الافاضل اعجز عن الشكر لكم وبارك الله فيكم وارجوا ان يسع صدركم بى ولكن للاسف انا مش قادر اوصل الفكرة بتاعتى واحاول الموضوع ان هذه الصفحة من الشيت قبل الطباعة بمسح جميع البيانات لان الشهادة بها البيانات مطبوعة في مطبعة جاهزة ينقصها فقط الدرجات التى يتم استدعائها فقط واضع فى الطابعة الشهادة المطبوعة وتوضع بها الدرجات والاسم فقط ويوضح الملف المرفق ذلك لذا المطلوب ان الخلايا وهى c12 ,c30 ,c48 ,c66,c84 ,c102,c120 ,c138,c156,c174 اذا قلت قيمتها عن 40 توضع بها دائرة وكذلك الخلايا وهى d12 ,d30 ,d48 ,d66,d84 ,d102,d120 ,d138,d156,d174 اذا قلت عن 30 توضع عليها دائرة وكذلك بالنسبة لباقى المواد لنفس الخلايا مع تغير الحرف e لو اقل من 20 f لو اقل من 30 G لو اقل من 20 H لو اقل من 10 i لو اقل من 10 J لو اقل من 160 لان دى خانة المجموع K لو اقل من 20 بارك الله فيكم ونفع بكم الامة وجعلة فى ميزان حسناتكم Test_New.rar
ابو اسامة العينبوسي قام بنشر أبريل 23, 2009 قام بنشر أبريل 23, 2009 وكذلك بالنسبة لباقى المواد لنفس الخلايا مع تغير الحرفe لو اقل من 20 f لو اقل من 30 G لو اقل من 20 H لو اقل من 10 i لو اقل من 10 J لو اقل من 160 لان دى خانة المجموع K لو اقل من 20 اين هي الاحرف من الشهاده !!؟؟
ابو اسامة العينبوسي قام بنشر أبريل 23, 2009 قام بنشر أبريل 23, 2009 وكذلك بالنسبة لباقى المواد لنفس الخلايا مع تغير الحرفe لو اقل من 20 f لو اقل من 30 G لو اقل من 20 H لو اقل من 10 i لو اقل من 10 J لو اقل من 160 لان دى خانة المجموع K لو اقل من 20 اين هي الاحرف من الشهاده !!؟؟
safwatscc قام بنشر أبريل 23, 2009 الكاتب قام بنشر أبريل 23, 2009 الاخ الفاضل بارك الله فيك وجعلك زخرا للاسلام والمسلمين الاحرف هى كل الخلايا ان الخلايا وهى c12 ,c30 ,c48 ,c66,c84 ,c102,c120 ,c138,c156,c174 اذا قلت قيمتها عن 40 توضع بها دائرة **************** الخلايا d12 ,d30 ,d48 ,d66,d84 ,d102,d120 ,d138,d156,d174 اذا قلت قيمتها عن 30 توضع بها دائرة ************** الخلايا e12 ,e30 ,e48 ,e66,e84 ,e102,e120 ,e138,e156,e174 اذا قلت قيمتها عن 20 توضع بها دائرة *********** الخلايا f12 ,f30 ,f48 ,f66,f84 ,f102,f120 ,f138,f156,f174 اذا قلت قيمتها عن 30 توضع بها دائرة الخلايا G12 ,G30 ,G48 ,G66,G84 ,G102,G120 ,G138,G156,G174 اذا قلت قيمتها عن 20 توضع بها دائرة الخلايا H12 ,H30 ,H48 ,H66,H84 ,H102,H120 ,H138,H156,H174 اذا قلت قيمتها عن 10 توضع بها دائرة الخلايا i12 ,i30 ,i48 ,i66,i84 ,i102,i120 ,i138,i156,i174 اذا قلت قيمتها عن 10 توضع بها دائرة الخلايا J12 ,J30 ,J48 ,J66,J84 ,J102,J120 ,J138,J156,J174 اذا قلت قيمتها عن 160 توضع بها دائرة الخلايا K12 ,K30 ,K48 ,K66,K84 ,K102,K120 ,K138,K156,K174 اذا قلت قيمتها عن 20 توضع بها دائرة
جلال محمد قام بنشر أبريل 23, 2009 قام بنشر أبريل 23, 2009 اخى الكريم / ابو اسامة السلام عليكم ماكرو الدوائر الحمراء في الملف جميل جدا جزاك الله خير وهو Sub test2() Dim cell As Range Dim cell2 As Range For Each cell In ActiveSheet.UsedRange If cell = "ÇááÛÉ ÇáÚÑÈíÉ" Then If cell.Offset(3, 0) < 40 Then Set v = ActiveSheet.Shapes.AddShape(msoShapeOval, cell.Offset(3, 0).Left, cell.Offset(3, 0).Top, cell.Offset(3, 0).Width, cell.Offset(3, 0).Height) v.Fill.Visible = msoFalse v.Line.ForeColor.SchemeColor = 8 v.Line.Weight = 1.25 End If End If Next cell End Sub والأمر المسئول عن وضع الدائرة للغة العربية هو If cell = "ÇááÛÉ ÇáÚÑÈíÉ" Then If cell.Offset(3, 0) < 40 Then كيف اطبقة مثلا على الخلية المجاورة ؟ او ما هو التعديل المطلوب على الماكرو ليعمل على الخلية المجاورة ؟ وشكرا لك
safwatscc قام بنشر أبريل 24, 2009 الكاتب قام بنشر أبريل 24, 2009 ان شاء الله خيرا هو الموضوع ان شاء الله سهل يتلخص فى لو هناك كود اقدر اقول فية لو الخلية مثلا a3 والخلية d3 لو قيمتها اقل من مثلا 30 توضع عليها دائرة و الخلية مثلا c4 والخلية e5 لو قيمتها اقل من مثلا 20 توضع عليها دائرة و نقوم فى الماكرو بالتعديل فى الخلايا والمقدار حسب كل مادة وكل درجة بحرية تامة وبهذا تكون كل مشاكل الدوائر اتحلت لان هتكون هناك حرية انى اختار الخلايا اللى انا عايزها والمقدار اللى انا عايزة وبارك الله فى كل من يساهم فى عمل ذلك
ابو اسامة العينبوسي قام بنشر أبريل 24, 2009 قام بنشر أبريل 24, 2009 (معدل) السلام عليكم تم بحمد الله نسيت تعديل لون الدائره لاحمر استبدل هذا السطر v.Line.ForeColor.SchemeColor = 8 بــــ v.Line.ForeColor.SchemeColor =10 Test4.rar Test45.rar تم تعديل أبريل 24, 2009 بواسطه ابو اسامة العينبوسي
نزار سليمان عيد قام بنشر أبريل 25, 2009 قام بنشر أبريل 25, 2009 اسف لم ارى ردك اخى نزار السلام عليكم لاداعي للاسف اخي الفاضل فمشاركتي جزء من ابداعاتك ولمساتك والتي اسال المولى عز وجل ان تكون في ميزان حسناتك واحببت ان اساعد الاخ safwatscc بها اخوك ابو خالد
safwatscc قام بنشر أبريل 25, 2009 الكاتب قام بنشر أبريل 25, 2009 الاخ الفاضل الاستاذ ابو اسامة الاخ الفاضل الاستاذ نزار لا اعرف كيف اعبر لكم عن ما فى قلبى تجاهكم والذى لا يوصف بالاحروف ولا بالكلمات والله اكن لكم كل تقدير واحترام وبارك الله فيكم ونفع بكم وبعلمكم الاسلام والمسلمين اللهم امين
safwatscc قام بنشر أبريل 25, 2009 الكاتب قام بنشر أبريل 25, 2009 الاخ الفاضل الاستاذ ابو اسامة الاخ الفاضل الاستاذ نزار ارجوا الا اثقل عليكم طلب اخير ارجو ان يكون فى المستطاع هل ممكن الدائرة تكون فى وسط الخلية اى نحدد لها cell.Left, cell.Top, cell.Width, cell.Height بحيث تكون فى وسط الخلية والاخوه الافاضل انا قمت باضافة للسطر دة واشتغلت والحمد لله بفضل مساعدتكم ولكن حاولت فى موضوع الحدود دى وفشلت cell.Left, cell.Top, cell.Width, cell.Height بحيث تكون فى وسط الخلية قمت باضافة الغياب فى السطر التالى If cell < x Or cell.Value = "Û" Or cell.Value = "ÛÜ" Then
safwatscc قام بنشر أبريل 25, 2009 الكاتب قام بنشر أبريل 25, 2009 الاخ الفاضل الاستاذ ابو اسامة الاخ الفاضل الاستاذ نزار ارجوا الا اثقل عليكم طلب اخير ارجو ان يكون فى المستطاع هل ممكن الدائرة تكون فى وسط الخلية اى نحدد لها cell.Left, cell.Top, cell.Width, cell.Height بحيث تكون فى وسط الخلية والاخوه الافاضل انا قمت باضافة لو الخلية غ او غـ ترسم دائرة واشتغلت والحمد لله بفضل مساعدتكم ولكن حاولت فى موضوع الحدود دى وفشلت cell.Left, cell.Top, cell.Width, cell.Height بحيث تكون فى وسط الخلية وجزاكم الله عنا خيرا
ابو اسامة العينبوسي قام بنشر أبريل 26, 2009 قام بنشر أبريل 26, 2009 Set v = ActiveSheet.Shapes.AddShape(msoShapeOval, cell.Left + 3, cell.Top + 3, cell.Width - 5, cell.Height - 5)
safwatscc قام بنشر أبريل 26, 2009 الكاتب قام بنشر أبريل 26, 2009 الاخ الفاضل ابو اسامة بارك الله فيك وجعلة فى ميزان حسناتك
safwatscc قام بنشر أبريل 27, 2009 الكاتب قام بنشر أبريل 27, 2009 الاخ علاء كود الدائرة موجود وجاهز من اعداد الاستاذ ابواسامة
safwatscc قام بنشر أبريل 29, 2009 الكاتب قام بنشر أبريل 29, 2009 الاخ الفاضل الاستاذ ابو اسامة الاخ الفاضل الاستاذ نزار ارجوكم تواجهنى مشكلة ان شاء الله الاخيرة فى رسم الدوائر وهى ربع الدرجة وهى ان الطالب اذا اخذت درجة كبيرة فى الترم الاول ودرجة الترم التانى لا تتعدى ربع الدرجة يكون راسب اذاى نحل الموضوع دة ممكن فية طريقة تانى انا عامل شرط اسفل الشهادة فية لو الطالب اخذ اقل من ربع الدرجة فى الترم الثانى حتى لو درجتة فى الترم الاول كبيرة تكتب المادة باسمها وذلك موجود فى الملف المرفق هل ممكن نعدل ماكرو الدوائر انة بحيث لو ظهرت المادة اسفل الشهادة يعمل دائرة على الدرجة بتاعتها المادة دى مها كانت كبيرة وكذلك بالنسبة لباقى المواد وبكدا نكون حلينا مشكلة ربع الدرجة وبارك الله فيكم واسف ان اثقلت عليكم بطلباتى Test6.rar
safwatscc قام بنشر أبريل 29, 2009 الكاتب قام بنشر أبريل 29, 2009 اساتذتى الافاضل باختصار لو الماكرو نفذ دة نقدر نحل مشكلة ربع الدرجة فى الملف السابق ارفاقة Test6 وهو لو قيمة الخلية C14 = اللغة العربية يرسم دائرة على الخلية C12 لو قيمة الخلية D14 = انجليزى يرسم دائرة على الخلية D12 لو قيمة الخلية E14 = الدراسات يرسم دائرة على الخلية E12 لو قيمة الخلية F14 = الرياضيات يرسم دائرة على الخلية F12 لو قيمة الخلية G14 = العلوم يرسم دائرة على الخلية G12 لو قيمة الخلية H14 = رسم يرسم دائرة على الخلية H12 لو قيمة الخلية I14 = المجموع يرسم دائرة على الخلية I12 لو قيمة الخلية J14 = دين يرسم دائرة على الخلية J12
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.