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

لا يا استاذ في النظارات الطبية مرة واحدة فقط في كل المبالغ الا بعد مرور عامين دون اعتبار مجموع المبالغ ب 7000 دينار اما هذا ليس مجموع المبالغ استاذ بل غند تقديم فاتورة جديدة بقيمة اكبر من 7000 دينار يتم حساب التعويض على 7000 دينار مثلا فاتورة بقيمة 9000 دينار او اكثر تحسب على اساس انها 7000 دينار ويتم التعويض على 7000 × 30 % خاص برقم 1-3-4-5-6-9 7000 × 40 % خاص برقم 2

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

السلام عليكم ورحمة الله وبركاته قولى متوسطة لاننى جربت ملفك على جهازي وموارد جهازي جيدة وليست جيدة جدا وملفك يعمل بكفاءة على جهازي حيث قمت بملء الاعمدة التي ذكرنها الى الصف 1006 ولم يتجمد وامور الملف 100% ولهذا اعتقدت ان جهازك موارده متوسطة فعذرا ويما ان ملفك يعمل على جهازي بكفاءة فقلت ربما السبب التنسيقات الشرطية او المعادلات والتي عددها اكثر من 28000 الامور كلها توقعات بسبب عدم حدوث اي مشكلة توقف او تجمد الملف معي عن طريق كود ارفقت لك الملف وفيه كود عد المعادلات وكود عد التنسيقات طبعا التنسيقات حاليا صفر لاته تم حذفها اذا كان السبب كثرة المعادلات فالامر يحناج الى تحويلها الى اكواد وللتاكد ان السبب منها قم بنسخ الورقة كلها ثم لصقها كقيم ثم جرب ملفك اذا انتهت المشكلة فالسبب المعادلات لك وافر التقدير والاحترام حسابات محطة النخلة_٠٩٤٩٥١.xlsm

تم التعديل إنشى فولدر photos لوضع الصور كود الموظف J2 إظهار الصورة فى Q17 كود Function فى AA2 ok المنظومة.xlsm

وعليكم السلام ورحمة الله وبركاته أخي @moho58 ، جرب هذا الكود في زر عرض التقرير :- Dim varItem As Variant Dim strCriteria As String Dim strFilter As String If Me.lst_XX_100.ItemsSelected.Count = 0 Then MsgBox "لم تقم باختيار الدرجة", , "تنبيه" Exit Sub End If For Each varItem In Me.lst_XX_100.ItemsSelected If Len(strCriteria) > 0 Then strCriteria = strCriteria & " OR " End If strCriteria = strCriteria & "(grade = '" & Me.lst_XX_100.Column(0, varItem) & "' AND " & _ "groupe = '" & Me.lst_XX_100.Column(1, varItem) & "')" Next varItem strFilter = "annee = '" & Me.ANNEE200 & "' AND (" & strCriteria & ")" DoCmd.OpenReport "rap_list", acViewPreview, , strFilter وأخبرنا بالنتيجة

وعليكم السلام ورحمة الله وبركاته اذا كانت مصادر جهازك منوسطة فالتنسيقات الشرطية + كثرة الالوان + المعادلات الكثيرة كفيلة ان تسبب النجمد لملفك شاهد الصورة كم معادلة وكم تنسيق شرطي في مبفك تم حذق التنسيق الشرطى من الورقة باكملها وعمل كود يقوم بتلوين الخلايا السالبة يوجد زر لعمل ذلك تبقى كثرة المعادلات جرب الملف ربما يكون به بعض التحسن حسابات محطة النخلة_٠٩٤٩٥١.xlsm

