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

وعليكم السلام-يمكنك استخدام هذا الكود Sub RmDupsU() Dim U As Range, N As Long, i As Long, wf As WorksheetFunction Dim rUP As Range Set U = Range("A:A") Set wf = Application.WorksheetFunction N = Cells(Rows.Count, "A").End(xlUp).Row For i = N To 2 Step -1 Set rUP = Range(Cells(i - 1, "A"), Cells(1, "A")) If wf.CountIf(rUP, Cells(i, "A").Value) > 0 Then Cells(i, "A").Clear Next i End Sub Duplicate Clear Contents.xlsm

الحمد لله رب العالمين .... بالتوفيق

طيب اتفضل هذا التعديل حساب عدد الورديات والساعات حسب التاريخ.zip

Sub Test() Dim a, dic As Object, i As Long Set dic = CreateObject("Scripting.Dictionary") a = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value For i = LBound(a) To UBound(a) If dic.Exists(a(i, 1)) Then a(i, 1) = Empty Else dic.Add a(i, 1), 1 Next i Range("A1").Resize(UBound(a, 1), UBound(a, 2)).Value = a End Sub

طيب جرب المرفق التالي ..... YasEnEx2021_Kanory.rar

وعليكم السلام -يمكنك استخدام هذه المعادلة لإيجاد عدد العمليات =COUNTIFS(C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) ولإيجاد اجمالى المبلغ ... يمكنك استخدام هذه المعادلة =SUMIFS(B:B,C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) TQ1.xlsx

تفضل كود يختلف قليلا عن السابق ، علما اني استخدمه في غالب اعمالي بل اني اكتفي بتأكيد كلمة المرور فقط DATA1041-4.rar

كيفية ملأ أسماء الغائبين تلقائيا في ملف اكسل لتسجيل الغيابات اليومية الحضور والغياب.xlsx

هذه من المشكلات التي تواجه المبرمج ،، لما يغير سطر في كود يكون له تبعات في اماكن اخرى لا تظهر الا عند التجربة تفضل تم التعديل جرب ووافني بالنتيجة DATA1041-5.rar

هذا يفعله الكود تماما ... عند محاولة اسناد المخزن ١ مثلا ل kanory ... وكان هذا المخزن مؤجر لeng.qassim تظهر رسالة تخبرة بانه سبق تاجير المخزن ... والافضل من هذا كله .. عند تاجير المخزن١ مثلا يختفى في الكمبوبكس ولا يظهر ابدا الا بعد الاخلاء ... لكن طلب السائل ذلك واجبته بارك الله فيك وننتظر جواب السائل ...

احيانا الموظف ياخذ اجازة زمنية قبل الحظور واحيانا يأخذها عند الانصراف .. في تلك الحالة سيظهر بانه غائب ولهذا اشترطت في حالة عدم الحضور وعدم الانصراف يكون غائب اليك المرفق بالاشتراك مع معلمي استاذ @kanory رعاه الله YasEnEx2021.accdb

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

إن شاء اللّه يكون هذا هو المطلوب في حالة زيادة أسماء المصنفات يتم نسخ المعادلة لأسفل وتغيير اسم المصنف يدويا في اول خلية فقط ثم النسخ أفقيا بالتوفيق sumif in closed workbooks.rar

آمين ولك مثل ما دعوت وزيادة وفقنا الله جميعا لكل خير

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

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

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

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

يمكنك تغيير سطر الشرط If C = Val(Me.TextBox6) Then إلى If C = Val(IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6)) Then وتغيير آخر سطر قبل نهاية الإجراء Call TextBox6_Change إلى Me.TextBox6 = IIf(TextBox6 <> TextBox1, Me.TextBox1, Me.TextBox6) بالتوفيق

ما شاء الله عليك ياستاذ أسأل الله لكم القبول والخير كله ظاهره وباطنه

الشكر لله أخي الكريم موفقين جميعا بإذن الله

اضف ايضا تلك الطريقة المتواضعة الى مكتبتك

هذا جزء من برنامجي ..... ka_stu.accdb

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

شكرا جزيلا يا أستاذ محمد

الحل الاول: القيام بعمل repair اصلاح للأوفيس من لوحة التحكم control panel ثم uninstall a program ثم تحديد الأوفيس مع الضغط على change وليس uninstall بعدها quick repair والانتظار حتى نهاية الاصلاح وربما يتطلب الامر اعادة تشغيل الجهاز بعدها يكون كل شيء على ما يرام بإذن الله بالتوفيق

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

شكرا لك هذا بالضبط هو الذي تم في ملف النسخة 64بت في المشاركة الأولى

السلام عليكم استاذى الجليل طبعا بعد مرور فتره اكثر من 4 سنوات ولقد ساعدتنى مجهوداتك فى عملى بشكل رائع بارك الله فيك ولكنى احتاج تعديل بسيط لانه في بعض الاحيان يصدر نتائج خطأ فى الصوره التوضيح المطلوب 34* 49مساحه الورق الاصلى مساحه التصميم 8* 10 المفروض يطلع 21 مش 18 وجزاك الله خيرا

