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

بعد اذن استاذنا الكريم محمد-يمكنك استخدام هذه المعادلة بالتنسيقات الشرطية =AND(COUNT($A2:$D2)<>0,A2=MAX($A2:$D2)) 111.xlsx

السلام عليكم ورحمة الله تعالى وبركاته اولا : كل عام وانتم بخير ثانيا : انا بصدد عمل قاعدة بيانات جديدة تخص عملى واريد أن أبدئها مع اساتذتى من الصفر نظرا لان القاعدة الحالية تم الانتهاء من تصميها فى العام 2016 وكانت تلك بدايات تعلمى الاكس ولم يتم تحديثها او تنقيحها بعد ذلك فحتما وقعت فى الكثير من الاخطاء ولذلك اريد تقديم يد العون من اساتذى الكرام نظرا لان القاعدة الحالية بطيئة جدا جدا.. كما نها تعمل فى اطار شبكة محلية بإختصار اولا اضع النقاط الرئيسية للبيانات وكيف تتم معالجتها والية العمل حتى تكتمل الصورة ونبدأ بتحليل النظام اولا ----------------- - يتم احضار ملف اكسل من جهاز البصمة لكل العاملين يتم استيراد البيانات الى قاعدة البيانات - احتساب التأخير بناء على جدول به مواعيد الحضور لانها قيم غير ثابته او قد تتغير مع الوقت ولابد من مراعاة الاتى 1- فى ايام العمل الرسمية من الاحد الى الخميس مواعيد الحضور تبدأ من 7:30 ص ووقت السماح الى الساعه 8:20 ص المفروض احتساب مخالفة بعدد 1 لكل موظف ظهرت مواعيد حضوره ابتداء من الساعة 8:21 ص الى الساعة 10:00ص ومخالفة بعدد 2 لكل موظف لكل موظف ظهرت مواعيد حضوره ابتداء من الساعة 10:01 ص وحتى الساعة 12:00 م ( ظهرا ) ومخالفة بعدد 3 لمن كان حضوره بعد الساعة 12:00 م ولكن فى يوم الاحد فقط من كل اسبوع يستثنى من ذلك المسيحيون فمواعيد المخالفة عدد 1 تبدأ من الساعة 10:01 ص وحتى الساعة 12:00 م ( ظهرا ) ومخالفة بعدد 2 لمن كان حضوره بعد الساعة 12:00 م حالة استثنائية: فى حالة التأخير للموظفين بسبب التفتيشات الامنية يعامل الجميع بالطريقة التى تم احتساب المخالفات بها للمسيحيون 2- الانصراف يبدأ من الساعة 2:00 ايا موظف تظهر وقت بصمته قببل الساعة 2 تعد مخالفة طبعا مطلوب تجميع عدد المخالفات كل أخر شهر للموظفين 3- يستثنى من المخالفات كل من توجه الى عيادة ولكن مطلوب تجميع عدد العيادات كل أخر شهر للموظفين 4- ايام الجمعة والسبت او الاعياد والمناسبات الرسمية التى تكون اجازة من الدولة يكون وقت الحضور حتى الساعة 9:00 ص واى تأخير بعد ذلك يحتسب بعدد 1 مخالفة فقط 5- مطلوب تجميع عدد ساعات العمل الرسمية شهريا حسب عدد ايام الشهر لايام من الاحد الى الخميس من الساعة 8:00 ص الساعة 2:00 مساء 6- تجميع عدد ساعات العمل الفعلية من وقت حضور الموظفين الفعلى فى تلك الايام وحتى وقت الانصراف بدون السهر اى الى الساعة 2:00 مساء لاحتساب نسبة الحضور المئوية شهريا للموظفين 7- احتساب عدد الساعات الفعلية لكل ايام العمل الرسمية والغير رسمية فقط معدد ساعات يستكمل الباقى بعد الانتهاء من تلك الجزئية🤣

جزاكم الله خيرا جميعا فقد تم المطلوب

