نجوم المشاركات

هذا الكود بارك الله فيك من شقين : الاول : DoCmd.RunSQL "DELETE Tb_StatAbandons.ID FROM Tb_StatAbandons;" ووظيفته تفريغ الجدول Tb_StatAbandons من البيانات الاحصائية السابقة والثاني : DoCmd.RunSQL "INSERT INTO Tb_StatAbandons ( niveau, NbrTotaleEleves, MalKhanouni, FemKhanouni, FemTilkhai, MalTilkhai, Etablissement ) " & _ " SELECT Tb_donnéesEleveArchives.niveau, Count(DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] =[niveau]"")) AS TOT, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =1 "") AS MAN1, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =2 "") AS WOM1, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =2 "") AS WOM2, DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =1 "") AS MAN2, Tb_donnéesEleveArchives.niveau AS D " & _ " FROM Tb_donnéesEleveArchives " & _ " GROUP BY DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =1 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =2 And [sexe] =2 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =2 ""), DCount(""[IDEleves]"",""[Tb_donnéesEleveArchives]"",""[niveau] ="" & [niveau] & "" And [MouvmentEleves] =1 And [sexe] =1 ""), Tb_donnéesEleveArchives.niveau, Tb_donnéesEleveArchives.niveau;" وهو عبارة عن كود استعلام لجلب البيانات الاحصائية المطلوبة من الجدول Tb_donnéesEleveArchives والحاقها في الجدول Tb_StatAbandons في كل مرة تضغط فيها على موافق تتم مسح البيانات من الجدول ثم الحاق البيانات من جديد ... >>>>>>>>>>>>>>>>>>>>>

عليكم السلام ورحمة الله وبركاته على افتراض أن اكبر عدد أصفار هو 5 يمكنك استعمال هذه المعادلة =E4/IF(MOD(E4,100000)=0,100000,IF(MOD(E4,10000)=0,10000,IF(MOD(E4,1000)=0,1000,IF(MOD(E4,100)=0,100,IF(MOD(E4,10)=0,10,1))))) وإذا زاد العدد عن 5 يمكنك إضافة شرط في بداية المعادلة مع زيادة عدد الأصفار في mod وفي ناتج if إذا تحقق الشرط وزيادة أقواس الإغلاق وتم مراعاة ألا يكون العدد ينتهي بأصفار على اليمين بالتوفيق

جرب الملف واعلمنا بالنتيجة ....... KAN_Database31.rar

جرب هذا المرفق يجب تثبيت واتساب للكمبيوتر وربطه بحساب واتساب الخاص بك أولا ثم فتح الواتس اب قبل الضغط على زر الإرسال ثم الضغط على الزر المرتبط بماكرو الارسال سيتم الارسال لكل من هو مكتوب امامه تاريخ اليوم ولم يتم الارسال له من قبل (خلية تم الرسال فارغة) مع التنبيه على كتابة رقم الموبايل مع مفتاح الدولة ويمكن تشغيل الكود بمجرد فتح هذا الشيت (في خدث فتح الشيت worksheet_open) ولكن الأفضل بعد الضغط على الزر (فربما لم تفتح الواتس اب أو ربما يوجد بيان ناقص في البيانات) بالتوفيق برنامج الصيانة.xlsb

هل تريدها بهذا الشكل ....................

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

جزاك الله خيرا على الاطراء الذي لا استحقه ... رجم الله والديك ... الحمد لله رب العالمين ...

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

بارك الله فيك استاذ وجزاك الله الف الف خير مشكوووور

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

شكرا لك استاذ محمد وجزاك الله كل خير

شكرا جزيلا وبارك الله فيك اخي الكريم

عليكم السلام ورحمة الله وبركاته مادامت النتائج في النموذج صحيحة إذن ينبغي جعل معادلات الشيت مثل النموذج تم ضبط معزم معادلات الشيت في حالة وجود خطأ في البحث باستخدام Iferror وتم تعديل معادلات الخلايا H19 & I19 & L19 وإضافة معادلات في H20 & I20 ليتم الحساب بعد إضافة الدرجة مع الانتباه لضرورة حذف قيمة F20 في النموذج لأنها موجودة ضمن الراتب الخام L19 مع ملاحظة أن الخلية C19 دخلت في الحسابات مرتين في منحة التأهيل ومنحة الدعم مرة قبل الدرجة ومرة بعد الدرجة بالتوفيق vba 2023 office.xlsm

شكراً لك استاذ هو المطلوب فعلاً شكراً جزيلاً .

متشكر جدا أ/محمد ربنا يبارك فيك وفي علمك

تفضل جرب واعلمنا<><><><><><> سيت . كارتون.accdb