وعليكم السلام ورحمة الله وبركانه اولا لديك حساب المدة غير دقيق فمثلا 1/1/2024 - 31/12/2024 ليست 12 شهر ينقصها يوم وبكن يمكن اعتبارها 12 شهر 20-3-2024 - 31-12-2024 ليست 9 اشهر و37 يوم كما ورد في ملفك والصحيح 9 اشهر و11 يوم تم عمل كود يقوم بتوزيع المبلغ على عدد الاشهر وفي حالة وجود ايام مع الاشهر يدخلها قي توزيغ الميلغ حالات استنائية مثل حالة 11شهر و30 يوم سينم نوزيعها على 12 شهر هذا حسب قهمى لطلبك وانمنى ان يكون الملف المرفق فيه طلبك الكود Sub توزيع() Dim ws As Worksheet Dim startDate As Range, endDate As Range, amount As Range Dim i As Long, monthsDiff As Integer, extraDays As Integer Dim totalMonths As Integer, monthlyAmount As Double Dim colStart As Integer Range("H7:S12").ClearContents Set ws = ThisWorkbook.Sheets("ورقة1") Set startDate = ws.Range("D7:D" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row) Set endDate = ws.Range("E7:E" & ws.Cells(ws.Rows.Count, "E").End(xlUp).Row) Set amount = ws.Range("F7:F" & ws.Cells(ws.Rows.Count, "F").End(xlUp).Row) colStart = 8 For i = 1 To startDate.Rows.Count If IsDate(startDate.Cells(i, 1).Value) And IsDate(endDate.Cells(i, 1).Value) Then Dim startDt As Date, endDt As Date startDt = startDate.Cells(i, 1).Value endDt = endDate.Cells(i, 1).Value monthsDiff = DateDiff("m", startDt, endDt) If Day(endDt) < Day(startDt) Then monthsDiff = monthsDiff - 1 extraDays = Day(endDt) + (Day(DateSerial(Year(endDt), Month(endDt), 0)) - Day(startDt)) Else extraDays = Day(endDt) - Day(startDt) End If If extraDays >= 30 Then monthsDiff = monthsDiff + 1 End If If IsNumeric(amount.Cells(i, 1).Value) And amount.Cells(i, 1).Value > 0 Then If monthsDiff > 0 Then monthlyAmount = amount.Cells(i, 1).Value / monthsDiff Dim j As Integer For j = 0 To monthsDiff - 1 ws.Cells(i + 6, colStart + j).Value = monthlyAmount Next j Else ws.Cells(i + 6, colStart).Value = "" End If Else ws.Cells(i + 6, colStart).Value = "" End If Else ws.Cells(i + 6, colStart).Value = "" End If Next i End Sub جدول توزيع الاقساط.xlsm

السلام عليكم ارجو نحديد الاعمار التي تريد عدها هل تعنبر هذه الاعمار من ضمن 30 سنة اكبر من 29 الى اقل من 31 اذ كان كذلك استخدم المعادلة ويمكنك تعديل السن بها =COUNTIFS(E:E; "Female"; J:J; "Giza"; G:G; ">29"; G:G; "<31")

هههه .... كلام سليم واصبحنا لا نعرف اي التعديلات المناسبة لك أخي @يونس محمد الخطابي

لم اجد طريقة مباشرة لاستخدام دالة image لادراج ملفات فى ملف اكسيل فاستخدمت الكود التالي لحين ورود أفكار اخرى من الأخوة لادراج الصورة من المسار المحدد بالكود ، بناء على اسم ملف الصورة الموجود فى الخانة على يسار الخانة المراد ادراج الصورة بها ولتشغيله علم على الخلايا المراد ادراج الصورة بها فى عمود واحد ـ على ان تكون اسماء ملفات الصورة فى العمود السابق له مباشرة ،ـ او عدل الكود اذا اردت غير ذلك Sub InsertPicture3() Dim StrPath As String Dim StrFlename As String Dim Filename As String StrPath = "C:\Pics\" For i = 1 To Selection.Count StrFilename = ActiveCell.Offset(0, -1).Text Filename = StrPath & StrFilename Selection.InsertPictureInCell (Filename) ActiveCell.Offset(1, 0).Activate Next i End Sub

وعليكم السلام ورحمة الله تعالى وبركاته جرب هدا =IFS(A1="","",A1=0,"لا توجد بضاعة",A1<=999,99,"المخزون على وشك النفاد",A1>=1000,"المخزون متوفر") 'OR =IF(A1=0,"لا توجد بضاعة",IF(A1<=999,99,"المخزون على وشك النفاد",IF(A1>=1000,"المخزون متوفر"))) example.xlsx