وعليكم السلام ورحمة الله وبركاته يمكن ذلك كما يلي: 'بالتنسيق الشرطي نكتب هذه المعادلة =AND(A2=$E$2) 'في الخلية E2 نكتب هذه المعادلة =LARGE(A2:D2;1) والله ولي التوفيق والسلام عليكم 1.xlsx

مجرد محاولة غير هذه For Each xFile In xFolder.Files الى For Each xFile In xFolder.subfolders

برنامج حسابات كامل مجاني يدعم النموذج الشجري لدليل الحسابات لشركات المقاولات و الانشطه الخدميه برنامج كامل مجاني https://acc-arab.com/2021/06/my-accounts.html مميزات البرنامج شاشه تسجيل دخول مزوده بنظام صلاحيات لكل مستخدم نظام تكويد مبسط يتم عرضه علي نموذج شجره الحسابات و يمكن التكويد بدون الحاجه الي النموذج الشجري للحسابات عن طريق نموذج تعديل التكويد نموذج لتسجيل قيود اليوميه مصمم بشكل احترافي يمنع حفظ القيد اذا كان غير متساوي مع امكانيه طباعه كل قيد بشكل مستقل كانك تتعامل مع دفتر يوميه حقيقي بمزايا الدفاتر الالكترونيه و أيضا نموذج مراجعه قيود اليوميه لضمان دقه البيانات المدخله علي البرنامج امكانيه اغلاق الفتره المحاسبيه او اغلاق القيد المحاسبي لمنع التعديل عليه امكانيه الاطلاع علي دفتره الاستاذ و معاينه كافه التغيرات علي كل حساب بعد تسجيل اي قيد و أيضا طباعه كل حساب بشكل مستقل او طباعه كل الدفاتر بشكل مجمع او تحويلها لاي صيغه ( اكسيل او pdf ) برنامج حسابات متكامل سهوله الاطلاع علي دفتر اليوميه و سهوله الطباعه للدفتر بالكامل او طباعه كل قيد بشكل مستقل او تحويلها لاي صيغه ( اكسيل او pdf ) امكانيه الاطلاع علي كافه التقاير المجاسبيه بما في ذلك الميزانيه العموميه و قائمه الدخل و حساب المتاجره و ميزان المراجعه او تحويلها الي اكسيل او pdf برنامج حسابات متكامل مصمم بالاكسيس سهوله تفريغ محتويات البرنامج و ذلك بالدخول الي اعدادات البرنامج و اضافه كلمه سر الادمن للامان الضغط علي تفريغ المعاملات الماليه امكانيه الاحتفاظ بنسخه احياطيه من البرنامج سهوله العمل علي البرنامج علي شبكه داخليه مما يسمح بعمل اكثر من مستخدم علي البرنامج في نفس الوقت برنامج حسابات متكامل متطلبات تشغيل البرنامج نسخه اوفيس 2010 علي الاقل اسم المستخدم admin كلمه السر 123 رابط تحميل البرنامج https://acc-arab.com/2021/06/my-accounts.html#المحاسب_العربي #برنامج_محاسبة_مستخلصات_المقاولات #شير_في_الخير #برنامج_حسابات #المحاسب_العربي #برنامج_محاسبة_مستخلصات_المقاولات #شير_في_الخير #برنامج_حسابات

أحسنت بارك الله بك اخي الكريم @Ali Mohamed Ali جزاكم الله خيرا وأحسن إليكم آمين 👍🌺😊

فورم اكسل لتشغيل القران الكريم الجزء الثلاثون وعرض صورة السورة والتفسير كل عام وانتم بخير ورمضان كريم رابط على الميديا فاير رابط على 4 شير k

اللهم امين وشكرا لكم ورمضان كريم