عليكم السلام ورحمة الله وبركاته يرجع السبب إلى وجود خلية بنفس الاسم في الامتدادات الحديثة xlsx و xlsm وغيرها حيث أنه من المعروف أن آخر خلية في اكسل 2003 وما فبله أو الامتداد xls هي IV65536 أما في اكسل 2007 وما بعده هي XFD1,048,576 والحل تغيير اسم الدالة المعرفة بإضافة _ (الشرطة السفلية اندر سكور) إلى نهاية الاسم ليصبح مثلا Function IRG2008_(soumis) واستعمال الدالة في الخلايا هكذا =IRG2008_(A1) أو استعمال 4 حروف في اسم الدالة المهم إيجاد اختلاف بين اسم الخلية واسم الدالة المعرفة بالتوفيق

عليكم السلام ورحمة الله وبركاته يمكنك استعمال معادلة الاستبدال التالية =SUBSTITUTE(B2,CHAR(10)," ") بالتوفيق

اخي الكريم . .. لا تعطي افضل اجابة حتى يتم الرد على سؤالك بشكل كامل مع كل ودي واحترامي لاستاذنا @kanory

اخي الكريم حتى لا تزعل من عدم الرد ..... كيف يتم التفريق بين : بقرار من مجلس التربية ( الانقطاع القانوني ) انقطاع تلقائي لكي تكون الاحصائية صحيحة ..... اين حقل الانقطاع في الجدول لديك .... انظر الصورة ::::::

تمام سلمت يداك اخى الحبيب

E8=VLOOKUP(D24,'بيانات المقترضين'!A2:K120,6,0) F18=VLOOKUP(D24,'بيانات المقترضين'!A2:K120,11,0) F17=VLOOKUP(D24,'بيانات المقترضين'!A2:K120,10,0) Copy of قيد السداد والفائدة_.xlsx

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

يمكنك استعمال هذه المعادلة في الخلية B3 =INDIRECT("'"&A3&"'!B2") تم استعمال الفاصلة المفردة بحيث إذا كان اسم الشيت يحتوي على مسافة وإذا لم يكن يحتوي على مسافة فيمكن اختصار المعادلة =INDIRECT(A3&"!B2") مع سحب المعادلة لأسفل بالتوفيق

اتفضل 1- تاريخ اخر اضطرارية =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='اضطرارية'"),"yyyy/mm/dd") 2- تاريخ اخر حافز =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='حافز'"),"yyyy/mm/dd") 3- تاريخ اخر مغادرة =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='مغادرة'"),"yyyy/mm/dd") 4- تاريخ اخر سنوية =Format(DMax("[التاريخ]","القطع1","[نوع الصرف] ='سنوية'"),"yyyy/mm/dd")

فكرة التقرير جيدة وكما قلت سابقا يمكن الاستغناء عنها بعمل فلتر وطباعة الصفحة ومادامت المدة تتجاوز الشهر فلابد من تسجيل بيانات جميع الشهور في شيت واحد مثلا all تم ضبط معادلة البحث وجمع بيانات الشهرين في شيت واحد بالتوفيق حضور وانصراف الموظفين - Copy (2).xlsx

مادام التقرير يخص موظفا في شهر معين فلا داعي للتقرير ويمكن الاعتماد على عملية التصفية (فلتر) في نفس شيت الشهر مع تعديل المعادلات لتتناسب مع المطلوب . تم ضبط مجموعة المعادلات في خلايا التأخير وما بعدها والتنسيق الشرطي ووضع معادلة ( إجمالي وعدد) الموظف المختار أو الكل حسب الفلتر ويمكن الاستغناء عن صف المجموع أسفل البيانات بالتوفيق حضور وانصراف الموظفين 111.xlsx

مرحبا بكم جميعًا أيها الأحبة الكرام ولله الحمد والمنة تم الانتهاء من عمل كل اللازم في الملف وأشكر أخي نزار على وقفته معي فقد فتح الله تعالى علي بعد محاولات عديدة استغرقت ساعات كثيرة. وهذا الملف بين أيديكم نسأل الله أن ينفع بنا. كشف الغياب - النهائي.xlsm

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

السلام عليكم ورحمة الله وبركاته تفضل اخوي العزيز .. تم تغيير الاجازة يوم الجمعة والسبت .. tf02780235_win321.xlsx

تفضل 1- يكون العمل فقط في الاعمدة (A,D,E) 2- الاعمدة باللون الاصفر تحوي معادلات 3- تم عمل قائمة منسدلة في العمود ( A ) لاختيار رقم الموظف اعتمادا على ورقة Sheet1 4- تم اضافة عمود (G) لبيان الحالة عند التجاوز على رصيد الاجازات رصيد الاجازات.xlsx

كان لديك خطأ في اسماء الحقول والخطأ الثاني أنك وضعت المجاميع في أسفل الصفحة و ليس في أسفل التقرير db1.rar