أسامة عطاالله

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

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

اخى واستاذى / محمد أبو البراء لدى استفسار بالنسبة لحالة الطالب ناجح - معيد اريد اضافة ثلاث حالات جديدة وهى 1- محروم ( وهذة الحالة يحرم فيها دخول امتحان الفصل الدراسى الثانى ويكتب تلقائى محروم في خانات درجات المواد في الترم الثانى ويتخطى الكتابة فيها ) 2- مفصول ( وهذة الحالة نفسها نفس المحروم ولكن يوجد اختلاف هو انة يمكن ان يتغير حالة الطالب اذا اعيد قيدة ) 3- سحب الملف ( وهذة الحالة اريد حذف الاسم من الشيت برقم جلوسة بمعنى لو الطالب الى قبلة رقم جلوسة 100 وهو 101 يبقى الطالب الى بعدة 102 كما هو وليس 101 ) اريد المعادلة او الدالة التى اكتبها اسف جدا على الاطالة وشاكر تعبك جدا وجزاك الله خيرا على اعمالك المميزة تقبل تحياتى

شكرا لك على البرنامج الرائع ممكن المساعدة في كيفية حساب من يستحق رفع الاجور المتغيرة " بمعنى بدل ان نختار نعم او لا يدوى البرنامج هو الى يحسب من يستحق رفع الاجور المتغيرة وهى حد اقصى 19080 ويوجد شى اخر اسمة متمم في المكافاة هل لديك اى فكرة عن طريقة حسابة ولكم جزيل الشكر

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

لا يوجد كلمات تصف شكرى وتقديرى لمجهودك شكرا جزيلا اخى واستاذى حل رائع

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

السلام عليكم ارجو المساعدة في ترحيل الى صفحات بناء على بيانات فى عامود ترحيل الاسم والوظيفة والدرجة والاساسى بناء على العمود c ( الوظيفة ) الى صفحات كل منهم على حدا ملحوظة المعلمين تشمل معلم مساعد و معلم و معلم أ و معلم أ أ و خبير و كبير من شيت (اساسية خزنة 1 ) الى الاداري فى صفحة الادارى المعلمين فى صفحتهم العمال فى صفحة العمال بدون مسح البيانات في اساسية خزنة 1 ويكون الترحيل تلقائى بدون ازرار بمعنى عند اختيار ادارى يرحل الى شيت الادارى الملف مرفق بة توضيح ولكم جزيل الشكر والتقدير على المجهود المبذول للتعديل.rar

اخى واستاذى الفاضل / ناصر المصرى شكرا جزيلاً لمجهودك تم بحمدالله شكرا لى استفسار اخى العزيز عن دالة ROUND يوجد منها ثلاث ROUNDup ودون ما الفرق بين الثلاث

شكرا لمروركم الكريم زمزم / أم عبد الله أم عبد الله / الجمع بدون دالةTRUNC عطى نفس الناتج هل يوجد طريقة لتصحيح هذا الصورة المرفقة في عمود الاسحقاقات جمعهم بالالة غير الاكسيل وغير الدالة ولا يتم تغير شى

السلام عليكم هذا الملف من اعمال اساتذة هذا الصرح الرائع وقمت بتعديل بعض الاشياء لكى يفى بالغرض ولكن قابلت مشكلة في التجميع وتقريب الارقام عند التجميع بالالة يعطى ناتج مختلف عن تجميع الاكسيل كشف خزينة 1 عمود جملة الاستحقات مشكلة فى التجميع فى تجميع الالة الحاسبة =30326.43 فى الاكسيل =30326.40 ومرفق الملف بالاسفل اسف للاطالة للتعديل.rar

أستاذي العزيز : محمد أبو البراء شكرا لمجهودك المتواصل في شيت التعليم الفني لا توجد كلمات لشكرك وتقديرك على المجهودات المبذولة واعمالك الرائعة تقبل تحياتي

اختى الفاضلة / ام عبدالله الف مبروك الترقية

شكرا جزيلا اخى واستاذى الفاضل

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

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

السلام عليكم عند كتابة اى رقم تظهر بالطريقة المرفقة اريد كتابتها بهذة الطريقة 1.49727273 اريد معرفة تنسيقها لان عند تغير اى رقم فى المكتوب صحيح بيظهر مربعات شكرا جزيل ارقام وفواصل عشرية.rar

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

تفضل اخى ومرفق صورة للكود وفية اسم الفلدر ومكان الدريف d الدريف المراد التخزين فية osama اسم الفلدر اعمل فلدر فى الدريف الذى تراة وغير الاسم فى الكود والمكان على حسب ما تراة o11.rar

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

شكرا اخى ولكن عند التجربة تعطى الصورة الاتية o2.rar

مجهود رائع اخى العزيز / إبراهيم ابوليله جعلة الله فى ميزان حسناتك طمعان فى كرم حضرتك اريد اضافة التاريخ لاسم الملف ومرسل كود بة اسم الملف والكود بس الكود دة عيبة الوحيد انة بيكرر الحفظ بمعنى كل ما افتح الملف واقفل بيعمل نسخ احتياطى للملف فكنت ارغب باخذ فكرة التاريخ واضافتة فى الكود الذى قدمتة حضرتك لان الكود الذى عدلت علية حضرتك لا يكرر النسخ وبيمسح الملف الاول اسف للاطالة Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save Shell "cmd.exe /C copy " & """" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & """" & " " & """" & "D:\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-AMPM-") & ThisWorkbook.Name & """", 0 End Sub شكرا لجهودكم المبذولة اخوتى واساتذتى الكرام

للرفع

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

السلام عليكم هذا الكود من عمل ا/ احمد حمور-ابوعبدالله اريد تعديل بة اضافة جزئية اخرى للكود وهى انة يعمل نسخة احتياطية دون الضغط على اى ازرار فقط عند الضغط على علامة اكس فى البرنامج يعمل نسخة احتياطى ويحفظ فى نفس الوقت وتاريخ الحفظ ولا تظهر رسائل ( حفظ وعمل نسخة احتياطى وكتابة التاريخ ) Private Sub CommandButton1_Click() Dim msg As String Dim ans As Integer Dim ahmad As String, hamoor As String msg = "åá ÊÑÛÈ ÈÚãá äÓÎÉ ÇÍÊíÇØíÉ¿" ans = MsgBox(msg, vbYesNo) If ans = vbYes Then ahmad = "c:\ahmad 1\" & ThisWorkbook.Name ThisWorkbook.SaveCopyAs ahmad hamoor = "d:\ahmad 2\" & ThisWorkbook.Name ThisWorkbook.SaveCopyAs hamoor Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit Else Application.DisplayAlerts = False ThisWorkbook.Save Application.Quit End If End Sub لكم جزيل الشكر نسخه احتياطيه.rar