ابو اميرة قام بنشر أبريل 13, 2014 مشاركة قام بنشر أبريل 13, 2014 الرجاء المساعدة فى كيفية عمل دوائر للشهادات وكيفية حذفها الملف بالرفقات Book1.rar رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر أبريل 13, 2014 مشاركة قام بنشر أبريل 13, 2014 أخي الكريم أبو أميرة السلام عليكم شاهد المرفق هل هذا هو المطلوب ؟؟؟؟ Book1.rar رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر أبريل 13, 2014 مشاركة قام بنشر أبريل 13, 2014 السلام عليكم ورحمة الله وبركاته مرحبا بالاستاذ الفاضل// أبو اميرة كما اشكر الاستاذ // جلال محمد على محاولته ولكن هذه الطريقة لن تصلح في الشهادات لان الدوائر الحمراء لم تتغير مع تغير الشهادات ولكن هذا حل بنفس الكود ولكن قمت بعمل بعض التعديلات ليتم حذف الدوائر ثم اضافتها على الشهادات الجديدة وهي توضع في حدث الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) 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 Dim c As Range Dim MyRng As Range, V As Shape Dim x As Integer, G As Integer, r As Integer '================================================ G = 1 ' عمود رقم الجلوس r = 13 ' صف الدرجات Set MyRng = Range("D14:n44") ' نطاق الخلايا الذي تريد اضافة الدوائر فيها '================================================ x = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 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 = "غـ") 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 = 3 d = d + 1 End If 1 Next ActiveWindow.Zoom = x Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
ابو اميرة قام بنشر أبريل 16, 2014 الكاتب مشاركة قام بنشر أبريل 16, 2014 مشكور اخى الاستاذ محمد ابو البراء لكن الرجاء التطبيق على الملف المرفق ولك جزيل الشكر ولك منى كل تقدير واحترام لمجهودك وجعله الله فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر أبريل 16, 2014 مشاركة قام بنشر أبريل 16, 2014 بارك الله فيك أخي الكريم أبو اميرة كنت سافعل ذلك منذ البداية ولكني وجدت الملف المرفق ليس به الا ورقة واحدة وهي ورقة الشهادات وكان من المفروض ان تكون هناك ورقة الدرجات فلهذا اقتصرت فقط على وضع الكود دون التنفيذ لاننى لم استطع التجربة بشكل سليم.. رابط هذا التعليق شارك More sharing options...
ابو اميرة قام بنشر أبريل 17, 2014 الكاتب مشاركة قام بنشر أبريل 17, 2014 السلام عليكم ورحمة الله وبركاته شاكر لفضلك جدا استاذ محمد ابو البراء على اهتمامك بالموضوع واليك المرفق بورقة الدرجات والشهادات Book1.rar رابط هذا التعليق شارك More sharing options...
محمد على الجمال قام بنشر أبريل 17, 2014 مشاركة قام بنشر أبريل 17, 2014 جهد مشكور وطيب من اعضاء المنتدى الراقى لى طلب هو كيفية اظهار الشهادات كلها لتكون بشكل متتالى حيث انى مع دالة الفلوكاب تظهر عندى نموذج واحد واريد ان تظهر جميع الشهادات ولكم جزيل الشكر والتقدير رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر أبريل 18, 2014 مشاركة قام بنشر أبريل 18, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل // أبو أميرة تفضل الملف به ما اردت ولكن ملحوظة : هذه الطريقة لعمل الدوائر انا عن نفسي لا افضلها فلها بعض المشاكل وثقل في الملف الاستاذ الفاضل // محمد على الجمال مرحبا بك معنا في أول مشاركة لحضرتكم تشرفنا بك واما الرد على سؤالك فهذا الامر يتم تنفيذه عن طريق كود الطباعة اي اننا نقوم بتصميم الصفحة الاولى كما نريد ان تظهر في الورقة الفعلية ثم نقوم بجلب باقي الشهادات عن طريق الكود ولفهم المزيد اليك هذا الرابط http://www.officena.net/ib/index.php?showtopic=51714 Book1-bm.rar رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر أبريل 18, 2014 مشاركة قام بنشر أبريل 18, 2014 الأستاذ الفاضل / محمد أبو البراء السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا المجهود الرائع جعله الله في ميزان حسناتك.ولكن لي تسائل هل بالضرورة عمل دوائر للفصل الدراسي الأول لأنه لا يوجد رسوب او نجاح في الترم الأول المهم آخر العام هذا ما نطبقه في المرحلة الثانوية هل في الابتدائي يختلف ؟ لا ادري أرجو إفادتي بذلك للمعرفة فقط.. لك كل التحية والتقدير. رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر أبريل 18, 2014 مشاركة قام بنشر أبريل 18, 2014 وعليكم السلام ورحمة الله وبركاته والدتي الفاضلة // أم عبد الله وخيراً جزاك وانا سوف اتحدث عما اعلمه _والدتي الكريمة _ وهو التعليم الاعدادي و_ اعتقد_ ان التعليم الابتدائي كذلك الامر _ ليس هناك شي اسمه نجاح ورسوب في الترم الاول ولكن من الممكن وضع التقدير ( دون المستوى ). رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر أبريل 18, 2014 مشاركة قام بنشر أبريل 18, 2014 جزاك الله خيراً على هذا المجهود الرائع جعله الله في ميزان حسناتك.ولكن لي تسائل هل بالضرورة عمل دوائر للفصل الدراسي الأول لأنه لا يوجد رسوب او نجاح في الترم الأول المهم آخر العام هذا ما نطبقه في المرحلة الثانوية هل في الابتدائي يختلف ؟ لا ادري أرجو إفادتي بذلك للمعرفة فقط.. لك كل التحية والتقدير. وانا سوف اتحدث عما اعلمه _والدتي الكريمة _ وهو التعليم الاعدادي و_ اعتقد_ ان التعليم الابتدائي كذلك الامر _ ليس هناك شي اسمه نجاح ورسوب في الترم الاول ولكن من الممكن وضع التقدير ( دون المستوى ). السلام عليكم بعد اذن اخي محمد كلام حضرتك تمام .... ولكن في المرحلة الثانوية الصف الأول توجد ( 6 ) مواد الطالب يؤدي امتحان نصف العام في ثلاثة منهم وآخر العام في الثلاثة الباقية وكذلك الصف الثاني عنده ( 4 ) مواد وهذة المواد تعتبر منتهية بانتهاء الترم وبالتالي لابد من اعلام الطالب اذا كان ناحج ام راسب في هذة المواد علما انه يؤدي امتحانها في وقت امتحانات الدور الثاني تحياتي للجميع رابط هذا التعليق شارك More sharing options...
ابو اميرة قام بنشر أبريل 23, 2014 الكاتب مشاركة قام بنشر أبريل 23, 2014 شكراً لمجهودك أخ محمد أبو البراء لكن أين زر وضع الدوائر وزر حذفها وشكراً مع ملاحظة أن الشهادة الأخيرة من كل صفحة لاتظهر بها الدوائر كاملة وجعل الله هذا العمل فى ميزان حسناتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان