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

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

ممكن ذلك شاهد هذا الملف (العملية تتم عند كبسة اليمين وليس دوبل كليك في نطاق محدد ) كله قابل للتغيير حسب المطلوب Right_Click.xlsm

احسنت التعبير ،،،

أسف أخي الكريم ..... ولكن ما الحكمة من وجود الصورة المطلوبة .... لأن معرفة السبب يجعلنا البحث عن طريقة لذك ؟؟؟؟

وعليكم السلام ورحمة الله وبركاته أنظر المرفق ...... برنامج أدارة المتدربين.mdb

اكثر من رائع احي بن علية\ بقي شيء واحد يجب اتمامه وهو حماية الخلايا غير الفارغة من الشيت المذكور لعدم التلاعب بالنتائج من قبل الفضوليين (اذ يجوز ان يقوم اجدهم بحذف الغياب لنفسه او لأحد اخر) او يمكن ان يتم ذلك عن طريق خطا غير مقصود من قبل المستخدم يمكن الاستعانة بالكود في مشاركتي على هذا العنوان https://www.officena.net/ib/topic/84508-حماية-الخلايا-غير-الفارغة-بواسطة-باسوورد/

وعليكم السلام ورحمة الله وبركاته استخدم في حدث عند التحميل او الفتح الكود التالي: DoCmd.GoToRecord , , acLast

Application.SetOption "Auto compact", True

جرب هذا الكود Option Explicit Sub give_data() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim arr(), m%: m = 1 Dim k%, i% Dim st$ Dim x% Dim Source_sh As Worksheet: Set Source_sh = Sheets("Data") Dim targ_sh As Worksheet: Set targ_sh = Sheets("Data1") targ_sh.Range("e4").CurrentRegion.Offset(1).ClearContents k = Source_sh.Range("d4").CurrentRegion.Rows.Count + 3 For i = 5 To k If Application.CountIf(Source_sh.Range("F5:F" & i), Source_sh.Range("F" & i)) = 1 Then ReDim Preserve arr(1 To m): arr(m) = Source_sh.Range("F" & i) m = m + 1 End If Next targ_sh.Range("E4").Resize(m - 1) = Application.Transpose(arr) For m = LBound(arr) To UBound(arr) For i = 5 To k If Source_sh.Range("f" & i) = arr(m) Then st = st & Source_sh.Range("G" & i) & Chr(10) End If Next st = Mid(st, 1, Len(st) - 1) targ_sh.Range("f" & m + 3) = st targ_sh.Range("f" & m + 3).WrapText = True st = "" Next x = Application.Max(targ_sh.Range("B:B")) + 3 targ_sh.Range("d4:d" & x).Formula = _ "=INDEX(Data!$E$5:$E$500,MATCH(E4,Data!$F$5:$F$500,0))" targ_sh.Range("G4:G" & x).Formula = _ "=INDEX(Data!$H$5:$H$500,MATCH(E4,Data!$F$5:$F$500,0))" targ_sh.Range("H4:H" & x).Formula = _ "=INDEX(Data!$I$5:$I$500,MATCH(E4,Data!$F$5:$F$500,0))" targ_sh.Range("I4:I" & x).Formula = _ "=INDEX(Data!$J$5:$J$500,MATCH(E4,Data!$F$5:$F$500,0))" targ_sh.Range("d4:I" & x).Value = targ_sh.Range("d4:I" & x).Value Erase arr With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub بالنسبة للجدولين في الورقة الاولى تم عمل المعادلات للجدول الاول فقط (لضيق الوقت) يمكن عمل المعادلات للجدول الثاني بنفس الصيغة الملف مرفق Data _salim.xlsm

ملف جيد و الى الامام لكن ارجو تقبل بعض الملاحظات: 1- لا ضرورة لتحميل ملف كبير بهذا الشكل يكفي ملف صغير مختصر 20 الى 30 صف (نموذج ) والذي يريد اضافة معلومات يكون الامر متاحاً له 2- لا ضرورى لادراج التواريخ يدوياً في كل صفحة من صفحات الشهور (يكفي عمل نسخات (12 نسخة) عن الورقة Salim من هذا الملف واختيار الشهر والسنة و بوم العطلة في كل نسخة) ثم تسمية هذه الصفحات باسماء الشهور اذا اردت ليقوم اكسل بادراج التواريخ ألياً (كما في الصفحة Salim) مع حساب الشهر 28و29و30 أو 31 و تاوين يوم العطلة كما تحدده في الخلية A3 3 -هذه الورقة صالحة لكل الاعوام الدراسية (يكفي تغيير السنة فقط من الخلية A1) في كل صفحة من صفحات الشهور الملف (كنموذج) مرفق كشف Salim.xlsm

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

بداية كل عام وانتم والأمة العربيّة والاسلامية بخير طلب مني احد الأصقاء تنظيم الديون في محله لمعرفة كل زبون ما عليه بالاضافة الى جرد ديون زبون محدد (حسب الاختيار من قائمة منسدلة) فكان هذا الملف الذي عسى ان يستفيد منه اكبر عدد من الأعضاء ورقة العمل محمية لعدم العبث بالمعادلات عن طريق الخطأ في الملف (بدون باسبوورد) تستطيع الكتابة فقط في العامودين C & D حتى الصف رقم 100 و استخدام القائمة المنسدلة في الخلية F2 لتوسيع نطاق العمل يجب التعديل على المعادلات و هذا شيء بسيط لمن يريد نطاق أكبر للعمل الأسماء في جدول الجرد مرتبّة حسب قيمة الديون تنازلياً (وهنا المعادلات تلعب دورها) اذ انه ليس مجرد SumIfs القائمة المنسدلة في F2 "مطاطة" بمعنى انها: 1-تتجاهل الفراغات 2- لا تذكر الاسم المكرر الا مرة واحدة 3- تستجيب لاي تعديل او تغيير في الجدول الرئيسي Salim_Sum WITH PROTECTION.xlsx

تفضلى هذا ملف به حماية الورقة من الحذف حماية ورقة من الحذف.xlsm

السلام عليكم وهذا حل آخر للمطلوب الجديد حيث تم التعديل على الملف مرة أخرى... أولا تم ترتيب الشهور بداية من الشهر 8 إلى 12 للعام الأول (2018) ثم من الشهر 01 إلى الشهر 07 للعام الثاني (2019) مع تعديل كل المعادلات للتتناسب مع هذه التغييرات... وثانيا فيما يخص العطل الأخرى خلال العام الدراسي يمكن إضافة تواريخها في العمود A بداية من الخلية A16 وستدرج في الجدول تلقائيا مع تنسيق شرطي (التلوين بالأزرق لأعمدتها حسب كل شهر) ولا يهم ترتيبها... تم إضافة كود أخي الكريم سليم الذي يخص "كليك يمين" حسب ملاحظاته... أرجو أن تفي الغرض المطلوب. أخوكم بن علية كشف _hben.xlsm

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

وعليكم السلام ورحمة الله وبركاته لم يعمل معي المثال بشكل صحيح نقص في المكتبات عموماً جرب الكود التالي: =DSum("[Alkmiah]","Hrakatsanf","[Atarih]=t")

نصيحتي لك أجعل لبرنامج نموذج بحث خاصة ... غير أداة البحث الموجودة في الاكسس .... ابحث في المنتدى تجد صور عديدة منها ....

أنا لست المبرمج ولكن ناقل للموضوع .... أدخل على الموضوع السابق وتواصل معه ...

شكرا لك اخي الكريم و بارك الله فيك و زادك الله من العلم و البركة

حياك الله .... أنظر الصورة .... الحمد لله رب العالمين

بارك الله فيك استاذي الفاضل بسملةجمال جزاك الله خيرا وجعله الله في ميزان اعمالك يارب

اتمنى ان يكون هذا العمل يلبي طلبك العميل.accdb

وعليكم السلام احذفي البيانات من الجدول بعد ذلك اعملي ضعط واصلاح لقاعدة البيانات فقط وسيعود الترقيم من البداية ::بالتوفيق::

شكرا لك اختي وجاري التجربة

الحقل المحسوب داخل الجدول لايعتمد القيمه الافتراضيه ::بالتوفيق::

شكرا يا استاذة بسمه بالفعل هذا الحل ممتاز

بارك الله فيك ورحم والدك بعض خصائص الازرار في النماذج بالقاعدة تعتبر ميزات جديدة على اصدار 2003 الجمعيات الخيرية.mdb

رائع جدا جدا.. دائما مبدع يعجز لساني عن الشكر. تماما نفس المطلوب بالضبط

كل المحبة والاحترام حاولت وما قدرت يا ريت حدا من الاخوان يكون يستعمل 2010 او 2007 يمكن التحويل يكون سهل لكن انا استخدم 2016

جزيت الخير يا أخي الفاضل على سرعة الاستجابة قال رَسول الله صلى الله عليه وسلم: «مَن قَضَى لأَخِيهِ المُسلِمِ حاجَةً كان لَهُ مِنَ الأَجرِ كَمَن حَجَّ واعتَمَرَ» أسأل الله أن تكون منهم

تفضل 1.xlsx

جرب الملف ربما يكون فيه المطلوب قراءه العدادات(1).xls

انا استخدم اوفيس 2016 حاولت اني اعملها بصيغة 2003 لكن الاوفيس رفض لعل وعسى حدا م ن الشباب يستطيع تحويلها

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

استاذي الفاضل عبد اللطيف سلوم الف الف رحمة تنزل على روح الوالد اسكنه الله جل وعلا فسيح جناته يارب اذا امكن رفع البرنامج بصيغة 2003 اكون ممنون لك وكل عام وانت بألف خير

دائمًا مبدع وأدعو الله أن يوفقك لما يحبه ويرضاه كل عام أنت بخير

كل عام أنت بخير من فضلك أرفق ملف واذكر فيه مثال ليوضح المطلوب

تفضل 33.accdb

جرب أخى الفاضل هذا الحل بالمرفق AuditTrail_Detailed.mdb

بعد اذن استاذى سليم هذا الكود من أجل أستاذى ابو قاسم يوضع فى حدث الصفحة وذلك لتوسيع حجم العمود كلما كثرت البيانات به Private Sub Worksheet_SelectionChange(ByVal Target As Range) Columns(Target.Column).AutoFit End Sub والكود الأخر فى حدث الصفحة لتعريض الخلية بما يوازى البيانات بها حتى يمكن الكتابة فى الخلية الواحدة على أكثر من سطر Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.WrapText = True End Sub بارك الله فيكم جميعا تغيير حجم العمود والخلية بما يناسب الكتابة بهما.xlsm

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

بارك الله فيك ورحم والديك

في مربع رقم الفاتورة اختر خصائص ثم تبويب بيانات ثم القيمة الافتراضية عدلها من =DMax("[n1]";"CountInvoQuery")+1 إلى =DMax("[InvoiceNo]";"CountInvoQuery")+1

وعليكم السلام ورحمة الله جرب هذا .... items.accdb