برنامج شئون الطلاب للمرحلة الابتدائية ... تصميم ابو مينا الاسيوطى مكونات البرنامج .. ( املا البيانات اولا فى صفحة البداية ) ادخال البيانات من الصفوف الاول الى السادس ( مع فرز الاسماء بنين اولا – او بنات اولا ) .. حساب السن من خلال الرقم القومى المخرجات .. اوراق كثيرة جدا ... مثل .. قوائم الفصول مفتوحة الاعداد كشوف التقويمات الشهرية للصفوف الاول الى الثالث .. كشوف درجات المواد الاساسية والانشطة للصفوف الرابع الى السادس دفاتر 5 سلوك وتجميع الغياب ( كل ما عليك هو ادخال تاريخ بداية كل شهر ( صفحة البداية ) والبرنامج يقفل ايان الجمع بنفسة وسجل واطبع ) كشوف تجميع الغياب (كل افرق ) ... كشف 41 مستجدين كل الفرق لعمل سجل بدون تعب وعناء كشوف المحولين من والى المدرسة وحالات الدمج لكل صف على حدة--كشف محولين من والى المدرسة وحالات الدمج مجمعة كشوف المصروفات والرسوم المدرسية كل صف على حدة كشوف تسليم الكتب...افادة لكل تلاميذ المدرسة..كارنية مدرسى لكل تلاميذ المدرسة احصائيات لكل الفصول من حيث .. ( النوع – الديانة – حالة القيد – احصائية عامة لكل الصفوف ) 1518097032_.rar

الاخوة الزملاء بناء على طلب بعض الزملاء اليكم هذه المسابقة بالفجول بيزك يمكن التعديل الى اى مسابقة رابط خارجى http://www.up-00.com/?7jxq[url=http://www.up-00.com/] مسابقةعواصم الدول.rar

السلام عليكم فليسمح لى اساتذتى بالمشاركة نظراً لتساوى ترتيب الاعمدة الخاصة بسبب الغياب فى كل صفحات العمل وكذلك صفحة الاحصائية السنوية لذلك يمكننا استخدام معادلة اكثر اختصاراً كهذه =SUMPRODUCT(SUMIF(INDIRECT("'"&$Z$1:$Z$12&"'!A5:A500");$A2;OFFSET(INDIRECT("'"&$Z$1:$Z$12&"'!AG5:AG500");;COLUMN(A1);;))) المرفق برنامج متابعة حضور وغياب الافراد والاجازات3.rar

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

أخي الحبيب الشهابي لا أعتقد أن هذا هو المطلوب قم بالإطلاع على المرفق التالي لعل الأمور تكون أوضح Public Function GetItemTestCount(ItemTest As String, Criteria As String) As Long Dim Sht As Excel.Worksheet Dim Arr, lRow Dim Tally As Long, Count As Long Arr = Array("يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") Application.Volatile Tally = 0 For Each Sht In ThisWorkbook.Worksheets If UBound(Filter(Arr, Sht.Name)) > -1 Then lRow = Application.WorksheetFunction.Match(ItemTest, Sht.Range("'" & Sht.Name & "'!$A$5:$A$500"), 0) + 4 If Criteria <> vbNullString Then Count = Application.WorksheetFunction.CountIf(Sht.Range("C" & lRow & ":" & "AG" & lRow), Criteria) Tally = Tally + Count End If Next GetItemTestCount = Tally End Function تقبل تحياتي Ehsaa UDF Function.rar

السلام عليكم ورحمة الله أخي الكريم، في الملف المرفق تجد ردا على طلبك في حلين، الحل الأول باستعمال الدالة INDEX والحل الثاني باستعمال الدالة VLOOKUP... أرجو أن يفيا بالمطلوب... أخوك بن علية المرفق : _vlokup __ - 1.rar

السلام عليكم ورحمة الله أخي الكريم، انظر إلى المرفق لعل فيه المطلوب... أخوك بن علية المرفق : vlokup.rar

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

اخي الكريم لا يوجد مرفق ! اتفضل اخي الكريم نموذج الدوائر الاولي.rar

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

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

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

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