ماذا عن هذا Sub test() Dim A As Variant: Dim w As Variant Dim i As Long: Dim ii As Long With Sheet1 A = .Cells(1, 1).Resize(.Cells(Rows.Count, 4).End(xlUp).Row, 11) End With With CreateObject("scripting.dictionary") For i = 1 To UBound(A) If Not .exists(A(i, 6) & "#" & A(i, 4)) Then .Add A(i, 6) & "#" & A(i, 4), Array(A(i, 9), A(i, 10), A(i, 11)) Else w = .Item(A(i, 6) & "#" & A(i, 4)) For ii = 0 To UBound(w) w(ii) = w(ii) + A(i, ii + 9) Next .Item(A(i, 6) & "#" & A(i, 4)) = w End If Next Sheet2.Cells.ClearContents Sheet2.Cells(1, 1).Resize(.Count) = Application.Transpose(.keys) Sheet2.Cells(1, 1).Resize(.Count).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Other:=True, OtherChar:="#", FieldInfo:=Array(Array(2, 1)) Sheet2.Cells(1, 3).Resize(.Count, 3) = Application.Index(.items, 0, 0) Sheet2.Select End With End Sub

اللهم امين تم رفع الملف على رابطين موجودين اسفل الموضوع وكل عام وانتم بخير

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

تفضل هذه المحاولة timetable 2022.accdb

الكود التالي لاحضار اسماء الملفات ممكن يصير تعديل عليه لاحضار اسماء المجلدات ؟ لو تكرمتم Sub Example1() Dim xFSO As Object Dim xFolder As Object Dim xFile As Object Dim xFiDialog As FileDialog Dim xPath As String Dim I As Integer Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker) If xFiDialog.Show = -1 Then xPath = xFiDialog.SelectedItems(1) End If Set xFiDialog = Nothing If xPath = "" Then Exit Sub Set xFSO = CreateObject("Scripting.FileSystemObject") Set xFolder = xFSO.GetFolder(xPath) For Each xFile In xFolder.Files I = I + 1 ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name Next End Sub

طيب جرب كده ..... timetable 2022 (3).accdb

احي شاهد المرفق Link_Files_In_Folder_And_SubFoldr.xls

جزاك الله خيرا وشكرا علي النصيحه والمعلومه أستاذ عبد الفتاح ولكن ماذلت مشكله البحث جرب تكتب مثلا 98 جزاك الله خيرا استفدت من حضرتك جامد أستاذ علي

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

مين قال لا يوجد وما فائدة هذا التطبيق Full Control Of Print Report التحكم في الطابعة وخصائصها طباعة التقارير.mdb

وعليكم السلام -يجب عليك التمهل .فانت لا تعرف مدى انشغال الأساتذة - تفضل تم التعديل فاتورة1.xlsm

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

ما شاء الله إبداع بارك الله لك صديقي العزيز رمضانكم مبارك

راجع الروابط الاتية

تمام يافندم المشكلة اتحلت الف الف شكر أخي موسي تعبت حضرتك معايا جزاك الله كل خير معلش انا ليا كمان سؤال لو تسمح ؟؟

السلام عليكم الملف ادناه اريد اظهر نتائج بيع المندوب نور باستثناء المنتج اجبان باستخدام الدالة sumif Book1.xlsx

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

هل هذا التوزيع لمسميات الجدول صحيح قبل أن نكمل لاني لم افهم من جدولك ...

عليكم السلام Sub CaloutDownArrow1_Click() 'On Error Resume Next 'Dim R As Integer Dim M As Integer Dim ws As Worksheet: Set ws = Sheets("Payment Requests") Dim sh As Worksheet: Set sh = Sheets("Cash Position") Dim cll As Range 'R = ws.Cells(5000, 1) M = 1 For Each cll In ws.Range("J3:J1000") If ws.Range("P1") = cll.Value Then sh.Cells(M, 13).Value = cll.Offset(0, -8) sh.Cells(M, 10).Value = cll.Offset(0, -6) sh.Cells(M, 2).Value = cll.Offset(0, -5) sh.Cells(M, 1).Value = cll.Offset(0, 0) sh.Cells(M, 5).Value = cll.Offset(0, 1) sh.Cells(M, 7).Value = cll.Offset(0, 2) sh.Cells(M, 3).Value = cll.Offset(0, 3) sh.Cells(M, 15).Value = cll.Offset(0, 5) ' On Error GoTo 0 M = M + 1 End If Next cll End Sub

