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

من المعروف ان الدالة Match تعطينا أول صف تراه في الجدول لكن بحيلة بسيطة يمكننا التغلب على هذه الدالة لتعطينا كل الصفوف (كل ذلك دون أخطاء N/A#) شاهد هذا الملف Multi_Match.xlsx

السلام عليكم ورحمة الله حل آخر في الملف المرفق... بن علية حاجي تحويل الكميات من الكيلو إلى الشكارة.xlsx

جرب هذا الماكرو Option Explicit Sub Give_Uniques() Application.ScreenUpdating = False Dim d As Object, i As Long Dim Mysh As Worksheet: Set Mysh = Sheets("قائمة جرد المكتبة ") Dim lr As Long: lr = Mysh.Cells(Rows.Count, "C").End(3).Row Dim mysh2 As Worksheet: Set mysh2 = Sheets("المطلوب") Set d = CreateObject("system.collections.arraylist") For i = 4 To lr If Mysh.Cells(i, 3).Value <> vbNullString And _ Not d.contains(Mysh.Cells(i, 3).Value) Then _ d.Add Mysh.Cells(i, 3).Value Next With mysh2 .Range("a2", Range("A1").End(4)).ClearContents .OLEObjects("Combobox1").Object.List = _ Application.Transpose(d.toarray) .Range("a2").Resize(d.Count - 1) = _ Application.Transpose(d.toarray) End With d.Clear Application.ScreenUpdating = True End Sub الملف Claseur_salim.xlsm

أشكرك أستاذ مصطفى على كلامك الطيب ونحن أخوة كل منا يتعلم من الآخر بالنسبة للأستاذ محمد قاسم12 سبب أن المعادلة لم تعمل معك بعد التعديل هو يجب أن يكون المعيايير لها نفس عدد الصفوف من وإلى وتم عمل معادلة لمعرفة المتغيب في جميع المواد أما النتيجة الإجمالية فيجب عمل أعمدة لكل المواد لمعرفة هل الطالب ناجح أم راسب أم غائب وعمود يتم فيه معادلة لمعرفة عدد مواد الرسوب لكي يكون الناجح في الإحصاء العام الذي عدد مواد رسوبه صفر تحليل اعدادى(2).rar

عليك السلام ورحمة الله وبركاته تفضل لعله يفي بالغرض تحويل الكميات من الكيلو الى الشكارة.xlsx

بالتوفيق اخي

اهلا بك اخي m_fouad0003 في المنتدى اتفضل Dim RepName As String RepName = Me![ ضع هنا رقم الفاتورة] DoCmd.OutputTo acOutputReport, "اسم التقرير ضعه هنا", acFormatPDF, CurrentProject.path & "\" & RepName & ".PDF", False

وعليكم السلام 🙂 حياك الله 🙂 نعم ، وزيادة ، والطريقة هي السعي لقضاء حاجة اخوانك ، وخصوصا اللي في المنتدى 🙂 اما بالنسبة لي انا ، فكما يقول الله عز وجل: وَمَا أُوتِيتُم مِّنَ الْعِلْمِ إِلَّا قَلِيلًا جعفر

تفضل لك ما طلبت SUMIF2.xlsx

السلام عليكم ورحمة الله بارك الله فيك أخي سليم، إبداع ما فوقه إبداع... وأقترح تبسيطا (اختصارا) للمعادلة في الخلية E2 (ثم سحبها نزولا): =IF(ROWS($A$1:A1)>COUNTIF($B$2:$B$100;$E$1);"";MATCH(E$1;OFFSET($B$2;SUM(E1);0;ROWS($B1:$B$100)-SUM(E1));0)+SUM(E1)) أو =IF(ROWS($A$1:A1)>COUNTIF($B$2:$B$100,$E$1),"",MATCH(E$1,OFFSET($B$2;SUM(E1),0,ROWS($B1:$B$100)-SUM(E1)),0)+SUM(E1)) بن علية حاجي

السلام عليكم تفضل أرجو أن يكون هذا ما تريد db2.mdb