ضع هذا الكود في القيمة الافتراضية IIf(IsNull( [Text1];0; [Text1])

استخدم NZ هذه الدالة تحول قيمة الحقل الفارغ الى صفر

الطريقة على ويندوز 10 هي نفسها الموجودة في الشرح على ويندوز 7

ربما يشتبه الأمر على البعض الأداة الموجودة في المشاركة الأولى وتحديثها يقومان بفك كلمات المرور لشيتات الإكسل التي نقوم بها من أجل حماية المعادلات والتنسيقات من تبويب مراجعة --> حماية ورقة العمل Review --> protect sheet ولا تقوم بفك كلمات الفتح أو محرر الفيجوال بيسك فقد تطرق لهذا الأمر الكثير من الأصدقاء في موضوعات كثيرة في هذا الصرح الكبير أوفيسنا شكرا لكل من مر على هذا الموضوع نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

شكرا لمروركم الكريم أستاذ @صقر قريش89 وأستاذ @زاكي بوشلاغم نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

شكرا لمروركم الكريم الأمر يرجع إليك أخي إبراهيم معي يعود بكلمة المرور في ثوان معدودة!!!

شكرا لمروركم الكريم أحبابي نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا

السلام عليكم إضافة إلى التعديلات على الملف في ردي السابق، قمت بإضافة كود يقوم بطريقة القص بالرسم على الورق الأصلي مباشرة بعد حجز المقاييس -الطزل والعرض- لكل من مساحة الورق الأصلي ومساحة الورقة المطلوبة للقص... أرجو أن تفي الغرض المطلوب... بن علية حاجي Cut_Final.rar

ممكن تستخدم هذه المعادلة أخى فى حالة عدم أخذ بداية الرقم ونهايتة من ضمن العدد =SUMPRODUCT(--($B$3:$B$27>$E$4)*($B$3:$B$27<$G$4)) أما لو أردت أضافتهم أستخدم هذه =SUMPRODUCT(--($B$3:$B$27>=$E$4)*($B$3:$B$27<=$G$4)) وممكن إستخدام هذه المعادلة أيضا =ABS(MATCH(C1;A3:A27;0)-MATCH(D1;A3:A27;0))-1 وفى حالة عدم وجود تكرار يمكن إستحدام هذه المعادلة وهى معادلة صفيف ، أى لابد من الضغط على ( CTRL+SHIFT+ENTER ) =ROUND(SUM(MATCH($C$1:$D$1;$A$3:$A$27;0)/2);0) تقبل تحياتى

جرب المرفقات أخي الحبيب لعله ما تريد ===== يمكنك تغيير الأرقام في المربعات الصفراء حت تجلب عدد الخلايا المحصورة بين رقمين أخرين ==== خالص تحياتي تحديد خلايا.rar

أخي جلال يكفيك تكرار الكود بعدد الأعمدة المطلوب تنفيذ الشرط عليها على العموم مرفق ملفك بعد التعديل أتمنى أن يكون هو المطلوب على فكرة أنا أؤيد موضوع التنسيق الشرطي لأنك يمكنك عمل كل هذا من خلاله وبدون الحاجة إلى هذا الكم من الأكواد mas-Book1.rar

أخي الكريم جلال وفقك الله معنى السطر الأول هو تحديد المدى المسمى my_rng بالمدى range("h7:hz") حيث z هي رقم آخر صف في العمود h كما هو موضح في السطر السابق لهذا السطر z = Range("H6").End(xlDown).Row ومعنى السطر الثاني هو الشرط الثاني لتنفيذ التلوين If cell.Value < Range("Min") Or cell.Offset(0, -2).Value < Range("f6").Value Then ويعني الشرط ككل إذا كانت قيمة الخلية أقل من الدرجة الصغرى أو كانت قيمة الخلية المجاورة للخلية الحالية بخليتين في نفس الصف باتجاه العمود الأول(الخلية التي تحتوي على درجة امتحان الفصل الثاني) أقل من قيمة الخلية f6 التي بها ربع درجة امتحان الفصل الثاني ينفذ عملية التلوين بنفس لون الخلفية ولون الخط الموجود في خلية الدرجة الصغرى للمجموع وإذا لم ينطبق الشرط يتم تلوين الخلفية بالأبيض ولون الخط بالأسود أتمنى أن يكون اتضح الأمر

أخي جلال عدّل الكود الموجود في حدث عند التغيير في ورقة العمل إلى Private Sub Worksheet_Change(ByVal Target As Range) Dim My_Rng As Range, cell As Range, z As Integer z = Range("H6").End(xlDown).Row Set My_Rng = Range(Cells(7, "H"), Cells(z, "H")) For Each cell In My_Rng If cell.Value < Range("Min") Or cell.Offset(0, -2).Value < Range("f6").Value Then cell.Font.ColorIndex = Range("Min").Font.ColorIndex cell.Interior.ColorIndex = Range("Min").Interior.ColorIndex Else cell.Font.ColorIndex = 1 cell.Interior.ColorIndex = 0 End If Next cell End Sub وستجد ما يسرك

بعد إذن أخي ابو اسامة وأخي إكسيلجي بعيدا عن معرفة رقم اللون ومشكلاته قمت بتعديل بسيط هو أن يلون المستخدم خلية الدرجة الصغرى بلون الخط الذي يريده ولون الخلفية الذي يريده والكود يطبق الاثنين على الخلايا التي ينطبق عليها الشرط مرفق الملف بعد التعديل mas-تلوين الخلايا.rar