ADEL SAID قام بنشر يناير 7, 2012 مشاركة قام بنشر يناير 7, 2012 (معدل) السلام عليكم ورحمة الله وبركاته برجاء المساعد فى تصليح الخطاء الذى وفعت فيه اثناء عمل الشهادات مع مساعدتى فى وضع دوائر حمراء للمادة التى رسب فيها الطالب حسب النهايه الصغرى التى توجد فى الشهادة ولكم جزيل الشكر مرفق الملف شهادات 1ع.rar تم تعديل يناير 7, 2012 بواسطه ADEL SAID رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 8, 2012 مشاركة قام بنشر يناير 8, 2012 السلام عليكم تم اصلاح الخطاء كما تم إضافة كود العلامة خبور لوضع الدوائر الحمراء شهادات 1ع.rar رابط هذا التعليق شارك More sharing options...
ADEL SAID قام بنشر يناير 8, 2012 الكاتب مشاركة قام بنشر يناير 8, 2012 (معدل) السلام عليكم شكرا جزيلا استاذى الفاضل على المجهود الذى بذلته واتمنى ان يكون فى ميزان حسناتك ولى عند حضرتك نقطتين 1- ماهو الخطأ الذى وقعت فيه وتكرمت حضرتك وصلحته 2- طباعة الشهادات كاملة بالدوائر الحمراء ولك منى جزيل الشكر ووافر الاحترام تم تعديل يناير 8, 2012 بواسطه ADEL SAID رابط هذا التعليق شارك More sharing options...
ADEL SAID قام بنشر يناير 10, 2012 الكاتب مشاركة قام بنشر يناير 10, 2012 اريد دوائر حمراء على الدرجة للطالب التى توجد فى الشهادة. الراسب حسب القيمة الضعرى ولكو جزيل الشكر رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر يناير 10, 2012 مشاركة قام بنشر يناير 10, 2012 فضل اخى عادل ولكن الشهادات تحتاج إلى تعديل المدى والأعمدة رابط هذا التعليق شارك More sharing options...
ADEL SAID قام بنشر يناير 10, 2012 الكاتب مشاركة قام بنشر يناير 10, 2012 (معدل) شكرا يا استاذى / الفاضل الدوائر توجد فى شهادة والثانيه لاتوجد ارجو ا ان تكون الدوائر على كل الشهادات وشكر جزيلا تم تعديل يناير 10, 2012 بواسطه ADEL SAID رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 10, 2012 مشاركة قام بنشر يناير 10, 2012 السلام عليكم لقد تم اضافة حل هنا http://www.officena.net/ib/index.php?showtopic=40113 ولكنك قمت بفتح موضوع جديد لنفس الطلب والاولى كان هو الاستمرار في نفس الطلب لان فتح موضوعين لنفس الطلب مخالف لقواعد المشاركة لذا سيتم دمج المشاركتين رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 10, 2012 مشاركة قام بنشر يناير 10, 2012 شكرا يا استاذى / الفاضل الدوائر توجد فى شهادة والثانيه لاتوجد ارجو ا ان تكون الدوائر على كل الشهادات وشكر جزيلا على حد فهمي في هذا الكود Sub Circles2() Dim C As Range Dim MyRng As Range Set MyRng = Range("B8:M8,B19:M19,B30:M30,B41:M41,B52:M52,B63:M63,B74:M74,B85:M85") For Each C In MyRng ' عمود رقم الجلوس هو العمود 2 If Cells(C.Row, 2) = 0 Then GoTo 1 If C.Value < Cells(7, C.Column) Or C.Value = "غ" Or C.Value = "غـ" Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left, C.Top, C.Width, C.Height) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.25 End If 1 Next End Sub استبدله بهذا Sub Circles2() Dim C As Range Dim MyRng As Range Set MyRng = Range("B8:M8,B19:M19,B30:M30,B41:M41,B52:M52,B63:M63,B74:M74,B85:M85") For Each C In MyRng ' عمود رقم الجلوس هو العمود 2 If C.Value < Cells(7, C.Column) Or C.Value = "غ" Or C.Value = "غـ" Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left, C.Top, C.Width, C.Height) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.25 End If 1 Next End Sub رابط هذا التعليق شارك More sharing options...
ADEL SAID قام بنشر يناير 11, 2012 الكاتب مشاركة قام بنشر يناير 11, 2012 (معدل) شكرا وجارى التنفيذ تم تعديل يناير 11, 2012 بواسطه ADEL SAID رابط هذا التعليق شارك More sharing options...
ADEL SAID قام بنشر يناير 11, 2012 الكاتب مشاركة قام بنشر يناير 11, 2012 اخى أبو احمد لقد غيرت الكود ونفذ وبعد ذلك لم ينفذ ولم استطع علاج الموقف اليك الشهادة واسف لتكرار طلبى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان