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 شهادات
عبدالله باقشير قام بنشر يونيو 17, 2009 قام بنشر يونيو 17, 2009 السلام عليكم ونحن نطلب منهان يرفق ملفا بسيطا في حالة عدة شهادات بالورقة 4 شهادات ينفع ثلاث شهادات
tarek قام بنشر يونيو 23, 2009 قام بنشر يونيو 23, 2009 مشكور ياغالى على الكود ياريت توضيح أين يوضع الأمر for next للشهادة الثانية واين يوضع للشهادة الثالثة مع أطيب تقديرى وإحترامى لشخصكم الكريم
قصي قام بنشر يونيو 23, 2009 قام بنشر يونيو 23, 2009 منتظرينك ياباشا لو سمحت موضوع المستوى شوف لنا حل لخ بحيث الواد اللي عنده دور تان لازم يكون دون المستوى غي الماده
mhrrd قام بنشر فبراير 5, 2010 قام بنشر فبراير 5, 2010 السلام عليكم <!--quoteo--><div class='quotetop'>إقتباس</div><div class='quotemain'><!--quotec-->ونحن نطلب منه ان يرفق ملفا بسيطا في حالة عدة شهادات بالورقة 4 شهادات<!--QuoteEnd--></div><!--QuoteEEnd--> ينفع ثلاث شهادات لماذا لم اجد المرفق ؟ هل ضاع من المنتدى
ahmed saker قام بنشر فبراير 6, 2010 قام بنشر فبراير 6, 2010 محتاج الكود ده يااساتذه شكرا لك استاذنا الكريم وبالفعل نحتاج الكود لثلاث شهادات ولك جزيل الشكر
علي سالم 75 قام بنشر فبراير 6, 2010 قام بنشر فبراير 6, 2010 ده كود اضافة رابط الدوائر للاستاذ خبور خير http://www.officena.net/ib/index.php?showtopic=28585 ارجوا الانتباه الى المشاركة رقم 30 يوجد فيها المرفق المعدل وكود ترحيل الناجحين ودور ثاني ارجوا الانتباه الى المشاركة رقم 42 يوجد فيها ملف لعمل الشهادات واضافة الدوائر فيها
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.