شكرا

السلام عليكم ورحمة الله عندي مشكلة بسيطة في الملف المرفق حيث قمت بعمل شريط تمرير في الورقة الثانية لعرض البيانات على عشرة صفوف فقط من الورقة الاولى المشكلة تكمن في أنه عند عمل حماية للورقة بكلمة مرور لا استطيع استخدام شريط التمرير أنا اريد أن تبقى البيانات فقط محمية بينما يستطيع المستخدم استخدام شريط التمرير لعرض البيانات. إن كان لدى احد الاخوة فكرة أو حل لتجاوز هذه المعضلة أكون له من الشاكرين علما بأن كلمة المرور للشيت الثاني هي 2522004 ودمتم في رعاية الله Password.xlsx

السلام عليكم ورحمة الله وبركاته الاستعلام يُعتبر العمود الفقري لقواعد البيانات ، وكلما زادت معرفتنا به ، كلما يصبح البرنامج افضل واسرع 🙂 البحث/التصفية في الاستعلام من الطرق المهمة ، ولكن وللأسف الشديد ، ارى الكثير من المبرمجين لا يعرفون الطريقة الصحيحة في عملها ، فالطريقة الغير صحيحة قد تعطيك النتائج ولكن على حساب وقت تنفيذ الاستعلام 😞 الامثله هنا تقوم على انه يوجد لدينا نموذج اسمه frm_Main ، وبه حقل الاسم fName ، وحقل التاريخ:من Date_From ، وحقل التاريخ:الى Date_To ، والحقول في الاستعلام ، حقل الاسم fName ، وحقل التاريخ DateX . 1. اذا اردنا البحث عن اسم كامل (وليس جزء من اسم) ، فيجب ان يكون المعيار في الاستعلام: [forms]![frm_Main]![fName] 2. واذا كان حقل الاسم فارغا في النموذج ، ونريد ان نرى جميع الاسماء ، فالمعيار يصبح: iif(len([forms]![frm_Main]![fName] & '')=0,[fName],[forms]![frm_Main]![fName]) والشرح للتأكد بأن الحقل فارغ في النموذج، بدل ان نكتب IsNull([forms]![frm_Main]![fName]) or [forms]![frm_Main]![fName]=0 فإننا نختصر هذين الشرطين بشرط واحد len([forms]![frm_Main]![fName] & '')=0 iif(كان الحقل فارغ في النموذج,[fName] اعطنا جميع بيانات الحقل,[forms]![frm_Main]![fName]واذا كان الحقل به قيمة فاستعمل هذه القيمة) . 3. اذا اردنا البحث عن جزء من الاسم Like IIf(Len([forms]![frm_Main]![fName] & '')=0,"*","*" & [forms]![frm_Main]![fName] & "*") والشرح IIf(Len([forms]![frm_Main]![fName] & '')=0 نعم Like "*" لا Like "*" & [forms]![frm_Main]![fName] & "*") . 4. اذا اردنا البحث بين تاريخين بدون سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) مع سجلات التاريخ الفارغة Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null والشرح Between (IIf(Len([Forms]![frm_main]![Date_From] & '')=0,#01-Jan-1900#,[Forms]![frm_main]![Date_From])) And (IIf(Len([Forms]![frm_main]![Date_To] & '')=0,#01-Jan-2900#,[Forms]![frm_main]![Date_To])) Or [DateX] Is Null او طريقة استاذنا واخونا العود ابو خليل Between nz([forms]![frm_main]![Date_From];"01/01/1900") And nz([forms]![frm_main]![Date_To];"01/01/2100") . جعفر

مميزات الفورم السحرى 1-الفورم يستكشف جميع الجداول المصممة فى اى ملف اكسل 2- التعامل مع تلك الجداول من حذف واضافة وبحث وترحيل 4- ضبط عرض أعمدة اليست بوكس من خلال ضبط أعمدة الجدول 3- الفورم يكتشف المعادلات ويحميها تلقائيا 5- الفورم السحرى يكتشف اعمدة التواريخ تلقائيا 6- الفورم يقبل تدعيم الجداول بالصور تلقائيا 7- الفورم يحدد اوتوماتيكيا المكان الجغرافى للجداول داخل ملف الاكسل وهناك كثير للميزات ستكتشفها بنفسك عند العمل على الفورم السحرى هذا شرح مصور الاخ الرائع عماد الغازي بالمناسبة أشكره من كل قلبي على هذا الشرح جزاه الله خيرا الفورم_السحرى.rar

أخي الكريم أبو فادي مشكور على كلماتك الطيبة والرقيقة في حقنا بالنسبة لاستفسارك "هل يمكن أن يتظلل السطر بالكامل ؟؟ فقد تم ذلك في المشاركات السابقة وتم تظليل صف النطاق بالكامل أم هل تقصد الصف بالكامل بالكامل ... إذا كان الأمر كذلك فأنا لا أحبذه لأن كثرة استخدام التنسيق الشرطي على نطاقات واسعة تثقل عمل الملف الاستسفار الثاني معرفة عدد الأيام في عمود يمكن وضع المعادلة التالية في الخلية J4 (أرى أنك غيرت من هيكلةالملف الأصلي ..عموماً بعد الشرح الذي قدم يمكنك التعديل في المعادلات بما بتناسب مع الهيكلة الجديدة) المعادلة في J4 تكون بالشكل التالي =IFERROR(DATEDIF(TODAY(),$G4,"d"),"") أرجو أن يفي هذا بالغرض إن شاء المولى

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

الأخ الكريم شريف الموضوع ليس له علاقة بالاحتراف إنما هو بالبحث والمثابرة .. فقد استغرق مني الموضوع نظراً لأنه أول مرة يمر على مثل هذه المشكلة استغرق أكثر من 4 ساعات بحث ومناقشات ومداولات .. كل ما اريد معرفته من أين حصلت على هذه الأرقام بهذا الشكل ؟ ما هو البرنامج الذي تم تصدير الأرقام منه ؟ حيث أن الأرقام ليست أرقام في ملفك إنما هي شكل أرقام ولكنها في حقيقة الأمر عبارة عن علامات خاصة بتكويد معين .. يتخللها علامات خاصة أخرى ليست أرقام داخلها مما عقد الموضوع بعض الشيء .. أرجو ان تكون المشكلة قد تم حلها تماماً تقبل تحياتي

أخي الكريم شريف جرب الحل التالي Sub ConvertTextToNumberUsingArrays() Dim Arr, Temp, C, Str As String, I As Long, P As Integer Arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) ReDim Temp(1 To UBound(Arr, 1)) For I = LBound(Arr) To UBound(Arr) Temp(I) = AscWConvert(Arr(I, 1)) Next I Range("B1").Resize(UBound(Temp)).Value = Application.Transpose(Temp) End Sub Function AscWConvert(Rng As Variant) Dim C, P, Str If IsNumeric(Rng) Then AscWConvert = Val(Rng) ElseIf Not IsEmpty(Rng) Then For P = 1 To Len(Rng) C = AscW(Mid(Rng, P, 1)) If C - 1632 >= 0 And C - 1632 < 10 Then Str = Str & (C - 1632) Else Select Case C Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 Str = Str & ChrW(C) End Select End If Next P If Len(Str) = 0 Then AscWConvert = "" Else AscWConvert = Val(Str) End If End If End Function الموضوع استغرق مني يومين بحث ومناقشات في منتديات للوصول لحل ، فلا تنسانا بدعوة بظهر الغيب تقبل تحياتي