العمري2

للرفع

للرفع

السلام عليكم للرفع

للرفع

السلام عليكم للرفع

السلام عليكم ورحمة الله وبركاته مساء الخير للجميع ابشركم اني عملت البرانامج وكان الفضل بعد الله لمعلمي الاستاذ الرائع عبدلله بولنوار فاله مني جزيل الشكر وعاطر الامتنان كم لا يفوتني ان اشكر اخي الحبيب الى قلبي الاستاذ ياسرخليل ابو البراء على مروره وتشريفه لموضوعي في المرفقات البرنامج اهداء لاخي عبدلله بولنوار ارجو ان ينال اعجابه واذا في ملاحظات اتمنى ان يطلعني عليها وشكر لمن زار الموضوع

السلام عليكم ورحمة الله وبركاته كيف حالكم اخوتي اعضاء منتدى اوفيسنا المحترمين عندي مسابقة في مادة الرياضيات وقد انتهيت بحمدلله من المرحلة الاولى , والآن انتقلت للمرحلة الثانية وقد طلبت في موضوع اخر موجود في هذا الرابط http://www.officena.net/ib/index.php?showtopic=60796&hl= وقد اجابني الاخ عبدلله بولنوار بملف مرفق وقد ارفقته في موضوعي هذا المطلوب اخوتي هو برنامج عن طريق الاكسل يقوم بإختيار المواجهات او المباريات ويكون بشكل عشوائي بين المرشحين في دور 32 ولكن عندي الية ابغاه يمشي عليها هذا الاختيار 1- اصحاب المركز الأول في التصفيات الأولية يقابلون اصحاب المركز الثامن من غير صفهم (بمعنى اخر صاحب المركز الاول مثلا في الصف الثالث لا يقابل زميله صاحب المركز الثامن في نفس الصف ) 2- اصحاب المركز الثاني يواجهون اصحاب المركز السابع من غير صفهم 3- اصحاب المركز الثالث يواجهون اصحاب المركز السادس من غير صفهم 4- اصحاب المركز الرابع يواجهون اصحاب المركز الخامس من غير صفهم واخيرا تقبلوا مني الشكر الجزيل واسف على الاطالة تصفيات.rar

السلام وعليكم اخوتي وصباح الخير لو تكرمتوا ارجو الرد على موضوعي وعلى الملف المرفق هل من الممكن عمله أم لا وشكرا لكم

الله يسعدك اخي ياسر ويوفقك في الدنيا والاخرة وكذلك اخي سليم صراحة اخجلتوني بتواضعكم وبحسن اخلاقكم ما اقدر اوفيكم حقكم لكن لكم دعوات بظهر الغيب

اشكر اخوي ياسر واخوي سليم على تشريفهم موضوعي وعلى مساعدتهم لي اخوي ياسر الكود اللي ارسلته هو الحل الذي كنت ابحث عنه الف شكر لك اخي بس صارت عندي مشكلة انه في خطأ في الصيغة وبالتحديد في Sub LoopThroughSheets() Dim rNumber As Long, I As Long, X As Long 'عدد مرات التكرار rNumber = 2 'بداية الثواني X = 10 For I = 1 To rNumber 'حلقة تكرارية لأوراق العمل For II = 3 To 5 Application.Wait (Now + TimeValue("0:00:" & X)) X = X + 5 Sheets(II).Select Next II X = 10 Next Sheet1.Activate هنا الخطأ لما حذفت هذا السطر ضبط معي الكود End Sub يعطيك العافية اخي ياسر اتمنى لك التوفيق اخي كما لا انسى ان اشكر اخي سليم على مساعدته لي واتمنى لك التوفيق

السلام عليكم ورحمة الله وبركاته مساء الخير لجميع اعضاء منتدى اوفيسنا الرائعين لوتكرمتوا اخوتي اريد الحلقة التكرارية للكود التالي Sub awad() "((Application.Wait (Now + TimeValue("0:00:10 Sheets(3).Select "((Application.Wait (Now + TimeValue("0:00:15 Sheets(4).Select "((Application.Wait (Now + TimeValue("0:00:20 Sheets(5).Select "((Application.Wait (Now + TimeValue("0:00:10 Sheets(3).Select "((Application.Wait (Now + TimeValue("0:00:15 Sheets(4).Select "((Application.Wait (Now + TimeValue("0:00:20 Sheets(5).Select وهذا الكود للانتقال بين اوراق العمل (الشيتات) تلقائيا انا اريدها تكون مستمرة وتتكرر وشكرا لكم جميعا

السلام عليكم ورحمة الله وبركاته اخي الحبيب عبدلله اشكرك على مرورك في موضوعي وعلى الملف المرفق كان البرنامج جميل جدا لكن انا اريد مثل هذي الفكرة التي موجودة في الملف المرفق واذا كان هناك تنسيقات احسن من التي عملتها ياليت اخي تفيدني عنها وتقبل تحياتي وشكري التصفيات النهائية.rar

الله يرضى عليك شكرا على التذكير قال تعال (وخلق الانسان عجولا)

السلام عليكم ورحمة الله غريبة 33 مشاهدة ولا احد يفيدني بشيء امر غريب تعودنا في هذا المنتدى التفاعل وعدم البخل بالمساعدة اتمنى من المشرفين الرد على موضوعي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اعضاء منتدى اوفيسينا المحترمين كانت لي مشاركة عبر منتداكم الرئع والذي افادني كثير في موضوعي المعنون برنامج اكسل لعمل مسابقة للطلاب في احتساب نقاط وهذا رابط الموضوع http://www.officena.net/ib/index.php?showtopic=60497 صراحة اشكر الاخ العزيز على قلبي عبدلله بولنوارالذي اجاب على اسئلتي بصدر رحب فاحببت في البداية ان اشكره بنسبة لاستفساري اليوم هو امتداد للبرنامج الذي استفسرت عنه وكان المرحلة الاولى الان اريد برنامج يتكون من خمسة ادور وهي دور ال32 ويكون فيه 32 طالب كل اثنين من الطلاب يتباريان والفائز ينتقل للمرحلة التي بعدها التي هي دور ال16 وبعده دور ال8 وبعده دور ال4 واخيرا الدور النهائي او المباراة النهائية واريد برنامج يختار المتبارين عشوائيا