cat101 قام بنشر يونيو 17, 2009 مشاركة قام بنشر يونيو 17, 2009 السلام عليكم في الورقة شهادة واحدة فقط استخدم الكود: كود Sub test2() Dim MyArray Dim MyCell As Range Dim V As Shape Dim X As Integer Dim C As Integer dell ' مسح الدوائر '================================================ MyArray = Array("اللغة العربية", "انجليزى", "الدراسات", "الرياضيات", "العلوم", "رسم", "المجموع", "دين") '================================================ X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For C = 0 To 7 Set MyCell = Cells(12, C + 3) If MyCell.Offset(2, 0).Value = MyArray© Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, MyCell.Left + 1, MyCell.Top + 1, MyCell.Width - 2, MyCell.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.25 End If Next ActiveWindow.Zoom = X Application.ScreenUpdating = True MsgBox "تم إضافة الدوائر بنجاح", vbMsgBoxRtlReading, "الحمدلله" End Sub ================================================ اذا كانت عدة شهادات سنضيف في الكود FOR ---NEXT لصفوف الشهادات المتبقية حسب شرط معين سنضيفه في احدى خلايا صف الدرجات ماسبق للعملاق خبور ونحن نطلب منه ان يرفق ملفا بسيطا في حالة عدة شهادات بالورقة 4 شهادات رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 17, 2009 مشاركة قام بنشر يونيو 17, 2009 السلام عليكم ونحن نطلب منهان يرفق ملفا بسيطا في حالة عدة شهادات بالورقة 4 شهادات ينفع ثلاث شهادات رابط هذا التعليق شارك More sharing options...
cat101 قام بنشر يونيو 18, 2009 الكاتب مشاركة قام بنشر يونيو 18, 2009 ينفع يا باشا رابط هذا التعليق شارك More sharing options...
cat101 قام بنشر يونيو 23, 2009 الكاتب مشاركة قام بنشر يونيو 23, 2009 للرفع والف شكر مسبقا رابط هذا التعليق شارك More sharing options...
tarek قام بنشر يونيو 23, 2009 مشاركة قام بنشر يونيو 23, 2009 مشكور ياغالى على الكود ياريت توضيح أين يوضع الأمر for next للشهادة الثانية واين يوضع للشهادة الثالثة مع أطيب تقديرى وإحترامى لشخصكم الكريم رابط هذا التعليق شارك More sharing options...
قصي قام بنشر يونيو 23, 2009 مشاركة قام بنشر يونيو 23, 2009 منتظرينك ياباشا لو سمحت موضوع المستوى شوف لنا حل لخ بحيث الواد اللي عنده دور تان لازم يكون دون المستوى غي الماده رابط هذا التعليق شارك More sharing options...
mhrrd قام بنشر فبراير 5, 2010 مشاركة قام بنشر فبراير 5, 2010 السلام عليكم <!--quoteo--><div class='quotetop'>إقتباس</div><div class='quotemain'><!--quotec-->ونحن نطلب منه ان يرفق ملفا بسيطا في حالة عدة شهادات بالورقة 4 شهادات<!--QuoteEnd--></div><!--QuoteEEnd--> ينفع ثلاث شهادات لماذا لم اجد المرفق ؟ هل ضاع من المنتدى رابط هذا التعليق شارك More sharing options...
mhrrd قام بنشر فبراير 5, 2010 مشاركة قام بنشر فبراير 5, 2010 محتاج الكود ده يااساتذه رابط هذا التعليق شارك More sharing options...
ahmed saker قام بنشر فبراير 6, 2010 مشاركة قام بنشر فبراير 6, 2010 محتاج الكود ده يااساتذه شكرا لك استاذنا الكريم وبالفعل نحتاج الكود لثلاث شهادات ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
علي سالم 75 قام بنشر فبراير 6, 2010 مشاركة قام بنشر فبراير 6, 2010 ده كود اضافة رابط الدوائر للاستاذ خبور خير http://www.officena.net/ib/index.php?showtopic=28585 ارجوا الانتباه الى المشاركة رقم 30 يوجد فيها المرفق المعدل وكود ترحيل الناجحين ودور ثاني ارجوا الانتباه الى المشاركة رقم 42 يوجد فيها ملف لعمل الشهادات واضافة الدوائر فيها رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.