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

هذا الكود بارك الله فيك من شقين : الاول : 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

موعدنا اليوم مع شرح طريقة كيف تعرف أسعار العملات اليوم بدون مغادرة برنامجك في VBA اوفيس 2003 أو 2007 أو 2010 أو 2013 أو 2016 أو 2019 سواء برنامج اكسس أو اكسل أو وورد أو باوربوينت مع التعرف على أكواد عملات العالم وكذلك اسماء العملات باللغة العربية والانجليزية التعرف على نسخ النص الموجود في مربع النص إلى الحافظة والكثير من المفاجآت اكتشفها بنفسك ثالثا لمن يريد تحميل الملف الذي تم استخدامه في الشرح يمكنكم التعليق سواء هنا في المدونة أو في اليوتيوب وسيصلكم رابط الملف بإذن الله والآن مع فيديو الشرح ************** ولا تنسوا أحبابي الدعاء لغيركم بظهر الغيب حتى يقول لك الملك: آمين ولك مثلها إن شاء الله وتذكر لو بخل بها غيرك ما وصلت إليك فشارك المعلومة مع جميع أصدقائك في جميع مواقع التواصل الاجتماعي ============ القادم أفضل بإذن الله

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

إلى كل أحبابي في الله الطلبة والطالبات والمعلمين والمعلمات واولياء الأمور يسعدني أن أقدم الحل الأمثل لحفظ كلمات الإنجليزية English vocabulary وذلك بمناسبة شهر رمضان المبارك أعاده الله علينا جميعا بالخير والبركات. هذه أكبر مشكلة تواجهنا في تعلم اللغات الأجنبية، ولكن بفضل الله مع هذا التطبيق، أصبح تعلم اللغة الإنجليزية متعة. وذلك بشهادة كل من جربه من الطلاب والمعلمين وأولياء الأمور. والحل في برمجة تطبيق يعمل على الموبايلات بنظام أندرويد وهو أول تطبيق لي يعتمد على قواعد البيانات بانتظار آرائكم وتعليقاتكم الحل الأمثل لحفظ كلمات الإنجليزية English vocabulary الجميل في الموضوع أن التطبيق يحتوي على قواميس لجميع الصفوف في المرحلة الابتدائية: الصف الأول الابتدائي الصف الثاني الابتدائي الصف الثالث الابتدائي الصف الرابع الابتدائي الصف الخامس الابتدائي الصف السادس الابتدائي تابع معي مميزات التطبيق من مميزات تطبيق English4primary سهل الاستخدام واجهة رسومية مناسبة لجميع الأعمال يعمل على جميع الأجهزة بنظام أندرويد Android يعمل بنظام اختبارات الاختيار من متعدد وكذلك كتابة الكلمة كاملة (للمستوى المتقدم) يمكن السؤال عن الكلمة باللغة العربية والاختيارات انجليزية أو العكس (السؤال بالانجليزية والاحتيارات باللغة العربية) وهذه الصورة تشرح استخدامات الأزرار والمكونات الموجودة في شاشة التطبيق وغيرها الكثير من المميزات اكتشفها بنفسك والآن مع رابط تحميل التطبيق اضغط هنا أو هنا أو من المرفقات وفي الأخير لا ينقصن سوى دعاؤكم لوالدي بالرحمة والمغفرة ولنا جميعا بالخير في الدنيا والآخرة ومشاركة هذه الصفحة مع جميع أصدقائكم انتظرونا فالقادم أفضل بإذن الله في رعاية الله وحفظه ولا تنس تقييم المنشور English4primary.rar

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