العمري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 واخيرا الدور النهائي او المباراة النهائية واريد برنامج يختار المتبارين عشوائيا

هل من من احد يجيب على استفساري

السلام عليكم ورحمة الله وبركاته كلما اتصف موضوع من مواضيع المنتدى يوديني لهذي الصفحة www.officena.net Driver Error There appears to be an error with the database. If you are seeing this page, it means there was a problem communicating with our database. Sometimes this error is temporary and will go away when you refresh the page. Sometimes the error will need to be fixed by an administrator before the site will become accessible again. You can try to refresh the page by clicking here

ياليت ياخوان تفيدوني في الانتقال التلقائي بين الشيتات وان يتكرر هذا الانتقال بشكل مستمر بحيث اذا انتها الانتقال بين الورقات يبدأ من جديد بدون ما اضغط امر معين يقوم بإعادة الانتقال وشكر لكم

ياليت ياخوان تفيدوني في الانتقال التلقائي بين الشيتات وان يتكرر هذا الانتقال بشكل مستمر بحيث اذا انتها الانتقال بين الورقات يبدأ من جديد بدون ما اضغط امر معين يقوم بإعادة الانتقال وشكر لكم

ارجوا من احد الاعضاء لوكان عنده حل فياليت يفيدني وشكرلكم

انتظرك اخي عبدلله

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

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

اللحين شيكت عل جميع الخلايا خلال الاسابيع الست لقيته الشريحتين اللي فيها المشكلة وهي شريحة الصف الخامس وشريحة الصف1(2)

السلام عليكم جميعا وتحية خاصة لاخي عبدلله اخي عبدلة عندي مشكلة في الملف اللي ارسلته لك وتحديدا في الشريحة المسماة بالصف الخامس والمشكلة بضبط في الخلية H11 لما يكون المجموع من عشرة وفوق مايعطيني رقم يعطيني هذي العلامة # كيف احل هذي المشكلة الطلب الثاني ابغى يكون هناك انتقال تلقائي بين الشرايح اللي في الملف بزمن انا احدده وشكرا لك