Mohammed Elghready

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

برنامج كنترول امتحانات للمرحلة الاعدادية مضافا اليه التربية الرياضية سهل التعامل وغير معقد والشكر موصول لعظماء هذا المنتدي الذين قامو بعمل الاكواد التي ساعدتني على اتمام العمل بغية المنفعة لاساتذة التعليم لانجاز نتائج الامتحانات البرنامج اصدار اول ارجوا تجربته وابلاغي باي خلل لاصلاحه ان شاء الله والرابط خارجي لكبر حجم الملف عن المسموح به ولكن الملف بحجم 1.3 ميجا http://www.mediafire.com/file/vw91gcomxpnz4ys/%D9%83%D9%86%D8%AA%D8%B1%D9%88%D9%84_%D8%A7%D9%84%D9%86%D8%AC%D8%A7%D8%AD.rar/file

قمت بتحميل الملف وجاري تطبيقه شكرا لك علي ما بذلته جعله الله في ميزان حسناتكم

الاخوة الافاضل مبدعي هذا المنتدي العظيم هذا ملف حملته من المنتدي فيه كود للعلامة عبد الله باقشير بخصوص ترحيل الناجحين والدور الثاني واستخدمته في ملف خاص بي واردت ان تكون صفحة الدور الثاني بها سطر فارغ قبل البيانات للعمل عليها في امتحانات الدور الثاني فعدلت السطر في الكود m=m+1 الي m+2 واتت النتائج كما اريد ولكن الترقيم التلقائي اصبح اعداد زوجية 2,4,6,وكذلك الصندوق الحواري الذي يظهر بعد تمام الكود يضاعف عدد الترحيل فهل اجد حلا لذلك عند احدكم شكرا لكم .... تــم تعديل رفــع الملف , من فضلك لا تقوم برفع الملف مضغوط طالما حجمه صغير كشف درجات الصف الثاني الابتدائي_5.xls

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

بارك الله فيك وبارك في علمك وزادك علما ونفع بك اتعبت نفسك ربنا يجعله في ميزان حسناتك............... ولي سؤال لو سمحت كيف اتعامل مع المعادلات ان كانت من صفحات اخري مثال : او غيرها =IF('بيانات اساسية'!$C6="";"";'بيانات اساسية'!$C6) او =CONCATENATE(MAIN!$H$6;" ";MAIN!$K$6) وانظر ماذا فعلت انا بناء علي توجيهاتك وقل لي رايك الشيت &الرئيسي.rar

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

الاخوة الاعزاء مبدعي هذا المنتدي العظيم الشكر موصول للجميع علي ما تبذلوه من جهد لوجه الله تعالي .... وبعد & هذه ورقة شيت هي الورقة الرئيسية في برنامج كنترول وبها عدد كبير من المعادلات من شانها ان تثقل البرنامج وتكبر حجمه كما انني اخشى العبث بها فتاتي بنتائج غير صحيحةفهل توجد طريقة لتحويل هذه المعادلات الي اكواد vba وشكرا مقدما لاسهاماتكم .. دمتم في صحة وستر من الله الموضوع مكرر في كل مادة يعني لو تكرم احدكم بوضع كود لاحد المواد انا اكمل ان شاء الله .... هذه دالة =IF(OR($H8="";$G8="");"";IF(AND($H8="غ";$G8="غ");"غ";SUM($H8;$G8))) وهذه دالة اخري =IF($N8="";"";IF($N8="غ";"غ";CEILING($N8*80/100;0.5))) الشيت الرئيسي.rar

شكرا لسرعة الاستجابة كما عهدناكم كرماء شاكر لمجهودكم اخي الكريم عبد الله دمتم بخير

الاخوة مبدعي المنتدى المتميز سلام الله عليكم ، انا بصدد عمل برنامج كنترول للمرحلة الاعدادية " النقل " علي اخر تعليمات للوزارة " باضافة التربية الرياضية كمادة مستقلة " وواجهتني اول مشكلة في شيت " توزيع الطلاب علي اللجان " واستخدمت في ذلك كود للعلامة " عبد الله باقشير " ولكن لعدم تمكني من VB لم يعمل معي الكود ولم اتمكن من معرفة مكان التعديل ليعمل الكود ارجوا من حضراتكم تعديل الكود ليعمل حسب معطيات الشيت 2 ، وزيادة منكم في التفضل ياريت شرح عمل الكود شرحا دقيقا وافيا حتي نتمكن من استخدامه في اماكن اخري وشكرا لكم علي جزيل العطاء وفقكم الله كنترول 2021.xlsb

ما كل هذا الجمال استاذ سليم حاصبيا جعله الله في ميزان حسناتك شئ رائع حقا .. اكن لك كل احترام وتقدير 💚💯

شكرا لك استاذي علي التوضيح ..... ماذا ان اردت عدم ظهور ( مقبول وغير مقبول ) في شيتات الترحيل وما معني شكرا لك استاذنا الكبير علي التوضيح الجيد .... ماذا لو اردت عدم ظهور( مقبول وغير مقبول ) في صفحات الترحيل وما معني Rg.SpecialCells(12) ارجو ان يسعني صدرك فانا اريد التعلم منك شكرا لك استاذ سليم حاصبيا

احترامي لك استاذي العزيز سليم حاصبيا الكود يعمل بسرعة عالية عن الكود السابق.. لكن يا ريت تشرح لي الية عمل الكود لاني مش فاهمه علشان استعمله في اماكن اخري وكمان لاني اريد عدم ظهور كلمة ( مقبول وغير مقبول ) في صفحات الترحيل الكود ممتاز وسريع جدا تسلم ايديك بلغك الله من العلم المزيد وجعله في ميزان حسناتك Sub transfer_data() Dim D As Worksheet, sh As Worksheet Dim Rg As Range Dim arr(), arr_sh() Dim i As Byte Application.ScreenUpdating = False arr = Array("مقبول", "غير مقبول") arr_sh() = Array("المقبولين", "غير المقبولين") Set D = Sheets("DATA"): Set Rg = D.Range("C5").CurrentRegion For i = 0 To 1 Sheets(arr_sh(i)).Range("C5").CurrentRegion.ClearContents Rg.AutoFilter 8, arr(i) Rg.SpecialCells(12).Copy Sheets(arr_sh(i)).Range("c5").PasteSpecial (11) Next D.Select If D.AutoFilterMode Then Rg.AutoFilter Application.ScreenUpdating = True End Sub شكرا لك استاي العزيز سليم حاصبيا ارجوا تلبية طلبي وعدم تجاهله من باب زكاة العلم

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

شكرا لك استاذنا الكبير /سليم حاصبيا ... علي الرد الوافي الكافي وعلي سرعة الاستجابة وبالنسبة للملف حجمه كبير ولم استطع رفعه ولكن حسن استجابتكم جعلتني اطمع في كود لطباعة صفحة المقبولين مع ضبط الهوامش علي ورق a4 فان كان في الاستطاعة فلكم الشكر وان لم يكن فقد كفيتم ووفيتم